查找重复的字符

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