excel每隔幾列拆分為工作簿，VBA如何操作？

右鍵點工作表名-查看代碼 ，如下代碼復制進去 ，F5運行， 生成文件在當前文件目錄下

Sub 拆分()

Set sh = ActiveSheet

For i = 1 To sh.[iv1].End(xlToLeft).Column Step 5

WkName = sh.Cells(2, i + 1)

Sheets.Add.Name = WkName

sh.Columns(i).Resize(10000, 5).Copy Sheets(CStr(WkName)).[a1]

Sheets(CStr(WkName)).Copy

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & WkName & ".xlsx"

ActiveWorkbook.Close True

Next

End Sub

上一篇:matlab編程200行工作量大嘛

下一篇:智能會議中控系統有什麽特點?