条件チェック: If ws.Cells(i

行のループ処理: For i = 2 To lastRowで、各行を順番に処理します（ヘッダー行を除く）。

最終行の取得: 前述のコードと同様です。

ファイルのループ処理、ブックのオープン、シートのループ処理: 前述のコードと同様です。

ブックの設定、ファイルパスの指定、ファイル検索: 前述のコードと同様です。

変数の宣言: 前述のコードと同様に必要な変数を宣言します。

MsgBox “”データ集計が完了しました！””

Loop

fileName = Dir()

‘ 次のファイル

wbSource.Close SaveChanges:=False

‘ コピー元のブックを閉じる

Next ws

End If