我的一个EXCEL表格中有100个工作表，怎样把这个表格分割成每5个工作表为1个表格？

Question

如题。求VBA脚本。谢谢！

Answer 1

Private Sub mergesheets()
Dim i%, j%, r%
Application.DisplayAlerts = False
For i = 1 To 96 Step 5
 For j = i + 1 To i + 4
  r = Sheets(i).UsedRange.Rows.Count + 1
  Sheets(i).Cells(r, 1) = Sheets(j).UsedRange
 Next
Next
For i = 96 To 1 Step -5
 For j = i + 4 To i + 1 Step -1
  Sheets(j).Delete
 Next
Next
Application.DisplayAlerts = True
End Sub希望对你有用

Answer 2

Sub test()
On Error GoTo err
Dim wb As Workbook
Set wb = Workbooks("Book1.xls")
MsgBox "文件已打开"
Exit Sub
err: MsgBox "文件未打开"
End Sub