替换编译错误：参数数量错误或属性分配无效

Question

我在编写代码时遇到了问题

Dim OriginalText As String
Dim CorrectedText As String

OriginalText = Range("A5").Value

CorrectedText = Replace(OriginalText, "a", "o")

Range("A5").Offset(, 1).Value = CorrectedText

在Cell A5中我有Micrasaft这个词，我想用微软代替。

我得到'编译错误：错误的参数数量或无效的属性赋值'。

---

我知道为什么，因为我打电话给我的Sub Replace，不知道如果你用同样的方式命名你的子公式，它就不会编译

Answer 1

尝试以下方式：

Dim OriginalText As String
Dim CorrectedText As String

OriginalText = Range("A5").Value

CorrectedText = VBA.Strings.Replace(OriginalText, "a", "o")

Range("A5").Offset(, 1).Value = CorrectedText