Grouping of duplicates in a column.

**teja** · 05-11-2012, 02:56 PM

How to group duplicates in a column and simultaneously link to the corresponding text in another column.

Ex., What I have.
Column 1 Column 2

DAN-4153 GBD567
DAN-5608 GBD567
DAN-325 GBD1321
DAN-4178 GBD590
GBD4730

What I want.

DAN-4153
DAN-5608 GBD567 (in one row)
DAN-325 GBD1321
DAN4178 GBD4730
GBD590

**mrice** · 05-11-2012, 04:26 PM

Try this macro.


Sub Test()
For N = Selection.Row + Selection.Rows.Count - 2 To Selection.Row Step -1
    For M = Selection.Column To Selection.Column + Selection.Columns.Count - 1
        If Cells(N, M) = Cells(N + 1, M) Then
            If M = Selection.Column Then
                Cells(N, M + 1) = Cells(N, M + 1) & Chr$(10) & Cells(N + 1, M + 1)
                Cells(N + 1, M + 1).ClearContents
                Rows(N + 1).Delete
            ElseIf M = Selection.Column + 1 Then
                Cells(N, M - 1) = Cells(N, M - 1) & Chr$(10) & Cells(N + 1, M - 1)
                Cells(N + 1, M - 1).ClearContents
                Rows(N + 1).Delete
            End If
        End If
    Next M
Next N
End Sub

The area needs to be selected before the code is run.