コピペで使えるVBA!選択範囲の内容を他のシートへ貼り付けるコード

VBA

VBAマクロで複数のブックにあるシートを1つのブックにまとめるコードを紹介します。

コードをコピーすればすぐに使えます。

選択範囲を全シートへコピー

Sheet1のセルA1:C2を選択して実行

A B C D E
1 aaa bbb ccc
2 ddd eee fff

実行後
全てのシートのセルA1:C2同じ内容を貼り付け

A B C D E
1 aaa bbb ccc
2 ddd eee fff

Sub 選択範囲を全シートへコピーする()
データ = Selection
最初行 = Selection(1).Row
最初列 = Selection(1).Column
最終行 = Selection(Selection.Count).Row
最終列 = Selection(Selection.Count).Column
For シートカウント = 1 To Worksheets.Count
Worksheets(シートカウント).Activate
Range(Cells(最初行, 最初列), Cells(最終行, 最終列)) = データ
Next
End Sub

選択範囲を好きなシートへコピー

Sheet1のセルA1:C2を選択して実行

A B C D E
1 aaa bbb ccc
2 ddd eee fff

貼り付けたいシート名を入力する

実行後
Sheet2のセルA1:C2同じ内容を貼り付け

A B C D E
1 aaa bbb ccc
2 ddd eee fff

Sub 選択範囲を好きなシートへコピーする()
データ = Selection
最初行 = Selection(1).Row
最初列 = Selection(1).Column
最終行 = Selection(Selection.Count).Row
最終列 = Selection(Selection.Count).Column
検索文字 = "*" & InputBox(prompt:="コピー先のシート名を入力してください。デフォルトは全て", Default:="*") & "*"
For シートカウント = 1 To Worksheets.Count
If Worksheets(シートカウント).Name Like 検索文字 Then
Worksheets(シートカウント).Activate
Range(Cells(最初行, 最初列), Cells(最終行, 最終列)) = データ
End If
Next
End Sub

コメント

タイトルとURLをコピーしました