VBA代码实现Excel按A列拆分多文件

使用方法：
1、将需要拆分的EXCEL文件放在一个单独的文件夹，打开这个EXCEL文件，并关闭其他打开的EXCEL文件；
2、excel表格保留一行标题行，并把第一列数据填写为拆分项（文件拆分时将按第一列的内容进行归类合并为一个文件），整个表格不要合并单元格；
3、在打开的EXCEL工作表名称上点右键选择查看代码；
4、选择菜单栏：插入-模块，将以下代码复制到右边的代码框中，点击菜单：运行-运行子过程/用户窗体,直到弹出处理完毕对话框；
5、在文件夹中将生成拆分好的文件，可关闭这个EXCEL文件，选择不保存。

代码如下：

Sub 按照总表A列数据分类存到各新表()
    Dim arr, sht As Worksheet, temp As String, i As Long, k, t, rng1 As Range
    Set rng1 = Range("A1:BB1")
    arr = Range("a2:BB" & [a65536].End(xlUp).Row).Value  '减去黄色区域
    Application.ScreenUpdating = False
    With CreateObject("scripting.dictionary")
        For i = 1 To UBound(arr)
            temp = arr(i, 1)
            If temp <> "" Then
                If Not .exists(temp) Then
                    .Add temp, Range("a" & i + 1).Resize(1, 54)
                Else
                    Set .Item(temp) = Union(.Item(temp), Range("a" & i + 1).Resize(1, 54))
                End If
            End If
        Next i
        k = .keys
        t = .Items
        On Error Resume Next
        For i = 0 To .Count - 1
            If Len(Sheets(k(i)).Name) > 0 Then '判断工作表存在