VBA查找替换后保留以$开头单元格格式的方法求助

现有VBA代码用于获取A2单元格中以$开头的值，并用输入框内容替换工作表内所有匹配值，但替换后A2单元格会变成货币格式且$被移除，请问如何避免该问题？

代码如下：

Private Sub CommandButton1_Click()
Dim strInput As String

strInput = InputBox("Enter replacement value", Default:="$")
If strInput <> "" Then
Range("A2").Select
    Cells.Replace What:=Range("A2"), Replacement:=strInput, LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, _
        FormulaVersion:=xlReplaceFormula2
End If
End Sub

问题根源在于What:=Range("A2")参数的处理逻辑：Excel会将Range对象解析为单元格的数值内容而非显示的文本内容。当A2单元格内容是带$的文本时，Excel可能自动将其识别为货币格式的数值，替换操作就会触发格式变更，同时丢失$符号。

解决思路是直接获取单元格的文本内容作为匹配目标，同时确保替换操作不干扰单元格格式：

修改后的代码：

Private Sub CommandButton1_Click()
Dim strInput As String
Dim targetText As String

' 获取A2单元格显示的原始文本（包含$符号）
targetText = Range("A2").Text
strInput = InputBox("Enter replacement value", Default:="$")

If strInput <> "" Then
    ' 使用文本内容作为匹配目标，保持格式相关参数为False
    Cells.Replace What:=targetText, Replacement:=strInput, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    ' 强制将A2设为文本格式，彻底避免自动格式转换
    Range("A2").NumberFormat = "@"
End If
End Sub

核心修改点：

• 用Range("A2").Text替代Range("A2")作为匹配目标，确保取到的是单元格显示的完整文本（包括$符号）
• 添加Range("A2").NumberFormat = "@"强制设置文本格式，防止Excel自动转换为货币格式

内容的提问来源于stack exchange，提问作者Knockoutpie