查找单元格中文本的重复项

Question

我不知道如何创建宏来查找单元格中文本的重复项。

这张图显示了预期的结果。

这张图是我的实际结果。

这是我尝试的代码：

Sub atrod_dublikatus()
' atrod_dublikatus Macro

Dim a, b, skaits As Integer
skaits = 0

For a = 1 To 11
    For b = a + 1 To 11

        If Cells(a, 1).Value = Cells(b, 1) Then
            skait = skait + 1
            Cells(a, 2).Value = skait
            Cells(b, 2).Value = skait

        End If
    Next b
Next a
End Sub

Answer 1

您不需要 VBA 来完成此操作，您可以使用公式和扩展范围来完成此操作（请注意 $ 符号仅在范围的一部分中的位置）

=IF(COUNTIF(A$1:A1,A2)>0,VLOOKUP(A2,A:B,2,0),IF(COUNTIF(A:A,A2)>1,MAX(B$1:B1)+1,""))

在 A1 中放置一个标题（您需要这个才能使公式发挥作用）

将公式放入B2然后往下拉，我的测试数据见下

Heading 
Hello   1
World   2
Blah    3
Off 
On  
Blah    3
Blah    3
World   2
Blah    3
Hello   1