VBA Excel查找范围中的单词并进行replace

我想用另一个单词replace一个字段中的单词，但是我的代码似乎没有工作，我仍然试图掌握编码语言，但是这对我来说并不直观。

情况：

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函数被devise用于单个string，而Range.Replace方法被devise用于Range 。

因此，您可以在一个声明中执行replace：

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