エクセルマクロで、複数条件が一致で別シート抽出するVBAコードをご紹介します。
このページのマクロコードは、コピペで使えます。
ぜひお試しください!
複数条件が一致で別シート抽出
以下のExcelVBAを実行すると、複数条件が一致するデータを別シートへ抽出します。
Sub 複数の条件があうものを抽出()
Dim LastRow As Long
Dim i As Long
Dim j As Long
'最終行を取得
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
j = 1
'1~最終行までループ
For i = 1 To LastRow
If Cells(i, 2) = "りんご" And Cells(i, 5) = "A" And Cells(i, 6) = "東京都" Then
Range(Cells(i, 1), Cells(i, 6)).Copy Sheets("Sheet2").Cells(j, 1)
j = j + 1
End If
Next i
End Sub
マクロ実行後
”りんご” と ”A” と ”東京” が一致するデータを別シートへ転記します。
抽出したデータは、別シートの上から詰めて並べています。
この記事がお役に立ちますと幸いです。
・【エクセルマクロ】別シート転記を自動処理する方法まとめ

【エクセルマクロ】別シート転記(抽出)を自動化する:超便利20選
...
「プログラマーの本気がExcelを覚醒させる 超絶ExcelVBA」
ExcelVBAでワンランクアップできる書籍
具体的で応用が利く技をたくさん掲載
リンク