【エクセルマクロ】特定文字を含む行を別シート抽出:コピペで使えるコード

ExcelVBA_特定文字を含む行を別シート抽出-アイキャッチ エクセルマクロで効率化する

エクセルマクロで、特定文字を含む行を別シート抽出するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
せひ、お試しください。

特定文字を含む行を別シート抽出

以下のExcelVBAを実行すると、条件を満たす行を別シートに転記します。


Sub 特定の文字を含むデータを行ごとコピー()

Dim Sht1 As Worksheet
Dim Sht2 As Worksheet
Dim LastRow As Long
Dim i As Long
Dim J As Long
Dim SearchWord As String

    Set Sht1 = Sheets("Sheet1")
    Set Sht2 = Sheets("Sheet2")
    
    '検索キーワード
    SearchWord = "クリア"
    
    Sht1.Select
    J = 2

    '最終行取得
    LastRow = Sht1.Cells(Rows.Count, 1).End(xlUp).Row

    For i = 2 To LastRow
    
        '特定キーワードを含む場合
        If InStr(Cells(i, 1), SearchWord) > 0 Then
        
             '該当データを転記
             Sht1.Range(Cells(i, 1), Cells(i, 3)).Copy Sht2.Cells(J, 1)
             J = J + 1
        End If
    Next i

End Sub

 

マクロ実行前

「Sheet1」シートにデータが入力されている状態です。


 

マクロ実行後

「Sheet1」シートのA列で ”クリア” を含む行を、「Sheet2」シートへ抽出します。


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

【エクセルマクロ】色のついたセルを別シートに抽出:3倍高速化する!
...