給在Excel VBA

Question

嗨編號我想給的編號在單元格區域中的字符串，可以解決這一

例如，在Excel中sheet..Following數據有人幫助是目前

COL1

---

甲

乙

ç

d

乙

Ë

甲

˚F

我想以下結果

Col1中col2的

---

A 1

乙1

的C 1

d 1

B 2

ë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