Excel VBA で二つのシートを比較して合致しないレコードを別のシ

質問

Excel VBA で二つのシートを比較して合致しないレコードを別のシートに抽出する方法

とっても初心者です。

以前合致するレコードの抽出する際、FINDメソッドを使用した抽出方法（下記ソース）を教えてもらったのですが、同じ流れで、一致しないものだけを抽出するにはどうするのが一番良いのでしょうか。

一致するレコードをいったん削除して、残りをコピーするか、1レコードずつ確認しながら処理をすることが思いつくのですが、後者の場合はデータ数が多いと恐ろしく時間がかかるのと、前者の場合データを削除してしまうので、それは避けたく。

一般的にどのように組むものなのかがよくわからなくて。よろしくお願いいたします。

●FINDメソッド使用

Dim FoundCell As Range

For Each tempRange In fax1Table.Rows
　　Set FoundCell = fax2Table.Columns(3).Find(tempRange.Columns(1).Value, , xlValues, xlWhole)
　　　　If Not FoundCell Is Nothing Then
　　　　　　Set dst = dst.Offset(1)
　　　　　　tempRange.copy dst
　　　　End If
Next tempRange

回答No.1

kmetu · ベストアンサー

全てをコピーして、そのコピーから一致するレコードを削除すれば、結果一致しないものだけ抽出したことになります。

お礼

たしかに・・・。

そういうやり方になるんですねぇ。

もっと違うやり方があると思ったものですから。

ありがとうございました。