Finding duplicates and merging them

[jrnyman]

I have a column where many of the names will be repeated consecutively (after sorting). I want to use VBA to find a set of replicates and merge them into one cell. Any idea?

 

[Derek]

Hi jrnyman

You could try this code in a macro:

Application.DisplayAlerts = False
For Each Cell In Selection
If ActiveCell.Offset(1, 0).Value = ActiveCell.Value Then
Range(ActiveCell, ActiveCell.Offset(1, 0)).Merge
Else
ActiveCell.Offset(1, 0).Select
End If
Next
End Sub

This seems to do what you want, but test it out first. Be careful because it will merge blank cells if they are in your selection. Particularly make sure the last cell in your selection is not blank (or it will merge right down the column). Don't forget you can't use the undo button with a macro.

Hope this helps
regards
Derek
This message was edited by Derek on 2002-03-13 06:00

 

[Xcel90pro]

is there any way yo put range on it so it only goes from row 4-19 Column A