VBA清除数值内容：保留文本与有效公式，清除无外部引用数值公式

原代码仅能清除数值常量，但无法处理=3.5*1000这类纯计算、无外部单元格引用的公式。以下是改进后的代码，同时覆盖这两种场景：

Private Sub ClearSelection(rangeToClear As Range)
    If rangeToClear Is Nothing Then Exit Sub
    
    Dim cell As Range
    Dim targetCells As Range
    
    ' 第一步：清除区域内的数值常量
    On Error Resume Next
    Set targetCells = rangeToClear.SpecialCells(xlCellTypeConstants, xlNumbers)
    On Error GoTo 0
    If Not targetCells Is Nothing Then
        targetCells.ClearContents
        Set targetCells = Nothing
    End If
    
    ' 第二步：清除无外部单元格引用的公式
    On Error Resume Next
    Set targetCells = rangeToClear.SpecialCells(xlCellTypeFormulas)
    On Error GoTo 0
    If Not targetCells Is Nothing Then
        For Each cell In targetCells
            ' 通过判断公式的前置引用数量，确定是否无外部单元格依赖
            If cell.Precedents.Count = 0 Then
                cell.ClearContents
            End If
        Next cell
    End If
End Sub

关键逻辑说明 #

1. 保留原有的数值常量清除逻辑，确保直接输入的数值被删除。
2. 新增公式处理逻辑：
   • 先用SpecialCells(xlCellTypeFormulas)筛选出区域内所有带公式的单元格；
   • 通过cell.Precedents.Count = 0判断公式是否没有引用任何外部单元格（纯常量计算的公式满足此条件），符合条件则清除内容。

备选方案：正则表达式判断 #

如果担心Precedents属性对特殊场景（如自定义常量名称）的判断不准确，也可以用正则表达式直接检查公式文本中是否包含单元格引用：

Private Sub ClearSelection(rangeToClear As Range)
    If rangeToClear Is Nothing Then Exit Sub
    
    Dim cell As Range
    Dim targetCells As Range
    Dim regEx As Object
    Set regEx = CreateObject("VBScript.RegExp")
    ' 匹配单元格引用模式：A1、Sheet2!B3、'Sheet Name'!C4等
    regEx.Pattern = "[A-Za-z]+\d+|(![A-Za-z]+\d+)|('[^']+'![A-Za-z]+\d+)"
    regEx.Global = True
    
    ' 清除数值常量
    On Error Resume Next
    Set targetCells = rangeToClear.SpecialCells(xlCellTypeConstants, xlNumbers)
    On Error GoTo 0
    If Not targetCells Is Nothing Then
        targetCells.ClearContents
        Set targetCells = Nothing
    End If
    
    ' 清除无单元格引用的公式
    On Error Resume Next
    Set targetCells = rangeToClear.SpecialCells(xlCellTypeFormulas)
    On Error GoTo 0
    If Not targetCells Is Nothing Then
        For Each cell In targetCells
            If Not regEx.Test(cell.Formula) Then
                cell.ClearContents
            End If
        Next cell
    End If
End Sub

这个方案通过正则匹配公式文本中的单元格引用格式，直接判断是否为纯计算公式，适合大多数普通使用场景。

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