excel,FGHIJ列单元格显示ABCDE列相邻单元格中相同数据的个数

Question

Sub test()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
For i = 1 To Cells(Rows.Count, 1).End(3).Row
d(Cells(i, 1).Value) = d(Cells(i, 1).Value) + 1
If Cells(i, 1) <> Cells(i + 1, 1) Then
ary = d.items
Cells(i, 2) = ary(0)
d.RemoveAll
End If
Next
End Sub
求个完整的函数或宏

Answer 1

假设你的数据是从L1开始，结果在O至Q列 复制从L2开始，粘贴到M列 N列=L1&M1，填充公式 Q列（即你要的结果）=COUNTIF(N:N,O1&P1)5315