VBA - 字典实例集锦

---

前言

本文所有代码均来源于网络公开内容中的知名EXCEL VBA版主蓝桥玄霜，由于学习需要，故编辑、整理于此，文中所涉代码著作权归原作者所有！文中每一部分代码均有标注出处来源。

1. 按接收日期批量不重复编号

• 问题：

  以接收日期为主分项编号，同一天接收到的不同“大项目号”和“文件编号”给予序列编号，同一天“大项目号和文件编号重复”的编为一个号，同一天编号不重复。比如2011-10-14只有1-2两个编号，2011-10-11有1-6共六个编号，其它按接收日期依此类推。

  如图 1-1：

  

图 1-1

• 代码：

  Sub lqxs()
      Dim Arr, i&