EXCELで指定した行内にある値以外を抽出する

こんにちは。
業務で困っていることがあるので、知恵をお貸し下さい。

EXCELで指定した行内にある値以外を抽出したいのです。

A1:対象品番　B1:対象外　C1:数量　D1:納入日　E1:品番　　F1:数量
A2:HHH6030 B2: C2: D2:09/9/29 E2:HIH6260 F2:1
A3:HHH6060 B3: C3: D3:09/9/29 E3:IIHK110 F3:84
A4:HHH7000 B4: C4: D4:09/10/1 E4:HHH6030 F4:24
A5:HHH7130 B5: C5: D5:09/10/1 E5:IHH7000 F5:8
A6:HHH7140 B6: C6: D6:09/10/1 E6:HHH7130 F6:2

とあります。
●E列の中から、A列にある値以外のものを抜き出し、B列に値を返す。

●の作業をしたいので、VBAを使ってもかまいませんので、何か良い方法があれば教えてください。

よろしくお願いします。

No.2 ベストアンサー 回答者： hige_082 回答日時： 2009/10/03 00:33

＞マクロで手間をかけずにB列に値を出す方法はありますか？

ありますが、手間をかけずに・・って
関数は数週間～数ヶ月で覚えられるけど
マクロは覚えの良い人で半年～1年
私ら一般人は２年～４、５年、果ては諦める人も多いのですよ
すいません、別に怒ってる訳でも、責めてる訳でもありませんので

すいません、前置きが長くて

Sub test()
Dim 対象品番, x
Dim 品番, y
対象品番 = Range("a2", Range("a65536").End(xlUp))
品番 = Range("e2", Range("e65536").End(xlUp))
For y = 1 To UBound(品番)
For x = 1 To UBound(対象品番)
If 品番(y, 1) = 対象品番(x, 1) Then 品番(y, 1) = ""
Next x
Next y
Range("b2").Resize(UBound(品番)) = 品番
End Sub

こんな感じで如何でしょう？

この回答へのお礼

わぁ！出来ました。
ありがとうございます。

わがままなお願いを聞いてもらって申し訳ありません。

お礼日時：2009/10/05 15:29

No.1 回答者： hige_082 回答日時： 2009/10/01 19:02

こう言う事かな？

B2へ
=IF(COUNTIF($A$2:$A$6,E2)>0,"",E2)
必要な所まで下へコピー

この回答への補足

補足させてもらって申し訳ないのですが、マクロで手間をかけずにB列に値を出す方法はありますか？

補足日時：2009/10/02 16:28

この回答へのお礼

出来ました！
ご親切にありがとうございます。

お礼日時：2009/10/02 15:41