シートをコピーするマクロ

質問

コピー先に関しては、例えば先頭から3つ目のシートの後からということなら、以下のように指定できると思います。

after:=Workbooks(Book1).Sheets(3)

同様の指定をコピー元にもすることができるでしょうか。
例えば、先頭から3つ目のシートから5つのシートをコピー対象とする、という指定は可能でしょうか？

回答No.1

papayuka · ベストアンサー

ループさせるとか、、、

For i = 5 To 3 Step -1
　Workbooks("Book2").Worksheets(i).Copy _
　　　　after:=Workbooks("Book1").Worksheets(3)
Next i

お礼

有難うございます。

回答No.2

zap35

先頭から３番目のシートが必ずしもWorksheets(3)とは限りません。それはシートの順番を変えたり、シートの削除、挿入で順番が変わることがあるからです。

目で見て３番目から５番目のシートを同一BOOK内でコピーするのであれば、以下のマクロで可能です。

Sub Macro3()
Dim idx As Integer
If Worksheets.Count < 5 Then
MsgBox ("コピー対象のワークシートがありません")
Else
For idx = 3 To 5
ThisWorkbook.Worksheets.Item(idx).Copy after:=Sheets(Worksheets.Count)
Next
End If
End Sub

お礼

有難うございます。