VBAでワイルドカードと変数を使用して該当する文字を削除したい

Question

いつもお世話になっております。
質問させていただきます。

sheet1のセルのB列に

1CTC-A(15M)
AB-15X-Q
PB-24O
WS25aaaa(10M)
WS25asssa/5A
WS25asssa//10A
・
・
・

といった品番が羅列していて（品番の個数は変わります。）

例えば(15M)や(10M)を一括で消したいときに、
sheet2のA列に(*M)と入力して
(*M)を変数に代入して
＊をワイルドカードのような扱いにして可変で、
該当するセルがあった場合に、文字を抽出して、
(*M)に該当する部分のみ削除する仕組みのマクロを作りたいです。

sheet1のB列に
1CTC-A(15M)→1CTC-A
WS25aaaa(10M)→WS25aaaaといった表記にしたいです。

また、sheet2のA列には削除したい文字を追記していく予定です。
(*M)を入力したセルの下に
/*Aと入力したら
WS25asssa/5A→WS25asssa
WS25asssa//10A→WS25asssa

となるようにしたいです。

replaceメソッド、関数を使っても変数とワイルドカー両方使える方法が見当たらなく、質問させていただきました。

お手間おかけしますが教えていただけたら幸いです

Answer 1

Replaceメソッドはワイルドカードが使用できますよ。

sheet1のB列に
1CTC-A(15M)
AB-15X-Q
PB-24O
WS25aaaa(10M)
WS25asssa/5A
WS25asssa//10A

sheet2のA列に、
(*M)
/*A

という場合、下記のコードで
sheet1のB列は
1CTC-A
AB-15X-Q
PB-24O
WS25aaaa
WS25asssa
WS25asssa
となります。

Public Sub Sample()    
    Dim r As Range, c As Range
    With Worksheets("Sheet1")
        Set r = .Range("B1", .Cells(.Rows.Count, "B").End(xlUp))
    End With
    With Worksheets("Sheet2")
        For Each c In .Range("A1", .Cells(.Rows.Count, "A").End(xlUp))
            r.Replace c.Value, "", LookAt:=xlPart
        Next
    End With
End Sub

Comments

[taro22222]

回答ありがとうございます。
試したところ問題が解決しました！
ベストアンサーに選ばせていただきました。