Hello all,
In this Thread Jindon has provided a sample Workbook, with some fantastic Code.
http://www.ozgrid.com/forum/showthread.php?t=162443
And here is the Code:
Code
Sub Test()
Dim r As Range, w, e, txt As String
With CreateObject("Scripting.Dictionary")
.CompareMode = 1
For Each r In Range("a1").CurrentRegion
If Not .exists(r.Value) Then
.Item(r.Value) = VBA.Array(False, r.Address)
Else
w = .Item(r.Value)
w(0) = True
.Item(r.Value) = w
End If
Next
For Each e In .keys
If .Item(e)(0) Then
txt = txt & "," & .Item(e)(1)
If Len(txt) > 240 Then
Range(Mid$(txt, 2)).ClearContents
txt = ""
End If
End If
Next
End With
If Len(txt) Then Range(Mid$(txt, 2)).ClearContents
End Sub
Display More
How would one tweak this Code to ignore empty cells, so that it does not consider empty cells as duplicates?
Thank you.