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代码中应用我上面所述的相同逻辑。

删除复制与右功能

1 个答案: