Excel VBA質問箱 IV

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

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


10908 / 13644 ツリー ←次へ | 前へ→

【19236】検索について K.K 04/10/26(火) 13:59 質問[未読]
【19237】Re:検索について IROC 04/10/26(火) 14:04 回答[未読]
【19243】Re:検索について K.K 04/10/26(火) 14:20 質問[未読]
【19246】Re:検索について かみちゃん 04/10/26(火) 14:34 回答[未読]
【19250】Re:検索について K.K 04/10/26(火) 14:57 お礼[未読]
【19247】Re:検索について Asaki 04/10/26(火) 14:35 発言[未読]

【19236】検索について
質問  K.K  - 04/10/26(火) 13:59 -

引用なし
パスワード
   Sheet1に何万行に及び何か値が入っています。
1行目 あいうえお
2行目 AAAAA
3行目 CALLあいうえお
4行目 ・・・・
5行目 かきくけこCALL
 ・
 ・
 ・
1万行目 あいうえおCALLかきくけこ

この中から文字列‘CALL’を検索し、
‘CALL’を含むすべての行を1行目から順番に
Sheet2に貼り付けたいのですが(上の例で言うと1,5,1万行目)
どうしたら良いでしょうか?
教えてください。お願いします。

【19237】Re:検索について
回答  IROC  - 04/10/26(火) 14:04 -

引用なし
パスワード
   1行目にタイトル行を追加して、オートフィルタ&コピーでできませんか?

【19243】Re:検索について
質問  K.K  - 04/10/26(火) 14:20 -

引用なし
パスワード
   ▼IROC さん:

早速の回答ありがとうございます。

何万行の間に何の値も入っていない行がある可能性があり
オートフィルタだと出来ませんでした。
また、マクロを用いて自動的に
文字列‘CALL’を検索しSheet1からSheet2に貼り付けたいのです。
今手元に参考書がないもので、検索の命令が分かりません。
教えて頂けないでしょうか?

【19246】Re:検索について
回答  かみちゃん  - 04/10/26(火) 14:34 -

引用なし
パスワード
   こんにちは。かみちゃん です。

横から失礼します。

>何万行の間に何の値も入っていない行がある可能性があり
>オートフィルタだと出来ませんでした。

できますよ。
オートフィルタをマクロの記録ですると、
Selection.AutoFilter Field:=1, Criteria1:="=*CALL*", Operator:=xlAnd
となると思います。
これだと、たしかに、途中に空白行があると対応できません。

しかし、これを応用して、
Range("A:A").AutoFilter Field:=1, Criteria1:="=*CALL*", Operator:=xlAnd
とすると、できます。

>今手元に参考書がないもので、検索の命令が分かりません。

Excelが手元にあるならば、Findメソッドの使用例を見てください。
でも、オートフィルタのほうがずっと簡単だと思います。

【19247】Re:検索について
発言  Asaki  - 04/10/26(火) 14:35 -

引用なし
パスワード
   こんにちは。

タイトル行の追加
は同じですが、フィルタオプションでもよさそうです。
マクロでやりたければ、マクロの記録をどうぞ。

【19250】Re:検索について
お礼  K.K  - 04/10/26(火) 14:57 -

引用なし
パスワード
   ありがとうございました。
問題が解決しました。

回答頂いた他の皆さんも大変感謝致しますm(__)m

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