エクセルで特定の文字列を含む行を検索する方法

質問

• エクセルで特定の文字列を含む行を検索する方法について説明します。
• シート１とシート２のデータを比較し、シート２に含まれる文字列をもつ行をシート３に表示する方法について解説します。
• HLOOKUPやVLOOKUPではなく、特定の文字列を含む行を検索する方法をお教えします。

回答No.6

rukuku

>VBAまったくの超初心者で、まったく何もわからず、図々しいお願いですが、
>そのVBAをちょこっと載せて頂けたら…

シート１
1 ミッキー サッカー チョコレート
2 ミニー 野球 クッキー
3 ドナルド テニス ビスケット
4 デイジー 水泳 ポテトチップス
5 ミッキー サッカー チョコレート
6 ミニー 野球 クッキー
7 ドナルド テニス ビスケット
8 デイジー 水泳 ポテトチップス

シート２
A列に
野球
水泳

として、以下のプログラムを試してみてください。

Sub　sumple1()
　　'変数の定義
　　Dim　Line1　　As　Long
　　Dim　Line2　　As　Long
　　Dim　Line3　　As　Long
　　Dim　LastLine1　　As　Long
　　Dim　LastLine2　　As　Long

　　'sheet3のデータを消去
　　Worksheets("Sheet3").Cells.Clear

　　'最終行の取得
　　LastLine1　=　Worksheets("Sheet1").Range("A65536").End(xlUp).Row
　　LastLine2　=　Worksheets("Sheet2").Range("A65536").End(xlUp).Row

　　'条件に合うものをコピー
　　For　Line2　=　1　To　LastLine2
　　　　For　Line1　=　1　To　LastLine1
　　　　　　If　Worksheets("Sheet1").Cells(Line1,　3)　=　Worksheets("Sheet2").Cells(Line2,　1)　Then
　　　　　　　　Line3　=　Line3　+　1
　　　　　　　　Worksheets("Sheet3").Cells(Line3,　1)　=　Worksheets("Sheet1").Cells(Line1,　1)
　　　　　　　　Worksheets("Sheet3").Cells(Line3,　2)　=　Worksheets("Sheet1").Cells(Line1,　2)
　　　　　　　　Worksheets("Sheet3").Cells(Line3,　3)　=　Worksheets("Sheet1").Cells(Line1,　3)
　　　　　　End　If
　　　　Next　Line1
　　Next　Line2
End　Sub

並び順が期待通りでないと思ったら、上記のプログラムに続いて、以下のプログラムを実行してください。

Sub　sumple1a()
　　Worksheets("Sheet3").Cells.Sort　Key1:=Range("A1"),　Header:=xlNo
End　Sub

------------------------------------------------------------------
>オートフィルタですと、シート２にある文字列を一つずつフィルタを
>かけなくてはいけなくて
マクロを使って、「シート２にある文字列でフィルタを掛けて、
結果をシート３にコピーする」ということを順次行うことも出来ます。
という意味で回答しました。

⇒オートフィルタと関数を使えばもう少しうまく出来そうな方法を
　思いつきましたので別途回答します。

補足

またまた回答、本当にありがとうございます！
マクロ実行してみたところ、欲しかった結果が出ました。

でも、、、
質問したときに、書くのを忘れてたのですが、
シート１のエクセル表は更新されていくので、行が段々増えていくのです。

回答して頂いたものだと、行の数だけ、
Worksheets("Sheet3").Cells(Line3,　3)　=　Worksheets("Sheet1").Cells(Line1,　3)
この実行を増やさなくてはいけないですよね？

それだとちょっと使い勝手が…
それを解消する方法はありますか？
シート１と同じ行分だけ、マクロの中の↑の行も増やせていけるなんて、
もう無理でしょうか？