将excel按照某一列拆分成多个文件

1.打开目标excel,按alt + f11键打开VBE窗口 2.选择插入->模块粘贴下面代码到编辑器中 Sub 保留表头拆分数据为若干新工作簿()     Dim arr, d As Object, k, t, i&, lc%, rng As Range, c%     c = Application.InputBox("请输入拆分列号", , 4, , , , , 1)     If c =

>>阅读原文<<