【VBA】特定の文字が入っている行の一部を抽出

質問

マクロ初心者です。

一つのフォルダにある複数のエクセルファイルから”山口県”の行を
抽出するマクロを作成していますが、抽出条件をもう一つ追加したいのですがマクロの作成方法がわかりません。

現在下記のマクロを作成済みですが、こちらは”C”列に”山口県”と入力済みのデータを抽出しています
作成したいのは”C”列に”山口県”
　　　　　　　”D”列に”宇部市”と入力済みのデータの抽出を行いたいです。

↓現在作成済みのマクロです

Sub test01()
Application.ScreenUpdating = False '画面更新を一時停止
Set mb = ThisWorkbook 'このブックをmbとする。
myfdr = ThisWorkbook.Path
fname = Dir(myfdr & "\*.xls") 'フォルダ内のExcelブックを検索
Do Until fname = Empty '全て検索
If fname <> mb.Name Then 'ブック名がこのブックの名前でなければ
Set wb = Workbooks.Open(myfdr & "\" & fname) 'そのブックを開きwbとする。
With wb.ActiveSheet 'wbの開かれたシートについて
x = .Cells(Rows.Count, "C").End(xlUp).Row 'A列最終行をxに代入
For i = 1 To x '1～xまで繰り返し
If .Cells(i, "C").Value = "G1" Then '値がヒットしたら
n = n + 1
.Rows(i).Copy 'コピー
mb.Sheets(1).Rows(n).PasteSpecial 'このブックの最初のシートに貼り付け
Application.CutCopyMode = False
End If
Next i
End With
wb.Close (False) '保存の有無を聞かずに保存しないで閉じる
End If
fname = Dir 'フォルダ内の次のExcelブックを検索
Loop '繰り返す
Application.ScreenUpdating = True '画面更新一時停止を解除
Set mb = Nothing
Set wb = Nothing
End Sub

マクロ初心者のため説明不足等でご迷惑をおかけするかと思いますが
ご回答お願い致します。

回答No.1

watabe007 · ベストアンサー

>If .Cells(i, "C").Value = "G1" Then '値がヒットしたら
↓
If .Cells(i, "C").Value = "G1" And .Cells(i, "D").Value = "宇部市" Then

お礼

早速のご回答ありがとうございました。
無事に想定した内容で抽出できました。

回答No.2

imogasi

全行逐次（判別）処理するロジックの場合（これが一番簡単な処理法）は、処理している行のC列セルに山口県が見つかった場合にD列セルに宇部市が見つかるかどうか判別したら仕舞。質問するまでもない。
　ついでに住所がＣ列セルにある場合、山口県もあり宇部市もあるセルを探すのもやってみたらどうか。
質問のコードは小生ならしないような、全体的に複雑なことをしていて、読む気がしない。