将'@'登录公式替换为 VBA

Question

我试图用以下代码替换"输入"表中公式中的"@"符号，但失败了：

Sub replace()
Dim fnd As Variant
Dim rplc As Variant
fnd = "@"
rplc = "test"
ThisWorkbook.Sheets("Inputs").Cells.replace what:=fnd, Replacement:=rplc, _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
End Sub

例如，公式可能是=(100 - (@initialratio*100)) * D10，我正在尝试替换"@"。

我可以手动替换"@"，但不能用vba代码替换。有人能帮我吗？谢谢

Answer 1

试试这个

Sub Replace()
Dim fnd, rplc
fnd = "@"
rplc = "test"
ThisWorkbook.Sheets("Inputs").Cells.Replace What:=fnd, Replacement:=rplc, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
End Sub