请问，如何用 VBA 统计每个日期产生的编号，如 D 列所示？

vexce

ykcbf1100 发表于 2023-3-17 14:59
用字典也可以。

谢谢！今天花送完了，稍后补上。

gwjkkkkk

参与一下。。。

准提部林

Sub TEST_A1()
Dim Arr, R&, i&
R = [c65536].End(3).Row
Arr = [B2].Resize(R - 1, 2)
For i = R - 1 To 1 Step -1
    If IsDate(Arr(i, 1)) Then Arr(i, 1) = R - i: R = i
Next i
[d2].Resize(UBound(Arr)) = Arr
End Sub

vexce

准提部林 发表于 2023-3-17 20:25
Sub TEST_A1()
Dim Arr, R&, i&
R = [c65536].End(3).Row

屡次承蒙帮助，不胜感激！