Remove Duplicates from Multiple Sheets Using VBA

[linister]

Hi Guys,

What's the VBA to remove the duplicate value from Column 1, across multiple sheets? Knowing that I only want the duplicate value in column 1 to be removed, not the data in the column 2 next to it.


Thanks in advance!
Lin

 

[Dossfm0q]

What About

Public Sub RmvDBL()

Dim Sht As Worksheet
Dim Rng As Range
Dim TxT As String
    For Each Sht In ThisWorkbook.Worksheets
    TxT = ""
        With Sht
        LstRw = .Cells(Rows.Count, 1).End(xlUp).Row
            For Each Rng In Sht.Cells(1, 1).Resize(LstRw, 1)
                T = Rng.Value
                If InStr(1, TxT, "|" & T, vbTextCompare) <> 0 Then
                 Rng.ClearContents
                Else
                End If
                TxT = TxT & "|" & T
            Next
        End With
    Next
End Sub

 

[linister]

What About

Public Sub RmvDBL()

Dim Sht As Worksheet
Dim Rng As Range
Dim TxT As String
    For Each Sht In ThisWorkbook.Worksheets
    TxT = ""
        With Sht
        LstRw = .Cells(Rows.Count, 1).End(xlUp).Row
            For Each Rng In Sht.Cells(1, 1).Resize(LstRw, 1)
                T = Rng.Value
                If InStr(1, TxT, "|" & T, vbTextCompare) <> 0 Then
                 Rng.ClearContents
                Else
                End If
                TxT = TxT & "|" & T
            Next
        End With
    Next
End Sub

Thank you!!

 

[Dossfm0q]

You are welcome