7 日前

Excel マクロでデータシートの結合

はじめに

こんにちは。ティーマネジメントのRinです。

いよいよ冬ですね。私はアイスクリームを暖かい部屋でコタツに入って食べるのが大好きです。

みなさまも是非思い思いの冬を楽しみましょう⛄

今回はマクロを使って3つのシートを結合させていこうと思います！

1シートずつコピーして貼り付けてを繰り返すのは大変ですよね。関数を利用しても可能ですが今回は

VBAを書いてみましょう！

マクロでデータシートの結合

マクロを書く準備をする

今回は【大阪支店】【京都支店】【滋賀支店】のシートにあるデータを【全社】のシートにまとめる

マクロを作成します。

前回投稿いたしました【Excelをマクロでもっと便利に】にあります【準備をする】をご参照ください。

それでは作ってみましょう。

1.開発タブのVisual　Basicを選択します。

2.標準モジュールを選択します。

3.右にある空白に下のコードを貼り付けましょう。

Sub シートデータの結合()

	Worksheets("大阪支店").Range("A1").CurrentRegion.Copy _
	　Worksheets("全社").Range("A2")

	Worksheets("京都支店").Range("A1").CurrentRegion.Copy _
	　Worksheets("全社").Range("A1").End(xlDown).Offset(1, 0)

	Worksheets("滋賀支店").Range("A1").CurrentRegion.Copy _
	　Worksheets("全社").Range("A1").End(xlDown).Offset(1, 0)

	Worksheets("全社").Select

End Sub