要求
有个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 =