Excel VBA每隔4個工作表拆分工作簿

Question

我有一本包含約100個工作表的工作簿。 我想創建25個單獨的工作簿，每個工作簿包含4張紙。 我正在嘗試編寫一個將執行此操作的Excel VBA foor loop -但它正在為每1頁生成一個工作簿。

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

會解決的