Excel VBA每4张工作表拆分工作簿

我有一本包含大约100张工作表的工作簿。我想创建25个单独的工作簿，每个工作簿包含4张工作表。我正试图编写一个Excel VBA foor循环来实现这一点，但它会为每1页生成一个工作簿

totalPages = PDDoc.GetNumPages

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

你必须复制以避免弄乱计数，并且新的工作手册有一张额外的工作表-但是快速

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

---

将修复此问题

您需要创建一个移动4张工作表的内部循环或创建一条移动4张工作表的指令。@DavidG.-很明显，我并没有像我当时想的那样牢牢地掌握这个概念。您使用的指导是什么，为每个工作表创建一个工作簿？

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