【エクセルマクロ】Like演算子と変数の組み合わせ：使用例６選

Like演算子と変数の組み合わせをするExcelVBAコードを記載しています。

ワイルドカード（アスタリスク）を使用します。

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

Likeと変数の組み合わせ（*変数*）

以下のマクロを実行すると、Like演算子を使用して該当セルに色付けします。

Sub 変数とLike組み合わせ()

    Dim Target As String
    Dim i As Long
    
    Target = "*りんご*"

    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(i, 1) Like Target Then
            Cells(i, 1).Interior.Color = 65535
        End If
    Next i
    
End Sub

マクロ実行後

「りんご」を含むセルに色付けします。

IF文で [Cells(i, 1)] の中に [Target] が含まれているか確認します。

Likeと変数の組み合わせ（*変数*）

以下のマクロを実行すると、Like演算子を使用して該当セルに色付けします。

Sub 変数とLike組み合わせ()

    Dim Target As String
    Dim i As Long
    
    Target = "りんご"

    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(i, 1) Like "*" & Target & "*" Then
            Cells(i, 1).Interior.Color = 65535
        End If
    Next i
    
End Sub

マクロ実行後

「りんご」を含むセルに色付けします。

IF文で [Cells(i, 1)] の中に [Target] が含まれているか検索します。

Likeと変数の組み合わせ（変数*）

以下のマクロを実行すると、Like演算子を使用して該当セルに色付けします。

Sub 変数とLike組み合わせ()

    Dim Target As String
    Dim i As Long
    
    Target = "りんご*"

    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(i, 1) Like Target Then
            Cells(i, 1).Interior.Color = 65535
        End If
    Next i
    
End Sub

マクロ実行後

「りんご」から始まるセルに色付けします。

Likeと変数の組み合わせ（変数*）

以下のマクロを実行すると、Like演算子を使用して該当セルに色付けします。

Sub 変数とLike組み合わせ()
    Dim Target As String
    Dim i As Long
    
    Target = "りんご"

    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(i, 1) Like Target & "*" Then
            Cells(i, 1).Interior.Color = 65535
        End If
    Next i
End Sub

マクロ実行後

「りんご」から始まるセルに色付けします。

Likeと変数の組み合わせ（*変数）

以下のマクロを実行すると、Like演算子を使用して該当セルに色付けします。

Sub 変数とLike組み合わせ()
    Dim Target As String
    Dim i As Long
    
    Target = "*りんご"

    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(i, 1) Like Target Then
            Cells(i, 1).Interior.Color = 65535
        End If
    Next i
End Sub

マクロ実行後

「りんご」で終わるセルに色付けします。

Likeと変数の組み合わせ（*変数）

以下のマクロを実行すると、Like演算子を使用して該当セルに色付けします。

Sub 変数とLike組み合わせ()
    Dim Target As String
    Dim i As Long
    
    Target = "りんご"

    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(i, 1) Like "*" & Target Then
            Cells(i, 1).Interior.Color = 65535
        End If
    Next i
End Sub

マクロ実行後

「りんご」で終わるセルに色付けします。

 

 
 
この記事がお役に立ちますと幸いです。
 

【エクセルマクロ】シートの追加・削除を自動化：超便利12選

エクセルマクロで、ワークシートの追加・削除を自動化するVBAコードをご紹介します。どのマクロコードも、コピペで使用できます。ぜひお試しください！

kirinote.com

2023.09.03