excel每100个数据自动分配到一个工作簿

近期采集了大量数据，大概几十万，需要实现每100个数据自动分配到一个工作簿，手工势必显得比较麻烦，其实还有有诀窍的

首先，点击要分配数据的工作簿，点击 查看源码，如图：

其次，输入

1 2 3 4 5 6 7 8 9 10 11

Sub test()     Dim rng As Range, i%     Set rng = Sheets(1).[a1:a100]     For i = 1 To 100         With Sheets.Add(after:=ActiveSheet)             .Name = (i - 1) * 100 + 1 & "-" & i * 100             rng.Copy .[a1]             Set rng = rng.Offset(100)         End With     Next End Sub

然后点击上面的运行即可完成需求

合并所有工作表到一个

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Comb() Dim i% On Error Resume Next Sheets(1).Select Worksheets.Add '新建一个工作表 Sheets(1).Name = "汇总工作表" '对新建工作表重命名 For i = 2 To Sheets.Count 'For循环，遍历所有工作表 Sheets(i).Activate '激活工作表 Range("a1").Select Selection.CurrentRegion.Select '选择活动工作表数据区域 Selection.Copy Destination:=Sheets(1).Range("a65536").End(xlUp).Offset(1) '粘贴到汇总工作中 Next MsgBox ("工作表已全部合并到指定工作表中！") '弹窗提示合并完成 End Sub