It worked, except it put each of the values from column B into their own
cells in subsequent columns. I sorta need those values in the same cell.
I do, however, appreciate your efforts.
"Bob Phillips" wrote:
Yep!
Sub MoveData()
Dim iLastRow As Long
Dim i As Long
iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = iLastRow To 2 Step -1
If Cells(i, "A").Value = Cells(i - 1, "A").Value Then
Cells(i, "B").Resize(1, 25).Copy Destination:=Cells(i - 1, "C")
Cells(i, "A").EntireRow.Delete
End If
Next i
End Sub
--
HTH
RP
(remove nothere from the email address if mailing direct)
"adin" wrote in message
...
I'd like this:
Column A Column B
A 1
A 2
A 3
A 4
B 1
B 2
C 1
D 1
to look like:
A 1 2 3 4
B 1 2
C 1
D 1
The numbers should be in the same cell, not different columns.
Easy, right?
Thanks.
|