如何通过VBA在带有"-“或"$”等特殊字符的单元格中插入公式？

Sub InsertFormula()
    Dim cell As Range
    Dim formula As String
    
    ' 遍历选定的单元格范围
    For Each cell In Selection
        ' 检查单元格中是否包含特殊字符
        If InStr(1, cell.Value, "-") > 0 Or InStr(1, cell.Value, "$") > 0 Then
            ' 使用双引号来转义特殊字符，并构建公式字符串
            formula = "=SUM(" & Replace(cell.Value, "-", """-""") & ")"
            ' 将公式赋值给单元格
            cell.Formula = formula
        End If
    Next cell
End Sub