我在编译代码时遇到了问题
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