Sub RemoveDuplicates()

LastRow = Range("A" & Rows.Count).end(xlup).Row
For Row = LastRow To 2 Step -1
If Cells(Row, "A").Value = Cells(Row - 1, "A").Value Then
s = s & RTrim(LTrim(Cells(Row, "J").Value)) & ";"
T = T & RTrim(LTrim(Cells(Row, "K").Value)) & ";"
Rows(Row).Delete
Else
If s < "" Then
Cells(Row, "J").Value = s & Cells(Row, "J").Value
s = ""
End If
If t < "" Then
Cells(Row, "K").Value = t & Cells(Row, "K").Value
t = ""
End If
End If
Next Row

End Sub


"TG" wrote:

hi!

I have the following spreadsheet:

columna columnb columnc columnd
1 AAAA BCBCBC
xyxyxy
1 AAAA DEDEDE
sdsdw
2 DDDDD ghjhedt
jhughu
2 DDDDD
null yujhgf
3 EEEEEE
null ptyergh


I need to append the data from columnc and columnd if the columna
number is the same.

e.g.


columna columnb
columnc columnd
1 AAAA
BCBCBC,DEDEDE xyxyxy,sdsdw
2 DDDDD
ghjhedt,null jhughu,yujhgf
3 EEEEEE
null ptyergh


I have the following code, but it only works for one column of
appending data. How can I modify so that it does it on the 2 columns I
need.
Also how can I check for last row in spreadhseet instead of having to
manually hard code the last row used?

Thanks a lot for your help!!!!!

Tammy


Sub RemoveDuplicates()


For Row = 267 To 2 Step -1
If Cells(Row, "A").Value = Cells(Row - 1, "A").Value Then
s = s & RTrim(LTrim(Cells(Row, "J").Value)) & ";"
Rows(Row).Delete
Else
If s < "" Then
Cells(Row, "J").Value = s & Cells(Row, "J").Value
s = ""
End If
End If
Next Row

End Sub