Option Explicit
Sub MoveDupe()
Dim i As Long, lr As Long
lr = Range("A" & Rows.Count).End(xlUp).Row
For i = lr To 6 Step -1
If Range("A" & i) = Range("A" & i - 1) Then
Range("B" & i - 1) = Range("B" & i - 1) & " & " & Range("B" & i)
Range("B" & i).EntireRow.Delete
End If
Next i
End Sub
How to install your new code
- Copy the Excel VBA code
- Select the workbook in which you want to store the Excel VBA code
- Press Alt+F11 to open the Visual Basic Editor
- Choose Insert > Module
- Edit > Paste the macro into the module that appeared
- Close the VBEditor
- Save your workbook (Excel 2007+ select a macro-enabled file format, like *.xlsm)
To run the Excel VBA code:- Press Alt-F8 to open the macro list
- Select a macro in the list
- Click the Run button
Bookmarks