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

Posted 2021-03-27

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

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，不知道如果你用一个公式命名你的sub，它就不会编译

答案

尝试以下方式：

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