Excel VBA 检查序号是否遗漏

问题如下：

解决的思路如下：

代码运行的结果如下：

代码如下:

代码解析

1：dim定义变量

2：把序号的区域，放入数组

3：用min，max函数，分别求出数组的最大值及最小值

可参考之前分布的文章《Excel VBA 数组的最值、求和、个数统计》

4：创建字典

5：用if函数，确定需要的最小值为1

6：创建一个数组，用于放入需求的数值

6：循环数组。先判断序号是否有重复。

7：循环序号，判断序号是否已经写入

8：清空原单元格的内容，并写入brr数组

10：清空数组，清空字典。