【エクセルマクロ】特定文字を含む行を別シート抽出(動画あり)

エクセルマクロで、特定文字を含む行を別シート抽出する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」シートへ抽出します。

 
 
この記事がお役に立ちますと幸いです。
 
・【エクセルマクロ】別シート転記を自動処理する方法まとめ
 

【エクセルマクロ】別シート転記(抽出)を自動化する：超便利20選

エクセルマクロで、別シート転記(抽出)を自動化するVBAコードをご紹介します。どのマクロコードも、コピペで使用できます。ぜひお試しください！

kirinote.com

2023.02.04