Excelマクロで特定の文字を含む行の取り出し

質問

Excelマクロについての質問です。
あるセルから、ある特定の行を取り出したいです。
セルの中身例）
1AAA
2B[KEY_X]BB
3CC
4DD[KEY_Y]D
5EE
6FF;
取り出したいパターンは下記2つです
(1)2行目のKEY_Xが含まれる

(2)4-6行目のようにKEY_Yが含まれる行から「；」が出る列までの行全て
このセルが約300行あります。宜しくお願いします。

回答No.1

米沢 栄蔵（@YON56）

質問の内容が正確に理解出来ないので、次の内容として、回答します。
<質問の内容>
セルA1～A300に検索対象データが入力されている。
セルB1,B2に検索キー[KEY_X],[；]が入力されている。
検索キーがHITした全ての行番号を取得する。
<構文>
Dim A
Dim AA,BB

AA=""
BB=""
For A=1 To 300
If Instr(Cells(A,1),Range("B1").Value)>0 Then
AA=AA & A & "/"
ElseIf Instr(Cells(A,1),Range("B2").Value)>0 Then
BB=BB & A & "/"
End If

AAが検索キー[KEY_X]でHITした全ての行番号
BBが検索キー[]でHITした全ての行番号

文字列AA,BBに含まれる[/]の数を数えるとHITした行の個数が解ります。