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

vexce

说明：B列是日期，C列是每天产生的编号。数据行数每天增加。
请问，如何用 VBA 统计每个日期产生的编号，如 D 列所示？

谢谢！



Book 1.zip (8.49 KB, 下载次数: 18)

2023-3-17 10:32 上传

点击文件名下载附件

fzxba

1. Sub test0()
   
2.   Dim ar, i As Long, p As Long
   
3.   ar = Range("A2", Cells(Rows.Count, "C").End(xlUp)).Value
   
4.   For i = 1 To UBound(ar)
   
5.     If IsDate(ar(i, 2)) Then p = i: ar(p, 1) = 0
   
6.     ar(p, 1) = ar(p, 1) + 1
   
7.   Next
   
8.   Range("D2").Resize(UBound(ar), 1) = ar
   
9. End Sub

复制代码

fzxba

清风竹-

请看附件。

vexce

fzxba 发表于 2023-3-17 11:02

1. If IsDate

复制代码

思考真缜密啊，我都没描述到的问题，直接被你这句解决了。谢谢！
一个问题，当B2单元格不是日期时，会下标越界。不知如何解决？

fzxba

vexce 发表于 2023-3-17 12:45
思考真缜密啊，我都没描述到的问题，直接被你这句解决了。谢谢！
一个问题，当B2单元格不是 ...

vexce

fzxba 发表于 2023-3-17 12:55

完美！谢谢。
能否请问一下：
If p than 何解？ If p 后面是否省略了什么？我水平太菜，没看明白为什么加了If p then, 问题就解决了。

fzxba

vexce 发表于 2023-3-17 13:57
完美！谢谢。
能否请问一下：
If p than 何解？ If p 后面是否省略了什么？我水平太菜，没看明白为什么 ...

vexce

fzxba 发表于 2023-3-17 14:16

谢谢这么详细的指点！

ykcbf1100

用字典也可以。