Vba 范围内查找和增量计数器

我想通过使用

“Date Column”

中的一个数据并进行年度递增计数来重新组织一些数据并为它们创建唯一的ID。我想从

“Date Column”

中获取一年的最后两位数字，然后在后面做一个破折号（-），然后进行计数。这在vba中是可行的，还是仅在标准公式中？如果是，怎么做？ 以下是一个例子：

-----------------------------
Date        | Desired Result
----------------------------
1/2/2001    | 01-0001
1/3/2001    | 01-0002
5/4/2001    | 01-0003
9/1/2002    | 02-0001
8/9/2003    | 03-0001
10/30/2003  | 03-0003
12/31/2005  | 05-0001
5/6/2006    | 06-0001
5/7/2006    | 06-0002
5/8/2006    | 06-0003
7/9/2006    | 06-0004
8/10/2006   | 06-0005
11/11/2006  | 06-0006
12/12/2006  | 06-0007

---

在B2中尝试此项并填充

=TEXT(A2, "yy")&TEXT(COUNTIFS(A$2:A2, ">="&DATE(YEAR(A2), 1, 1), A$2:A2, "<"&DATE(YEAR(A2)+1, 1, 1)), "-0000")

---

=TEXT（A2，“yy”）&TEXT（COUNTIFS）（A$2:A2，“>=”&DATE（A$2:A2），1，1），A$2:A2，“在B2中尝试并填写

=TEXT(A2, "yy")&TEXT(COUNTIFS(A$2:A2, ">="&DATE(YEAR(A2), 1, 1), A$2:A2, "<"&DATE(YEAR(A2)+1, 1, 1)), "-0000")

=文本（A2，“yy”）&文本（COUNTIFS）（A$2:A2，“>=”和日期（A$2:A2，1，1），A$2:A2