如何快速的把一个EXCEL工作簿分成多个工作表

Question

如何快速的把一个EXCEL工作簿分成多个在该工作簿下的工作表，要求是每两列分成一个工作表，如：AB、CD、EF...列各分成一个工作表，最好工作表的命名为第二列的首行。

Answer 1

要用VBA处理：设你的总表的名称 为“总表”，请按Alt+F11，打开VBA编辑器，插入一个模块，把下面的代码贴进去，按F5执行

Sub 拆分()
LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column    '看总表有多少列
For i = LastColumn To 4 Step -2    '先从最后两列开始，一路向左
    Range(Columns(i - 1), Columns(i)).Select    '选择两列
    Selection.Cut    '剪切
    Sheets.Add After:=ActiveSheet    '增加 一个工作表
    ActiveSheet.Paste    '粘贴
    ActiveSheet.Name = Cells(1, 2)    '将表名称改为B2的内容
    Sheets("总表").Select    '回到总表
Next    '下两列
ActiveSheet.Name = Cells(1, 2)    '将总表名称也改为B2内容
End Sub

已测试通过。

追问

您好，如果列中间有空白列怎么办？

Answer 2

可以用vba实现这个功能，数据量小的话还是手动分吧

Answer 3

如何将一张工作表拆分成多个工作表？