Excelマクロ超入門　会計データを1つのシートにまとめるマクロ

2020年4月15日

URLをコピーしました！

会計データを1つのシートにまとめるに何度もコピペする？

会計データは年ごとあるいは年度ごとに分けられています。

弥生会計だと、１つのデータで3年分（3期分）のデータしか持てませんし、クラウド会計だとそれ以上にデータを残せますが、データ環境が違いますので、画面の切り替えは必要になります。

過去のデータも含めて、推移がわかる資料などをExcelでつくりたい場合には、まずは年（期）ごとにデータをダウンロードする必要があります。（これがけっこう大変…）

CSVファイルも年ごとにファイル1つなので、5年分ならファイルは5つ、6年あれば6つです。

それぞれのファイルを開いて、1つのシートにコピペするわけですが、これを手でやっていると、なかなか大変です。

CSVファイルを開く
元データをコピー
新しいシートに貼り付ける。

この処理を年数の分だけ、繰り返す必要があります。ミスする可能性もありますし。当然ながら時間もかかります。

こういった処理も Excel マクロを使うことで、速く確実に処理することができます。

マクロを書く前に手で動かした場合の進め方を考える

それぞれのシートのデータを何度もコピペすることなく1枚のシートにまとめるにはマクロを使うと便利です。

今回の例は、年別のデータを1つのブックにドラッグしてまとめてあるという前提です。

マクロを書くときには、最初に手でやるならどういう動きをするか、流れをまとめてみるとわかりやすくなります。

今回の流れは次のような感じにしています。

新しいシートを追加して、そこに各年分のデータをコピペしていきます。
2015年のシートを選択して会計データをコピーし、新しいシートに貼り付けます。
以後、各年のデータをコピーして連続して貼り付けます。

例えば、2016年のデータは、新しいシートにすでに貼り付けた2015年のデータの最終行を見つけて、その次の行に貼り付けます。

以下、2017年、2018年、2019年…と同じ処理を繰り返していきます。

この処理をマクロで書いていくことになります。

その前に。マクロを使うには、まずは初期設定が必要です。詳しくはこちらの記事で。

Excel VBA超入門　マクロを書いてみたい人集合！　仕事ときどきアウトプットがおすすめ | GO for IT 〜税理士植村豪 Official Blog

会計データを1つにまとめるマクロなら4秒で完了

今回はこういったマクロを書いてみました。

Sub data_marge()

'■変数の宣言

    Dim max_row As Long
    Dim mrg_row As Long
    Dim i As Long
    
    
'■集計シートの追加
    
    Worksheets.Add before:=Worksheets(1)
    Worksheets(1).Name = "data"

'■各データシートのコピー
    
    For i = 2 To Sheets.Count
        
        max_row = Worksheets(i).Range("A" & Rows.Count).End(xlUp).Row
        Worksheets(i).Rows("1:" & max_row).Copy
        
        mrg_row = Worksheets("data").Range("A" & Rows.Count).End(xlUp).Row + 1
        Worksheets("data").Range("A" & mrg_row).PasteSpecial
    
    Next
  
End Sub

Sub data_marge()

'■変数の宣言

Dim max_row As Long

Dim mrg_row As Long

Dim i As Long

'■集計シートの追加

Worksheets.Add before:=Worksheets(1)

Worksheets(1).Name = "data"

'■各データシートのコピー

For i = 2 To Sheets.Count

max_row = Worksheets(i).Range("A" & Rows.Count).End(xlUp).Row

Worksheets(i).Rows("1:" & max_row).Copy

mrg_row = Worksheets("data").Range("A" & Rows.Count).End(xlUp).Row + 1

Worksheets("data").Range("A" & mrg_row).PasteSpecial

End Sub

集計シートの追加

各シートをまとめるシートを1枚準備します。

この年別のシートの先頭に新しいシートを追加します。

「Worksheets.Add before:=Worksheets(1)」で1枚目のシートの前にワークシートを追加すると表現しています。

'■集計シートの追加
    
    Worksheets.Add before:=Worksheets(1)
    Worksheets(1).Name = "data"

'■集計シートの追加

Worksheets.Add before:=Worksheets(1)

Worksheets(1).Name = "data"

これは、add（追加）、before（前）という英語からもなんとなくわかるところですが、beforeの後ろに「：」をつけないとエラーになります。

新たにシートを追加したことで、1枚目のシートは新しいシートに変わっています。その追加したシートの名前を「Worksheets(1).Name = “data”」で「data」に変えています。

まぁ、名前は何でもいいのですが。

コピペ処理の繰り返し

For〜Nextで繰り返しを意味し、この間に書かれている処理を繰り返します。

'■各データシートのコピー
    
    For i = 2 To Sheets.Count
        
        max_row = Worksheets(i).Range("A" & Rows.Count).End(xlUp).Row
        Worksheets(i).Rows("1:" & max_row).Copy
        
        mrg_row = Worksheets("data").Range("A" & Rows.Count).End(xlUp).Row + 1
        Worksheets("data").Range("A" & mrg_row).PasteSpecial
    
    Next