Excel VBAワークブックを4つのワークシートごとに分割する

Question

約100のワークシートを含むワークブックがあります。それぞれ4枚のブックを含む25の個別ブックを作成したいと思います。私はそのようなことを行う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