利用VBA拆分包含多行数据的excel表格

首先，打开数据文件中，按住alt依次按f11,i,m. 即打开VBA的模块
粘贴下面代码后按f5运行,会在该目录下得到拆分后的文件.


Sub test()
Application.ScreenUpdating = False
p = ThisWorkbook.Path & "\"
With ActiveSheet
For r = 1 To .Range("a1048576").End(xlUp).Row Step 3000
Set wb = Workbooks.Add
.Rows(r).Resize(3000).Copy wb.Sheets(1).Cells(1)
wb.SaveAs p & r & ".xls", xlNormal
wb.Close
Next
End With
Application.ScreenUpdating = True

End Sub

备注：如果将r改为1，那么就只会收集第1个3000条数据。