Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


1626 / 13646 ツリー ←次へ | 前へ→

【73045】検索して行ごと抽出する方法 ロックイズデッド 12/10/31(水) 22:13 質問[未読]
【73046】Re:検索して行ごと抽出する方法 ウッシ 12/10/31(水) 22:38 回答[未読]
【73047】Re:検索して行ごと抽出する方法 ロックイズデッド 12/10/31(水) 22:58 発言[未読]
【73048】Re:検索して行ごと抽出する方法 ロックイズデッド 12/10/31(水) 23:10 発言[未読]

【73045】検索して行ごと抽出する方法
質問  ロックイズデッド  - 12/10/31(水) 22:13 -

引用なし
パスワード
   抽出数が多すぎて困ってます。
どうやって自動でやるのか教えて下さい。


「cyusyutsu.xls」のsheet1のA列に検索ワードがならんでいます。
複数のエクセルファイル(中身の形式は全く同じ)のsheet1のC列のセルに「cyusyutsu.xls」の検索ワードと全く一致する行を一括で抽出したいです。
手作業で複数のファイルから1つずつ検索して行コピーして別シートに貼りつけてをやっていましたが、数が多くなってきたので、そろそろ限界です。


「cyusyutsu.xls」
A列
A-1111
B-1234
C-4567
D-7890







と検索ワードを入れておきます。(A列のどこまであるかはわかりません)

この検索ワードと全く一致するセルがあれば、行ごと抽出したいです。
(参照するエクセルファイル(中身の形式は全く同じ)は複数で同じフォルダに入っています)

「参照するエクセルファイル1」
A列    B列    C列    ・・・・・・・・・・・・・・・・・・
あ    い    A-1111    ・・・・・・・・・・・・・・・・


さ    ぽ    C-4567    ・・・・・・・・・・・・・・・・



「参照するエクセルファイル2」
A列    B列    C列    ・・・・・・・・・・・・・・・・・・
い    う    B-1234    ・・・・・・・・・・・・・・・・


お    ォ    D-7890    ・・・・・・・・・・・・・・・・




抽出結果は
A列    B列    C列    ・・・・・・・・・・・・・・・・・・
あ    い    A-1111    ・・・・・・・・・・・・・・・・
い    う    B-1234    ・・・・・・・・・・・・・・・・
さ    ぽ    C-4567    ・・・・・・・・・・・・・・・・
お    ォ    D-7890    ・・・・・・・・・・・・・・・・

のように「cyusyutsu.xls」に上書き保存したいです。
(検索ワードが参照するエクセルファイルにない場合は、文字を赤くするなどしてほしいです)

どうかよろしくお願いします。

【73046】Re:検索して行ごと抽出する方法
回答  ウッシ  - 12/10/31(水) 22:38 -

引用なし
パスワード
   こんばんは

1行目に項目名はセットされてないのですか?

検索値の項目名が、検索先ブックのセルC1の項目名と一致していれば、フィルタオプションで抽出出来ますよ。
複数ブックを検索するのであれば、作業用のシートに抜いてから、抽出結果シートに累積していくようになります。

【73047】Re:検索して行ごと抽出する方法
発言  ロックイズデッド  - 12/10/31(水) 22:58 -

引用なし
パスワード
   ウッシ様。
初めまして。こんばんは。
ご教授ありがとうございます。

>1行目に項目名はセットされてないのですか?

されています。

>検索値の項目名が、検索先ブックのセルC1の項目名と一致していれば、フィルタオプションで抽出出来ますよ。

そうなんですか?どうやってやればいいのでしょうか?
フィルタオプションを開いてみました。
リスト範囲、検索条件範囲、抽出範囲があります。
それぞれにどれを設定すればよいのでしょうか。

【73048】Re:検索して行ごと抽出する方法
発言  ロックイズデッド  - 12/10/31(水) 23:10 -

引用なし
パスワード
   ウッシ様。

フィルタオプションの使い方を調べてみましたら、できました!!
ありがとうございます。

1626 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free