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"