VBA将一个表格拆分成多个新表格

背景：业务给了一个大表格，里面几十万条数据，要拆分成成百上千个小表格，思来想去，vba做这件事是效率最高的。

样表数据源：

请按照这个表头在excel中制作样表(最好将样表放在一个空文件夹里面)
然后调出VB编辑器，输入如下代码运行

Sub 按A列区分内容并拆分到新表格()

Dim i%

arr = Sheets(1).[a1].CurrentRegion

Set d = CreateObject("scripting.dictionary")

For i = 2 To UBound(arr)

If d.exists(arr(i, 1)) Then  '判断key是否存在

Set d(