Originally Posted by
rbrhodes
Hi Rucas,
This might work.
[vba]
Sub DeleteAndMerge()
Dim i As Long
Dim dCol As Long
Dim lrow As Long
'Column to check first (A)
dCol = 1
'Get last row of data, Col A
lrow = Cells(65536, dCol).End(xlUp).Row
'Check each row: lastrow to row 2
For i = lrow To 2 Step -1
'If Col A AND Col B are match
If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 2) = Cells(i - 1, 2) Then
'Col C = Concatentate Col C names
Cells(i - 1, 3) = Cells(i - 1, 3) & " & " & Cells(i, 3)
'Delete dupe row
Cells(i, 1).EntireRow.Delete
End If
Next i
End Sub
[/vba]
Cheers,
dr