Excel ＶＢＡを使って会員検索

質問

Sheet１のＡ列に会員番号、Ｂ列に氏名、Ｃ列にフリガナ、Ｄ列に住所といったデータがあります。
Sheet２のＡ列に会員番号のみがあります。
この２つのデータを照合して、一致した場合のみ、Sheet１の該当会員データの横のセルに“一致”もしくは“１”などの値（上の例だとSheet１のＥ列に）を入力できるようなＶＢＡを組みたいのですが、教えていただけますでしょうか？

回答No.3

oshietechodai · ベストアンサー

#2です。
質問の内容に沿って回答すると
Sheet1のE列に
　=IF(ISNA(MATCH(A1,Sheet2!A:A,0)),"","一致")
ですね。

失礼しました。

回答No.4

imogasi

VBAを習って１週間の者のようなプログラムですが、データ量が数千くらいならそんなに時間を意識せずにすむでしょう。

Sub test01()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Set sh1 = Worksheets("sheet1")
Set sh2 = Worksheets("sheet2")
'-----
d1 = sh1.Range("A65536").End(xlUp).Row
d2 = sh2.Range("A65536").End(xlUp).Row
'-----
For i = 2 To d1
For j = 2 To d2
If sh1.Cells(i, "A") = sh2.Cells(j, "A") Then sh1.Cells(i, "E") = "1"
Next j
Next i
End Sub
＞ＶＢＡを組みたいのですが
ということなので。

回答No.2

oshietechodai

Sheet2B1
セルに以下の関数を入力してください。

　=IF(ISNA(MATCH(A1,Sheet1!A:A,0)),"","一致")

VBAデ組まなければならない理由が見つかりません。

回答No.1

Wendy02

こんにちは。

お話の内容だけでは、VBAで組む必要性を感じません。それに、仮に、VBAでも、WorksheetFunction で、Match関数を使えば、簡単に出来てしまいます。