Excel VBA每4个工作表分割工作簿

我有一个包含大约100个工作表的工作簿。 我想创build25个单独的工作簿，每个工作簿包含4个工作表。 我正在尝试编写一个Excel VBA foor loop来做这样的工作 – 但是它为每个页面生成一个工作簿。

 totalPages = PDDoc.GetNumPages For i = 1 To totalPages - 4 'This is where you would add the workbook and transfer the page Next i 

Answer 1

 Sub SplitPages() Dim i As Integer Dim wb As Workbook For i = 1 To ThisWorkbook.Worksheets.Count If i Mod 4 = 1 Then Set wb = Workbooks.Add End If ThisWorkbook.Worksheets(i).Copy wb.Worksheets(1) Next i End Sub 

你必须复制，以免弄乱计数，新的工作簿有一个额外的表 – 但一个快速

  for each wb in workbooks:wb.sheets("sheet1").delete:next wb 

将解决这个问题