VBA
我之前写过一个
VBA程序，给你参考。设这9W多行的数据在“总表”的工作表中：Sub 按钮1_Click() 拆分大表（未处理表头）i = 1 '从第一行起处理j = 1 '分表名称从 1 起lastrow = Cells(Rows.Count, 1).End(3).Row '找最后一行Do While i lastrow + 1 '循环起 Sheets(总表).Select '选择总表 Range(Rows(i), Rows(i + 899)).Select '选择1~900行 Selection.Copy '复制 Sheets.Add After:=ActiveSheet '新建一个工作表 ActiveSheet.Name = j '修改分表名称 Range(A1).Select '在A1位置 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False '粘贴 i = i + 900 '向下900行 j = j + 1 '分表名称1Loop '循环止End Sub
