编号

write123

“姓名与分类”组合是一样的，按顺序排；姓名不一样都从1开始排起。谢谢各位老师！

kuangben8

=COUNTIFS(C$3:C4,C4,D$3:D4,D4)

编号.zip (8.55 KB, 下载次数: 2)

2020-12-4 20:35 上传

点击文件名下载附件

write123

kuangben8 发表于 2020-12-4 20:35
=COUNTIFS(C$3:C4,C4,D$3:D4,D4)

谢谢，表中我已用公式表示。是想用VBA实现这项功能，因为实际数据量很多，公式会卡。

kuangben8

write123 发表于 2020-12-5 07:37
谢谢，表中我已用公式表示。是想用VBA实现这项功能，因为实际数据量很多，公式会卡。

仅仅是这个简单的公式，应对数据量大应该也没有问题。如果公式卡，估计和你表中的其他数据或公式有关吧。建议上传和实际差不多的附件来看看。

准提部林

Sub TEST()
Dim Arr, xD, i&, T$
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([D1], [C65536].End(xlUp))
For i = 4 To UBound(Arr)
    T = Arr(i, 1) & "|" & Arr(i, 2)
    xD(T) = xD(T) + 1
    Arr(i - 3, 1) = xD(T)
Next i
[B4].Resize(UBound(Arr) - 3) = Arr
End Sub

write123

准提部林 发表于 2020-12-6 22:30
Sub TEST()
Dim Arr, xD, i&, T$
Set xD = CreateObject("Scripting.Dictionary")

谢谢帮助！