VBA Excelで範囲内の単語を検索して置き換えます

Question

列の単語を別の単語に置き換えたいのですが、コードが機能していないように見えますが、まだコーディング言語を把握しようとしていますが、ただ私には直感的ではありません。

状況：

Global Macro - Equities 
Global Macro - Bonds 
Global Macro - FX 
. 
. 
. 
And so on... 

望ましい結果：

GM - Equities 
GM - Bonds 
GM - FX 
. 
. 
. 

私のコード

Sub ReplaceFundNames() 

    Dim FundName As String 
    Dim CorrectedName As String 
    Dim ws As Worksheet 
    Dim LastRow As Long 

    Set ws = ActiveSheet 
    LastRow = Range("B" & Rows.Count).End(xlDown).Row 

    FundName = Range(LastRow) 
    CorrectedName = Replace(FundName, "Global Macro", "GM") 

    Range("B" & LastRow).Value = CorrectedName 


End Sub 

ありがとうございました！

Answer 1

VBAのReplace関数は、単一文字列で動作するように設計されていますが、Range.ReplaceメソッドはRangeで動作するように設計されています。

そのように、あなたは、単一のステートメントであなたの交換を行うことができます。

ActiveSheet.Range("B:B").Replace "Global Macro", "GM"