首页 > 其他分享 >【VBA】シートのコピー方法まとめ【コピーして名前変更、末尾や先頭、新規ブック、複数のコピーをする】

【VBA】シートのコピー方法まとめ【コピーして名前変更、末尾や先頭、新規ブック、複数のコピーをする】

时间:2024-10-02 19:44:37浏览次数:6  
标签:VBA End Sub 名前 Sheets 先頭 Copy 新規

参考元:【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

相关文章