在Excel VBA中给出编号

Question

嗨我想给单元格范围内的字符串编号，可以帮助解决这个问题吗

例如，在Excel工作表中。存在以下数据

Col1中

A

乙

C

d

乙

电子

A

˚F

我想要以下结果

Col1 Col2

A 1

B 1

C 1

D 1

B 2

E 1

A 2

F 1

A 3

B 3

Answer 1

请尝试以下代码，如果您需要，请告诉我。

Sub test()
Dim i As Integer
i = Range("a65536").End(xlUp).Row

For k = 1 To i

If Cells(k, 2).Value = "" Then

a = Cells(k, 1).Value
For j = k + 1 To i

b = Cells(j, 1).Value
If a = b Then
temp = temp + 1
Cells(j, 2).Value = temp
End If
Next

temp = 0
End If
Next
End Sub