Excel 2007 同じ値の検索

質問

Excel 2007 同じ値の検索

B列（会社主キー）とC列（会社サブキー）、D列（会社サブキー）、E列（会社サブキー）を比較。
B列と同じキーがあった場合には、A列（check）に1が入り、同じキーがなければ2を入れるように
したいです。
B列は一意のキーです。
C、D、E列で同じキーが入っている場合もございます。
どのように解決すればよろしいでしょうか。
マクロ、関数のいずれでもかまいません。
アドバイス頂けますでしょうか。

回答No.4

keithin · ベストアンサー

主キーに対して１を立てたいのですか？
A2に
=IF(B2="","",1+(COUNTIF(C:E,B2)=0))
以下コピー。

＃Checkの結果は１と２と，データの無い""の３通り。

お礼

主キーに対して1を立てることを考えていました。ご提示頂きました関数で解決しました。ありがとうございました。早い回答に感謝します。

回答No.3

tom04

こんばんは！
一例です。

A2セルに
=IF(B2="","",IF(COUNTIF(C2:E2,B2),1,2))

としてオートフィルで下へコピーではどうでしょうか？

以上、参考になれば良いのですが・・・m(__)m

お礼

ご回答ありがとうございます。参考にさせていただきます。早い回答助かりました。

回答No.2

TNK787

あ、ごめんん　E列もあったのね
同じようにorで追加してください

お礼

ご回答ありがとうございます。参考にさせていただきます。とても早い回答助かりました。

回答No.1

TNK787

Sub test()
Dim i As Long
i = 2
Do Until Cells(i, 2).Value = ""
If Cells(i, 2).Value = Cells(i, 3).Value _
Or cellls(i, 2).Value = Cells(i, 4).Value Then

Cells(i, 1).Value = "Check"
Else
Cells(i, 1).Value = 2
End If
i = i + 1
Loop

End Sub