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

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

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

其次，输入

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

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

拓展阅读：

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

合并所有工作表到一个

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