Macro - Deleting Duplicate Cell Content

[Gessen]

Hi Guys,

Conceptually this doesn't sound too crazy to me, I just don't know VBA. So I could really use your help! I need a Macro to delete duplicate cell content (String) within a column section, until it hits an empty ("") cell, with a starting cell based off of a specified column and row number. Can anyone help me put something together? I've got a sheet that pulls a lot of data from other sheets and creates some duplicate content. I just want to be able to clean them up. The duplicate content might not be one after another. The duplicate may be at the opposite end of the list. Thanks for your help!

-Gessen

 

[b.downey]

Sub DeleteDuplicate()
Dim RowNo As Long
Dim ColNo As Long
Dim PrevCell As String

Dim ws As Worksheet

ColNo = 3 ' Column to check for Duplicates

'Need to sort the column prior to proceeding

Set ws = ThisWorkbook.Worksheets(1)

RowNo = 1
PrevCell = Trim(ws.Cells(RowNo, ColNo))
RowNo = RowNo + 1
Do While Len(Trim(ws.Cells(RowNo, ColNo))) > 0
If Trim(ws.Cells(RowNo, ColNo)) = PrevCell Then
ws.Cells(RowNo, ColNo).Delete Shift:=xlUp
End If
PrevCell = ws.Cells(RowNo, ColNo)
RowNo = RowNo + 1
Loop
End Sub