使用Right函数删除重复

Question

我正在寻找一个宏来删除列中的重复项，关于它们的最后一个值，例如

DES_FFAs_556
asda_FRF_556

因为556是相同的，所以应该删除它。

现在，我得到了每个单元格的最后4位数字，但我不知道如何用它删除重复项

Sub duplicates()

Dim i As Long
Dim res As String
Dim WB As Workbook
Dim WS As Worksheet
Dim total As Long

Set WB = Workbooks("MQB37W - SW Architecture Matrix_Nw")
Set WS = WB.Sheets("SW Architecture Main - In...")

With WS
    total = .Cells(Rows.Count, 1).End(xlUp).Row

    For i = 4 To total
        res = Right(Cells(i, "A").Value, 4)
        WS.Range("A4:total").RemoveDuplicates Columns:=1, Header:=xlNo
    Next
End With
End Sub

Answer 1

为此，您不需要VBA。您可以在新的列中使用此tutorial中的代码，然后可以根据该列进行过滤、条件格式化或删除行。如果您希望仅指示第一次出现后的行，则可以使用COUNTIF。当然，如果您需要VBA来做其他事情，您可以在VBA代码中应用我上面描述的相同逻辑。