Excel查找和替换不同引用的公式

Question

工作表上有许多单元格，其公式如下：

=IF(COUNTIF(O7:O9;"Fail");"Fail";"Pass")

我想用以下公式替换所有单元格：

=IF(COUNTIF(O7:O9;"");"Default";(IF(COUNTIF(O7:O9;"Fail");"Fail";"Pass")))

我怎样才能一下子把它们全部变成新的公式呢？

它是一组单元格，请注意，所有具有公式的单元格都有不同的引用。

Answer 1

你只需做一个ctrl+h，并直接替换论坛。

Answer 2

这应该能行

只需选择上面提到的“那些”公式的所有单元格，如果选择任何空白单元格，或使用不同公式的单元格，都会崩溃。

您也可以一次选择几个单元格。

Sub changeFormulaOfSelectedCells()
Dim rng As Range
Dim rangeInFormula As String
Dim cellFormula As String

For Each rng In Selection
    cellFormula = rng.Formula
    rangeInFormula = Mid(cellFormula, 13, InStr(cellFormula, ";") - 13)
    rng.Formula = "=IF(COUNTIF(" & rangeInFormula & ";" & Chr(34) & Chr(34) & ");" & Chr(34) & "Default" & Chr(34) & ";(IF(COUNTIF(" & rangeInFormula & ";" & Chr(34) & "Fail" & Chr(34) & ");" & Chr(34) & "Fail" & Chr(34) & ";" & Chr(34) & "Pass" & Chr(34) & ")))"
    Next rng
End Sub

如果您有错误，只需检查我是否没有遗漏在上面的代码中用;替换任何;。