使用 VBA 替换整本书中 Excel 公式中某些内容的所有实例？

Question

在每张纸、整本书的每个单元格的每个公式中，我想替换部分公式字符串，将所有“+”更改为“-”，如果我有特定的情况，有没有一种简单的方法可以在 VBA 中执行此操作工作簿对象

xlWb

？

我正在努力：

xlWb.Cells.Replace What:="+", Replacement:="-", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2

但是得到“对象不支持此属性或方法”

Answer 1

工作簿没有单元格，只有工作表才有单元格。这会导致您的运行时错误。您的替换命令本身对我来说看起来不错。

只需循环工作簿的所有工作表就可以解决问题：

Dim ws As Worksheet
For Each ws In xlWb.Worksheets
    ws.Cells.Replace What:="-", Replacement:="+", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False _
        , FormulaVersion:=xlReplaceFormula2
Next

我建议在运行宏之前备份工作簿。