Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10922 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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に何万行に及び何か値が入っています。
１行目　あいうえお
２行目　ＡＡＡＡＡ
３行目　ＣＡＬＬあいうえお
４行目　・・・・
５行目　かきくけこＣＡＬＬ
　・
　・
　・
１万行目　あいうえおＣＡＬＬかきくけこ

この中から文字列‘ＣＡＬＬ’を検索し、
‘ＣＡＬＬ’を含むすべての行を１行目から順番に
Sheet2に貼り付けたいのですが（上の例で言うと１，５，１万行目）
どうしたら良いでしょうか？
教えてください。お願いします。
【19237】Re:検索について
回答  IROC  - 04/10/26(火) 14:04 -
引用なし
パスワード
   １行目にタイトル行を追加して、オートフィルタ＆コピーでできませんか？
【19243】Re:検索について
質問  K.K  - 04/10/26(火) 14:20 -
引用なし
パスワード
   ▼IROC さん：

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

何万行の間に何の値も入っていない行がある可能性があり
オートフィルタだと出来ませんでした。
また、マクロを用いて自動的に
文字列‘ＣＡＬＬ’を検索しSheet1からSheet2に貼り付けたいのです。
今手元に参考書がないもので、検索の命令が分かりません。
教えて頂けないでしょうか？
【19246】Re:検索について
回答  かみちゃん  - 04/10/26(火) 14:34 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

横から失礼します。

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

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

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

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

Excelが手元にあるならば、Findメソッドの使用例を見てください。
でも、オートフィルタのほうがずっと簡単だと思います。
【19247】Re:検索について
発言  Asaki  - 04/10/26(火) 14:35 -
引用なし
パスワード
   こんにちは。

タイトル行の追加
は同じですが、フィルタオプションでもよさそうです。
マクロでやりたければ、マクロの記録をどうぞ。
【19250】Re:検索について
お礼  K.K  - 04/10/26(火) 14:57 -
引用なし
パスワード
   ありがとうございました。
問題が解決しました。

回答頂いた他の皆さんも大変感謝致しますm(__)m
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10922 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free