参考元:【VBA】シートのコピー方法まとめ【コピーして名前変更、末尾や先頭、新規ブック、複数のコピーをする】
https://daitaideit.com/vba-sheet-copy/
シートを、特定シートの前後や、先頭、末尾にコピーするには、「before:=」と「after:=」を使って、コピー先のシートを指定することでできます。
新規ブックにコピーする場合は、「.Copy」のみを入力することでできます。
アクティブシートの左側にコピー
Sub TEST1()
'アクティブシートの左側にコピー
ActiveSheet.Copy before:=ActiveSheet
End Sub
実行結果:
末尾にコピー
Sub TEST6()
'末尾にコピー
ActiveSheet.Copy after:=Sheets(Sheets.Count)
End Sub
新規ブックにコピー
新規ブックにコピーしてみます。
引数を入力しないで、「.Copy」のみを入力します。
Sub TEST7()
'新規ブックにコピー
ActiveSheet.Copy
End Sub
複数シートをコピー
複数シートをコピー
配列を使って、複数シートをコピーしてみます。
Sub TEST8()
'複数シートをコピー
Sheets(Array("A", "B")).Copy after:=Sheets(Sheets.Count)
End Sub
コピーして名前を変更
Sub TEST10()
'シートをコピー
Sheets("B").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = "ABC" '新規シートの名前を変更
End Sub
同じシートを複数作成する
Sub TEST11()
For i = 1 To 3
'シートコピー
Sheets("B").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = i '新規シートの名前を変更
Next
End Sub
标签:VBA,End,Sub,名前,Sheets,先頭,Copy,新規
From: https://www.cnblogs.com/langQ/p/18445011