如何在单元格中的excel文本值中查找和替换字符“*”，而不是公式

Question

非常类似于这个问题： How to find and replace the character "*" in Excel

但我需要保持公式不变。我有大约 50 多张纸，其中有两种类型的带有“*”的单元格

案例 1 内容 - 单元格的值可能是：“*** 1.43”

情况 2 内容 - 单元格的值可能是：“=100*B3”

我想找到并用“”替换所有案例 1 星号，同时忽略包含使用星号作为乘数的公式的案例 2 单元格。基本上，更改静态单元格但不要使用公式更改单元格。

谢谢！

Answer 1

如果您有 Excel 2013 或更高版本，则可以使用以下例程。将代码放置在 ThisWorkbook 模块中。运行一次；它将更新整个工作簿中适当的单元格。

Sub SetStarsBlank()

    For Each ws In ThisWorkbook.Worksheets
        For Each c In ws.UsedRange
            If Not Application.WorksheetFunction.IsFormula(c) Then
                c.Value = Replace(c.Value, "*", "")
            End If
        Next
    Next

End Sub