Forum: SDL Trados support
Topic: SDL Trados 2014 New bugs & shortcomings
Poster: SDL Support
Post title: I didn't say get the...
... Glossary Converter to merge them. I said get the converter to export to Excel and then use Excel to change them so they are listed in rows and then you can pretty easily use the Glossary Converter to convert them back to a Termbase in the way you want.
I found a simple macro for excel that will do this easily enough if your terms are in two columns.
[b][size=9]Option Explicit
Sub Consolidate()
'JBeaucaire (9/18/2009)
'Sort/Match column A values, merge all other cells into row format
Dim LR As Long, i As Long
Application.ScreenUpdating = False
'Sort data
LR = Range("A"& Rows.Count).End(xlUp).Row
Range("A1").CurrentRegion.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess
'Group matching names
For i = LR To 2 Step -1
If Cells(i, "A").Value = Cells(i - 1, "A").Value Then
Range(Cells(i, "B"), Cells(i, Columns.Count).End(xlToLeft)).Copy _
Cells(i - 1, Columns.Count).End(xlToLeft).Offset(0, 1)
Rows(i).EntireRow.Delete (xlShiftUp)
End If
Next i
Cells.Columns.AutoFit
Application.ScreenUpdating = True
End Sub[/size][/b]
I did a quick test and it worked brilliantly. Maybe this will help?
Regards
Paul
Topic: SDL Trados 2014 New bugs & shortcomings
Poster: SDL Support
Post title: I didn't say get the...
... Glossary Converter to merge them. I said get the converter to export to Excel and then use Excel to change them so they are listed in rows and then you can pretty easily use the Glossary Converter to convert them back to a Termbase in the way you want.
I found a simple macro for excel that will do this easily enough if your terms are in two columns.
[b][size=9]Option Explicit
Sub Consolidate()
'JBeaucaire (9/18/2009)
'Sort/Match column A values, merge all other cells into row format
Dim LR As Long, i As Long
Application.ScreenUpdating = False
'Sort data
LR = Range("A"& Rows.Count).End(xlUp).Row
Range("A1").CurrentRegion.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess
'Group matching names
For i = LR To 2 Step -1
If Cells(i, "A").Value = Cells(i - 1, "A").Value Then
Range(Cells(i, "B"), Cells(i, Columns.Count).End(xlToLeft)).Copy _
Cells(i - 1, Columns.Count).End(xlToLeft).Offset(0, 1)
Rows(i).EntireRow.Delete (xlShiftUp)
End If
Next i
Cells.Columns.AutoFit
Application.ScreenUpdating = True
End Sub[/size][/b]
I did a quick test and it worked brilliantly. Maybe this will help?
Regards
Paul