Excle表格操作

需求：将excle表格按固定行数拆分为多张表
1.打开待操作的excle文件，按ALT+F11。将会弹出此框

若没有此框，点击excle表格中的开发工具，查看VBA编辑器是否为灰色，如显示灰色，百度下载VBA插件，完成后双击并重新打开待操作文件即可

2.选择下列选项

```
Sub cfb()
Dim r, c, i, WJhangshu, WJshu, bt As Long
r = Range("A" & Rows.Count).End(xlUp).Row
c = Cells(1, Columns.Count).End(xlToLeft).Column
bt = 1 'title
WJhangshu = 250 'num
WJshu = IIf(r - bt Mod 20000, Int((r - bt) / WJhangshu), Int((r - bt) / WJhangshu) + 1)
For i = 0 To WJshu
    Workbooks.Add
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Format(i, String(Len(WJshu), 0)) & ".xlsx"
    Application.DisplayAlerts = True
    ThisWorkbook.ActiveSheet.Range("A1").Resize(bt, c).Copy ActiveSheet.Range("A1")
    ThisWorkbook.ActiveSheet.Range("A" & bt + i * WJhangshu + 1).Resize(WJhangshu, c).Copy _
     ActiveSheet.Range("A" & bt + 1)
    ActiveWorkbook.Close True
Next
End Sub
```

将以上代码复制到空白处，按100行来拆分一个

2.切回待操作的excle表格，Alt+f8.弹出框选择刚才的宏，可以“执行”或者单步执行。

文件数据很多需要时间越久