e0800100 review 3.5 e0800100 review 3.5
review 4.5 e0800100 review 4.5
review 5.5 e0800100 review 5.5
e0800101 review 2.5 e0800101 review 2.5
review 2.5 e0800101 review 2.5
review 3.5 e0800101 review 3.5
review 52.5 e0800101 review 52.5
e0800201 review 52.5 e0800201 review 52.5
e0800202 review 52.5 e0800202 review 52.5
e0800402 review 52.5 e0800402 review 52.5
review 52.5 e0800402 review 52.5
review 52.5 e0800402 review 52.5
review 52.5 e0800402 review 52.5

OUTPUT INPUT


'Hi rsklhm



Sub MergeOnColumnA()
Dim lastRow As Long
Dim loopRow As Long
Dim i As Integer
Dim last As String

lastRow = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row + 1

For i = 2 To lastRow
If i = 2 Then
last = Cells(i - 1, 1).Value
End If

If Cells(i, 1) = last Or Cells(i, 1) = Cells(i - 1, 1).Value Then

Cells(i, 1) = Cells(i, 2).Value
Cells(i, 2) = Cells(i, 3).Value
Cells(i, 3) = ""
End If

If Cells(i, 3) < "" Then
last = Cells(i, 1).Value
End If
Next i
End Sub



Hello,

Input, output and program attached.

Best Regards

Gabor Sebo
"rsklhm" wrote in message
...