Vbaは表の値に基づいて文字列を置換します。

Question

シート "データ"の列Aの文字列の一部をシート "フィルタ"の列Bに書き込まれた新しい値で置き換えるコードがあります。

列Aのシートの「フィルタ」古い値を持ち、列Bは、交換後の値は、画像を参照しています

私はに例えば「グリフィスRV8」を交換する方法を知っている

「グリフィスのRVを-8 "しかし、私はその置き換えを行い、その置き換えられた文字列の前のすべての文字を削除することはできますか？

グリフィスRV8 = RV8は

Sub Substitutions() 

Dim rngData  As Range 
Dim rngLookup As Range 
Dim Lookup  As Range 

With Sheets("Data") 
    Set rngData = .Range("A1", .Range("A" & Rows.Count).End(xlUp)) 
End With 

With Sheets("Filter") 
    Set rngLookup = .Range("A1", .Range("A" & Rows.Count).End(xlUp)) 
End With 

For Each Lookup In rngLookup 
    If Lookup.Value <> "" Then 
     rngData.Replace What:=Lookup.Value, _ 
         Replacement:=Lookup.Offset(0, 1).Value, _ 
         LookAt:=xlPart, _ 
         SearchOrder:=xlByRows, _ 
         MatchCase:=False 
    End If 
Next Lookup 

End Sub 

Answer 1

あなたは、文字列の一部を置き換えるために、ワイルドカードを使用することができます。

Sub Example() 

    Range("A1") = "Where in the World is Carmen Sandiego?" 

    Range("A1").Replace "*Carmen", "Who is Micheal" 

    Range("A3") = "Hello World! How are You?" 

    Range("A3").Replace "!*", "? Can you hear me!?" 

    Range("A5") = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 

    Range("A5").Replace "??H??", "fgHij" 

    ' You can escape the wildcards using "\" 
    Range("A7") = "? not escaped" 

    Range("A8") = "WHO? WHO!" 

    Range("A8").Replace "WHO?", "WHO ARE YOU?" 

    Range("A10") = "? was escaped using a backslash \?" 

    Range("A11") = "WHO? WHO!" 

    Range("A11").Replace "WHO\?", "WHO ARE YOU?" 

End Sub 

Answer 2

rngData.Replace What:= "* " & Lookup.Value, _ 
       Replacement:=Lookup.Offset(0, 1).Value, _ 
        LookAt:=xlPart, _ 
        SearchOrder:=xlByRows, _ 
        MatchCase:=False 

Lookup.Offset(0, 1).Value