excel2003 マクロ - Office系ソフト - 教えて！goo

一応、No.4補足に対するレスです。

私の案の場合、手作業でやってみられましたか？
内容を理解した上で、ご自分でメンテナンスできるようになられたほうが良いですよ。

対象がC:D列からA:B列に変わり、条件が『一致しないもの』になるわけですから、IV2の数式を
　=COUNTIF(C:C,A2)=0

[フィルタオプションの設定]を
　リスト範囲　　[A:B　　]

に変えれば良いです。

通報する

>AB:10個　CD:1756個　でcheckしました。
>AB列に楽天は1個です。
>詳細：抽出データは2個でした。正解は、10個です。
Ｂ列の社名（10個）がＤ列の1756個の中にあって、
10個抽出されるはずが、2個しか出ないと言う事ですか？

>１つ：楽天は毎回抽出されます。
>もう一つ：ころころ変わります。
この2点も、こちらで再現できないので、よくわかりません。
すいません。

通報する

>マクロ実行毎に、抽出データが違っていました。
>楽天は毎回抽出されました。
A・B列に楽天が複数あったと言う事ですね。

その場合、私ならDictionaryを使ったりもしますが、
pauNedさんの方法がシンプルでいいのかもです。

通報する

こんにちは、横から失礼します。
提示された情報で、n-junさんのコードは[win2000/xl2000][winXP/xl2003]で正しく動作する事を確認しました。
参考まで。



質問者さんがマクロについて詳しくない場合、
まずは一般操作だったらどうするかを考えて、
[新しいマクロの記録]を参考にするのも一つの手かと思います。

1)１行目挿入し、A1:D1に見出しをつける。
2)未使用セルを作業列として（例えばIV2）抽出条件の数式を入れる。
　=COUNTIF(A:A,C2)>0
3)C:D列を選択して、メニュー[データ]-[フィルタ]-[フィルタオプションの設定]。
　抽出先---
　　○指定した範囲
　リスト範囲　　[C:D　　]
　検索条件範囲　[IV1:IV2]
　抽出範囲　　　[E1　　 ]
4)E:F列に抽出される。
5)作業セルIV2セルをクリアし、１行目を削除する。

（参考：43-2 フィルタオプション（文字列の検索・計算検索条件））
http://www11.plala.or.jp/koma_Excel/contents6/ma …

以上の操作をマクロ記録して整理すると下記のようになります。

Sub Macro1()
　　Rows(1).Insert
　　Range("A1:D1").Value = [{1,2,3,4}]
　　Range("IV2").Formula = "=COUNTIF(A:A,C2)>0"
　　Columns("C:D").AdvancedFilter _
　　　　Action:=xlFilterCopy, _
　　　　CriteriaRange:=Range("IV1:IV2"), _
　　　　CopyToRange:=Range("E1:F1")
　　Range("IV2").Clear
　　Rows(1).Delete
End Sub

通報する

>結果はNGでした。
エラーが出たと言う事ですか？
それとも抽出されないと言う事でしょうか？

提示されている例題では抽出できましたが、当方2002ですので
或いはバージョンによるかも知れませんね。

通報する

コードと社名は必ず一致していると仮定して、

Sub　try()
　　　　Dim　i　As　Long,　j　As　Long
　　　　Dim　r　As　Range,　vv
　　　　
　　　　Set　r　=　Range("D1",　Cells(Rows.Count,　4).End(xlUp))
　　　　vv　=　Range("A1",　Cells(Rows.Count,　2).End(xlUp)).Value

　　　　j　=　1

　　　　For　i　=　1　To　UBound(vv,　1)
　　　　　　　　With　WorksheetFunction
　　　　　　　　　　　　　If　.CountIf(r,　vv(i,　2))　>　0　Then
　　　　　　　　　　　　　　　　　Range("E"　&　j).Value　=　vv(i,　1)
　　　　　　　　　　　　　　　　　Range("F"　&　j).Value　=　vv(i,　2)
　　　　　　　　　　　　　　　　　j　=　j　+　1
　　　　　　　　　　　　　End　If
　　　　　　　　End　With
　　　　Next
End　Sub
こうゆう感じの事ですか？

通報する

>その結果を、EFに記述するマクロを教えてください。
その結果とは何でしょう？
重複しているって事でしょうか？

通報する