Question

我遇到了问题 - 在我的工作中，我有一张表格，其格式为：

   Column1       Column2
   AA-AA-A1      AA-01-B1
   AA-AA-A1      AA-02-B2
   AA-AB-B5      AA-06-B7

我想要做的是 - 在第一列中仅显示重复项，计算它重复的次数，然后将这些重复项复制到例如第4或第5列格式：AA-AA-A1 2。我是在进行条件格式化之前做的，但由于颜色的原因，需要花费太多时间来检查重复的10,000行。谢谢你的回答。

Answer 1

试试这个

Sub test()
    lastrow = Range("A" & Rows.Count).End(xlUp).Row
    Range("A2", "A" & lastrow).Copy Range("C2")
    Range("C2:C4").RemoveDuplicates Columns:=1, Header:=xlNo
    lastrowunique = Range("C" & Rows.Count).End(xlUp).Row
    For i = 2 To lastrowunique
        Cells(i, 4) = Application.WorksheetFunction.CountIf(Range("A:A"), Cells(i, 3))
    Next i
End Sub

如何使用宏对Excel中的表进行排序 - 搜索和计算重复项

1 个答案: