把excel中的数据，按条件分割成多个文件

要求

有个excel文件，把文件中的数据按照某列，将相同的数据存为一个excel文件。

VBA代码

执行下面的代码后，会在该excel的同级目录下创建一个新文件夹“拆分出的表格”，拆分后生成的新文件会存在这个目录下。

我拆分了30个文件，大约一分钟时间。请耐心等待。
如果你感觉没有进度，你可以看一下同级目录下“拆分出的表格”文件夹中是否在缓慢生成新的文件。

Sub 拆分成多个文件()

    '输入用户想要拆分的工作表
    Dim sheet_name
    sheet_name = Application.InputBox("请输入拆分工作表的名称：")
    Worksheets(sheet_name).Select

    '输入获取拆分需要的条件列
    Dim col_name
    col_name = Application.InputBox("请输入拆分依据的列号(如A):")

    '输入拆分的开始行，要求输入的是数字
    Dim start_row As Integer
    start_row = Application.InputBox(prompt:="请输入拆分的开始行:", Type:=1)

    '暂停屏幕更新
    Application.ScreenUpdating = False

    '工作表的总行数
    Dim end_row
    end_row =