【エクセルマクロ】複数条件が一致で別シート抽出:動画あり

ExcelVBA-条件に合うデータ別シート抽出-アイキャッチ エクセルマクロで効率化する

エクセルマクロで、複数条件が一致で別シート抽出する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” と ”東京” が一致するデータを別シートへ転記します。

抽出したデータは、別シートの上から詰めて並べています。


 
 
この記事がお役に立てれば幸いです。
 

【エクセルマクロ】ワークシート処理を自動化する:超便利33選
...

 

「プログラマーの本気がExcelを覚醒させる 超絶ExcelVBA」
ExcelVBAでワンランクアップできる書籍
具体的で応用が利く技をたくさん掲載