Horizontal Sort

Hi,

I have a set of data that is over 2500 rows. It contains an ID column and then multiple tags associated with that ID that need to be sorted horizontally.
As comma separated it would appear as the example below.

Example:
1, ACC.d, FAS.d, 2013-2014, GRD.d
2, 2013-2014
3, MTJ.w, FAS.d, ACC.d
4, GRD.d, ACC.d

I'd like to sort these horizontally for each row and maintain the spacing if possible. Is there a function/macro I can use? I am not very familiar with Macros, so the more detailed, the better...

thanks
jg

Are you saying you want the entries in all the rows to line up? (i.e. all the "ACC.d" in col A, "FAS.d" in Col B, etc)? So given your example, in Row 3, MTJ.w might be the first entry in Col E? or are all the entries from row 2 down included in row 1?

How do I know what's the ID? Can you upload an example showing finished results (Go Advanced>Manage Attachments)

@jgilliga: simply repeating the same thing won't get any of us any closer to understanding a) what you start with and b) what you want to end up with.

As ChemistB has suggested, please upload a sample workbook with typical data before it is sorted and a mock up of what it would look like after it is sorted.

Regards, TMS

Hi jgilliga,

Here's a routine that I got from an esteemed forum member a while back - I pasted your:
"Tags Isolated via Data --> "Text to Columns"" in Range A1 of sheet 2 and the ran this:

Sub Gilligan() 'Horizontal Sort by WasWodge
    Dim LstCo As Long, LstRow As Long, i As Long
     
    LstCo = Cells.Find(What:="*", SearchOrder:=xlColumns, _
                SearchDirection:=xlPrevious, LookIn:=xlValues).Column
    For i = 1 To LstCo - 1: Cells(2, i + 1) = "Tag " & "0" & i: Next
    LstRow = Cells.Find(What:="*", SearchOrder:=xlRows, _
                    SearchDirection:=xlPrevious, LookIn:=xlValues).row
       
    For i = 3 To LstRow
        Range(Cells(i, 2), Cells(i, LstCo)).sort _
        Key1:=Cells(i, 1), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight
    Next
     
End Sub

Assuming the tags in question are only the 5 shown, run this macro with the data in columns A:B

Option Explicit

Sub SplitTags()
Dim LR As Long

    LR = Range("A" & Rows.Count).End(xlUp).Row

    Range("E1") = "ID #"
    Range("F1") = "Tag 01"
    Range("G1") = "Tag 02"
    Range("H1") = "Tag 03"
    Range("I1") = "Tag 04"
    Range("J1") = "Tag 05"
    Range("E2:E" & LR).FormulaR1C1 = "=RC[-4]"
    Range("F2:F" & LR).FormulaR1C1 = _
        "=IF(ISNUMBER(SEARCH(""2013-2014"", RC2)), ""2013-2014"","""")"
    Range("G2:G" & LR).FormulaR1C1 = _
        "=IF(ISNUMBER(SEARCH(""ACC.d"", RC2)), ""ACC.d"","""")"
    Range("H2:H" & LR).FormulaR1C1 = _
        "=IF(ISNUMBER(SEARCH(""GRD.d"", RC2)), ""GRD.d"","""")"
    Range("I2:I" & LR).FormulaR1C1 = _
        "=IF(ISNUMBER(SEARCH(""FAS.d"", RC2)), ""FAS.d"","""")"
    Range("J2:J" & LR).FormulaR1C1 = _
        "=IF(ISNUMBER(SEARCH(""MTJ.w"", RC2)), ""MTJ.w"","""")"

    With Range("E2:J" & LR)
        .Value = .Value
        .CurrentRegion.Borders.Weight = xlThin
        .CurrentRegion.Columns.AutoFit
    End With

End Sub