エクセルでシート間の比較をしたいのですが。。。

Excel2000を使用しています。
2つのシート間で同一データの有無の比較がしたいのです。
仮に比較したいものをシートＡ・Ｂとします。
それぞれ項目として、大字・小字・地番があり、それが同じ時に同一データと判断します。
件数にすると4000～5000件ぐらいあり、関数でやってみたのですが、うまくいきません。
比較で結果としては、下記の3パターンがあります。

1）ＡとＢに有る。
2）Ａに有って、Ｂに無い。
3）Ｂに有って、Ａに無い。

希望としては、新たなシートに 2）と 3）のデータのみ抽出して、そのデータが 2）なのか 3）なのかわかるようにしたいのです。宜しくお願いします。

No.3 ベストアンサー 回答者： sakenomo 回答日時： 2003/09/23 03:18

ＶＢＡでやってみました。

エクセルのウィンドウ左下にあるシートタブの、左から１番目と２番目のシートを比較します。

各々のシートのＡ列に大字、Ｂ列に小字、Ｃ列に地番を置いてください。
セルＡ１から下に、空白のセルがでるまで検索、比較します。
１）はSub両方()で、
２）３）はSub片方()でどうぞ。

Sub 両方()
Dim c As Range, c2 As Range, c3 As Range, p As Byte
Dim w As Worksheet, f As Long

Set c = Worksheets(1).Range("A1:C1")
Set c2 = Worksheets(2).Range("A1:C1")
Set w = Worksheets.Add(, Worksheets(2))
w.Range("A1").Value = Worksheets(1).Name & _
" と、 " & Worksheets(2).Name & " 両方にある"
Set c3 = w.Range("A2:C2")

Do
Do While c2.Columns(1).Value <> ""
For p = 1 To 3
If c.Columns(p).Value <> c2.Columns(p).Value Then Exit For
If p = 3 Then
c3.Offset(f, 0).Value = c.Value
f = f + 1
Exit Do
End If
Next p
Set c2 = c2.Offset(1, 0)
Loop
Set c2 = Worksheets(2).Range("A1:C1")
Set c = c.Offset(1, 0)
Loop Until c.Columns(1).Value = ""
End Sub


Sub 片方()
Dim c As Range, c2 As Range, c3 As Range, p As Byte
Dim w As Worksheet, f As Long, i As Byte, n As Byte, k As Byte
Set w = Worksheets.Add(, Worksheets(2))
w.Range("A1").Value = Worksheets(1).Name & " だけにある"
Set c3 = w.Range("A2:C2")

For n = 1 To 2
If n = 1 Then
k = 2
Else
k = 1
f = 0
w.Range("E1").Value = Worksheets(n).Name & " だけにある"
Set c3 = w.Range("E2:G2")
End If

Set c = Worksheets(n).Range("A1:C1")
Set c2 = Worksheets(k).Range("A1:C1")

Do
i = 0
Do
For p = 1 To 3
If c.Columns(p).Value <> c2.Columns(p).Value Then Exit For
If p = 3 Then
i = 1
End If
Next p
Set c2 = c2.Offset(1, 0)
Loop Until c2.Columns(1).Value = ""
If i = 0 Then
c3.Offset(f, 0).Value = c.Value
f = f + 1
End If
Set c2 = Worksheets(k).Range("A1:C1")
Set c = c.Offset(1, 0)
Loop Until c.Columns(1).Value = ""
Next n
End Sub

No.6 回答者： sakenomo 回答日時： 2003/09/23 09:17

#5です、またまた補足です。

何度もすみません。

Sub片方()の下から１４行目あたり、

＞If p = 3 Then
＞i = 1
＞End If

を、

If p = 3 Then
i = 1
Exit Do　 '←を追加
End If

としていただけると、処理時間が短縮されます。

この回答へのお礼

回答、ありがとうございます。
何回も補足していただき、とてもうれしいです。
貴重な時間をいただきました。感謝します。

お礼日時：2003/09/23 20:23

No.5 回答者： sakenomo 回答日時： 2003/09/23 03:46

3＃4＃です。

また補足を。

見た目は同じでも、セル中の文字列の前後にスペースがあると、うまくヒットしません。スペースが入っていることが考えられる場合は、各々のSubプロシージャの

If c.Columns(p).Value <> c2.Columns(p).Value Then Exit For

を、

If Trim(c.Columns(p).Value) <> Trim(c2.Columns(p).Value) Then Exit For

に書き換えてください。

No.4 回答者： sakenomo 回答日時： 2003/09/23 03:27

＃３です。

ちょっと補足を。

＞セルＡ１から下に、空白のセルがでるまで検索、比較します。

Ａ列に空白のセルがでてくるまで、という意味です。
Ｂ、Ｃ列に空白のセルがあってもかまいません。

あと、各々のシートに重複するデータがある場合は想定していません。

No.2 回答者： imogasi 回答日時： 2003/09/22 22:08

（１）優秀なデータベースソフトを使う（＃１のご回答では桐なら易しく出来るそうです）

（２）ＶＢＡ等のプログラムが組めて組む
のでないと難しいと思います。関数などでは、出来ても極く複雑になって、実質出来ないといえるでしょう。
敢えてやるなら、Ａ列(大字）Ｂ列（小字）Ｃ列（番地）の
各々の内容的な最大文字数を決めて、左寄せ的に実質内容（文字）をセットし、残り（右後尾）最大文字数まではスペースを入れた文字列を作ることです。
Ａ列の最大文字数を全角７文字と決めたとする。
山田北と入っているセルを、山田北△△△△（△は全角スペースを表す）と言う内容のセルにする。
元禄新田と入っているセルを、元禄新田△△△と言う内容のセルにする。
同じことをＢ、Ｃ列について行う。
そして＝Ａ１＆Ｂ１＆Ｃ１のようにして、結合したセルを
Ｄ列ならＤ列に作る。
シートＡとシートＢの両方でそれを行う。
なぜコンな面倒なことが必要かピンとこなければ、この方法もプログラムも無理でしょう。
これでマッチングキーが出来あがります。
そしてＶＬＯＯＫＵＰ関数（第４引数はＦＡＬＳＥ）を使って、シートＢのＤ列を表（テーブル）と見たてて、シートＡのＤ列の値で、表引きをする。見つからない時は＃Ｎ／Ａが出るので、シートＡにあり、シートＢになしが判ります。
逆にシートＢより上記をやればシートＢありシートＡ無しが判ります。

この回答へのお礼

回答ありがとうございます。
はい。私も、関数でやる時に結合してみたのですが、うまくいかなかったのです。文字数を合わせなかったからだと、気が付きました。やってみます。

お礼日時：2003/09/23 20:21

No.1 回答者： whitepepper 回答日時： 2003/09/22 12:29

》2つのシート間で同一データの有無の比較がしたいのです。

　この類はExcelでする仕事ではない。データベースソフトでする仕事です。

》1）ＡとＢに有る。
》2）Ａに有って、Ｂに無い。
》3）Ｂに有って、Ａに無い。

　こんな作業はいとも簡単です。できて当たり前。

　Accessをお持ちなら、それを使ったらいいけど、取っつきが悪いからね。覚えるのに暇がかかる。データベースソフトが初めてなら、「桐」をお勧めします。覚えが早いし便利だから、お金を出すだけの値打ちがあります。

参考URL：http://www.k3-soft.com/kiri9/index.html

この回答への補足

回答ありがとうございます。
データベースソフトでしたら、どのようにするのですか？
簡単に教えていただけませんか？
Accessならあるのですが。。。

補足日時：2003/09/22 13:02