【エクセルマクロ】ワイルドカードを使って置換：使用例3選

エクセルマクロで、ワイルドカード（アスタリスク）を使って文字を置換するVBAコードをご紹介します。

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

ワイルドカードを使って置換（指定文字を含む）

以下のExcelVBAを実行すると、ワイルドカードを使って文字を置き換えます。

Sub アスタリスクを使って置換()

    Dim Target As String

    Target = "りんご"
    
    Cells.Replace What:="*" & Target & "*", Replacement:=Target
    
End Sub

マクロ実行後

「りんご」を含むセルの文字を、

「りんご」に置換します。

ワイルドカードを使って置換（指定文字から始まる）

以下のExcelVBAを実行すると、ワイルドカードを使って文字を置き換えます。

Sub ワイルドカードを使って置換()

    Dim Target As String

    Target = "りんご"
    
    Cells.Replace What:=Target & "*", Replacement:=Target
    
End Sub

マクロ実行後

「りんご」から始まる文字を、「りんご」に置換します。

「りんご」の後に文字が続いていれば、その文字も置換対象となります。

例：（置換前）美味りんご特価　→　（置換後）美味りんご

ワイルドカードを使って置換（指定文字で終わる）

以下のExcelVBAを実行すると、ワイルドカードを使って文字を置き換えます。

Sub ワイルドカードを使って置換()

    Dim Target As String

    Target = "りんご"
    
    Cells.Replace What:="*" & Target, Replacement:=Target
    
End Sub

マクロ実行後

「りんご」で終わる文字を、「りんご」に置換します。

「りんご」の前に文字があれば、その文字も置換対象となります。

例：（置換前）美味りんご特価　→　（置換後）りんご特価

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

ExcelVBA アスタリスク「*」を文字列として置換・フィルタ抽出

...

kirinote.com

2023.09.17