VBAで A と B のブックを比較して、Bのある列の値をAに転記したいです。

Question

VBAについてです。

前提・実現したいこと

VBAで2つのブックを比較して、データの転記がしたいです。
Book1(sheet1) 転記するシート　
Book2(sheet1) 転記元のシート

このbook1とbook2のある列のデータを比較して、数値が同じならbook2のある列のデータをbook1の対応する列に転記するといった動作をやりたいです。

具体的には、
book1のD列の2行目のデータをbook2のD列から検索して、合致しているデータがあれば、
book2の合致した行にあるY列のデータをbook1の2行目のO列に転記する。
この動作をbook1のD列の3行目、4行目...最終行まで繰り返し処理をしたいです。

それぞれのbookのイメージとして、book1は売上伝票をまとめたようなもので、book2はユーザーのマスタのようなものです。

動きのイメージとしては関数のvlookupに近いと思います。

発生している問題・エラーメッセージ

book1のD2のデータをbook2のD列から検索して、検索が終わったら次のbook1のD3のデータを検索する、という動きがifやforなどを使えばできそうなのはなんとなくわかるのですが、具体的にどうすればいいのかわかりません。涙

該当のソースコード

    Public Sub ブック間転送()
'ループ用の変数
    Dim m As Long
    Dim n As Long
    Dim row1 As Long        'Book1 O列へ書き込む行番号
    Dim s1 As Worksheet
    Dim s2 As Worksheet

    Set s1 = Workbooks("book1.xlsx").Worksheets(1)
    Set s2 = Workbooks("book2.xlsx").Worksheets(1)
    row1 = 2
    'それぞれのシートの比較行を最終行までループ
    For m = 2 To s1.Cells(Rows.Count, 4).End(xlUp).Row
        For n = 2 To s2.Cells(Rows.Count, 4).End(xlUp).Row

            'book1とbook2のD列の比較　これだと列ごとに比較してしまうので
            'book1の(m,4)をbook2のD列の全てのデータと比較して、転記が終わってから次の処理に移りたいです。
            If s1.Cells(m, 4).Value = s2.Cells(n, 4).Value Then
                s1.Cells(row1, "O").Value = s2.Cells(n, "Y").Value
                row1 = row1 + 1
            End If
        Next
    Next
End Sub

試したこと

補足情報（FW/ツールのバージョンなど）

左がbook1で右がbook2です。
book1のD列のd2をbook2のD列から検索して、Y列の1001という値をbook1のO列に転記したいです。
d1なら対応するO列に1000が入ります。これを1行ずつ繰り返すような処理です。

どうぞよろしくお願いいたします。

Comments

[meg_]

掲載のコードはエラーとなり実行できません。まずはエラーを修正してください。

[yama0131]

ご指摘ありがとうございます！
確認して修正します！

[tatsu99]

検索した結果、実際にO列に設定される値を記入していただけませんでしょうか。
Book2のD列は重複した値はないのでしょうか。
Book1はおよそ何行ありますか。
Book2はおよそ何行ありますか。

[yama0131]

検索した結果は画像を差し替えたので確認お願いします！
book2のD列には重複するデータはありません。顧客の名前や番号をリスト化したものになっています。
book1は50行　book2は150行ほどになります。

Answer 1

前回、回答者です。

ただ、book2のY列にデータがなかった場合にbook1のO列に0を入れようと思ったのですが、
その場合はIF文をデータがない場合といったように分岐させるのがいいでしょうか？

はい、そのようにします。以下サンプルです。

Public Sub ブック間転送()
'ループ用の変数
    Dim m As Long
    Dim n As Long
    Dim row1 As Long        'Book1 O列へ書き込む行番号
    Dim s1 As Worksheet
    Dim s2 As Worksheet

    Set s1 = Workbooks("book1.xlsx").Worksheets(1)
    Set s2 = Workbooks("book2.xlsx").Worksheets(1)
    'それぞれのシートの比較行を最終行までループ
    For m = 2 To s1.Cells(Rows.Count, 4).End(xlUp).Row
        s1.Cells(m, "O").Value = ""
        For n = 2 To s2.Cells(Rows.Count, 4).End(xlUp).Row

            'book1とbook2のD列の比較　これだと列ごとに比較してしまうので
            'book1の(m,4)をbook2のD列の全てのデータと比較して、転記が終わってから次の処理に移りたいです。
            If s1.Cells(m, 4).Value = s2.Cells(n, 4).Value Then
                If s2.Cells(n, "Y").Value = "" Then
                    s1.Cells(m, "O").Value = 0
                Else
                    s1.Cells(m, "O").Value = s2.Cells(n, "Y").Value
                End If
                Exit For
            End If
        Next
    Next
End Sub

Comments

[yama0131]

IFを2つ使えばよかったんですね！
いろいろとありがとうございました！
もっと勉強します！

Answer 2

あなたの提示されたソースに追加及び修正を加えました。

Public Sub ブック間転送()
'ループ用の変数
    Dim m As Long
    Dim n As Long
    Dim row1 As Long        'Book1 O列へ書き込む行番号
    Dim s1 As Worksheet
    Dim s2 As Worksheet

    Set s1 = Workbooks("book1.xlsx").Worksheets(1)
    Set s2 = Workbooks("book2.xlsx").Worksheets(1)
    row1 = 2
    'それぞれのシートの比較行を最終行までループ
    For m = 2 To s1.Cells(Rows.Count, 4).End(xlUp).Row
        For n = 2 To s2.Cells(Rows.Count, 4).End(xlUp).Row

            'book1とbook2のD列の比較　これだと列ごとに比較してしまうので
            'book1の(m,4)をbook2のD列の全てのデータと比較して、転記が終わってから次の処理に移りたいです。
            If s1.Cells(m, 4).Value = s2.Cells(n, 4).Value Then
                s1.Cells(row1, "O").Value = s2.Cells(n, "Y").Value
                row1 = row1 + 1
            End If
        Next
    Next
End Sub

Comments

[yama0131]

できました！ありがとうございました！
ただ、book2のY列にデータがなかった場合にbook1のO列に0を入れようと思ったのですが、
その場合はIF文をデータがない場合といったように分岐させるのがいいでしょうか？

Answer 3

添付図の左側がBook1で右側がBook2です。
Y列のd2Y1,d2Y2,d3Y1（黄色のセル）がBook1のO列に並ぶかと思いますが、
どのように並べば良いのでしょうか。
O2＝d2Y1
O3＝d2Y2
O4＝d3Y1
でよいのですか？

Comments

[yama0131]

その動きで間違いないです！

[yama0131]

見間違えてしまって申し訳ないのですが、この場合だと O2 には何も入らないような形になります！
補足情報に画像付きで説明を載せたので、また見て頂けると幸いです！

Answer 4

Excelだけではなく
CSVでも出来ますか？