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

ReplaceVBA中的函数旨在用于单个字符串，而该Range.Replace方法旨在用于Range。

这样，您可以在单个语句中执行替换：

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