Excelの２つのBOOKのデータ統合のVBA

質問

Excelの２つのBOOKの項目が同じリストのデータを統合できるVBAを教えてください。項目は、処理結果、金額、年月日、番号、品名の５項目がA列～E列まででデータは複数行あります。VBAは初心者です。どうぞよろしくお願いいたします。

回答No.2

kkkkkm · ベストアンサー

実際のブック名とシート名に変更してください。
Ws1の方の2行目からA列の最終行までのAからE列のデータを
Ws2の方のA列の最終行の次の行のAからE列に追加します。

Sub Test()
Dim Ws1 As Worksheet, Ws2 As Worksheet
Dim LastRow1 As Long, LastRow2 As Long

Set Ws1 = Workbooks("Excelの２つのBOOKのデータ統合のVBA.xlsm").Sheets("Sheet1")
Set Ws2 = Workbooks("Excelの２つのBOOKのデータ統合のVBA2.xlsx").Sheets("Sheet1")

LastRow1 = Ws1.Cells(Ws1.Rows.Count, "A").End(xlUp).Row
LastRow2 = Ws2.Cells(Ws2.Rows.Count, "A").End(xlUp).Row

Ws2.Cells(LastRow2 + 1, "A").Resize(LastRow1, 5).Value = Ws1.Cells(2, "A").Resize(LastRow1, 5).Value

Set Ws1 = Nothing
Set Ws1 = Nothing
End Sub

お礼

教えて頂きありがとうございました。
希望どおりに動作いたしました。素晴らしくて感動しました。

回答No.1

chayamati

今晩は
結合とはどうする事ですか？
アクセスではリレーションシップ《関連付け》がありますが
ここでは２つのSheetを１つのSheetにする事ですか？
なら一つ目のSheetの末尾に2つ目の情報を追加するですか？

お礼

コメント頂きありがとうございました。
結合ではなく統合です。BOOK1とBOOK2のそれぞれのSheet1のデータを一つに統合したかったのですが、解決いたしました。