我有一个Range（范围）需要清理，我的规则如下：

• 所有文本都要保留
• 所有数值必须被删除
• 所有公式要保留

我参考这个问题来清除这个Sub：this

Private Sub ClearSelection(rangeToClear As Range)
    If rangeToClear Is Nothing Then
        Exit Sub
    End If

    Dim cleanRange As Range

    On Error Resume Next
    Set cleanRange = rangeToClear.SpecialCells(xlCellTypeConstants, xlNumbers)
    On Error GoTo 0
    If Not cleanRange Is Nothing Then
        cleanRange.ClearContents
    End If
End Sub

但问题在于，在我的情况中，一些用户将数值字段声明为公式。

例如：不是把 3500 放进去，而是写成 =3.5 * 1000
这些单元格不会像我预期的那样被清除。

有没有办法也删除那些不引用任何外部单元格的公式？

解决方案

你可以使用属性 Precedents 来检查单元格是否包含依赖于其他单元格的公式。如果该单元格包含依赖于任何其他单元格的公式，该属性将返回一个包含所有相关单元格的Range。然而，访问对不依赖任何其他单元格值的单元格的此属性会引发运行时错误，因此你必须用一个 On Error-语句将该语句包起来。

因此，要清除所有没有依赖的公式单元格，先获取所有包含公式的单元格，然后遍历所有单元格并检查 Precedents：

Sub ClearDummyFormulas(rangeToClear As Range)
    ' Get all Cells containing a formula
    On Error Resume Next
    Dim formulaRange As Range, cell As Range
    Set formulaRange = rangeToClear.SpecialCells(xlCellTypeFormulas)
    On Error GoTo 0
    If formulaRange Is Nothing Then Exit Sub

    ' For every cell, check if formula is dependent on any other cell
    For Each cell In formulaRange
        Dim dependencies As Range
        Set dependencies = Nothing
        On Error Resume Next
        Set dependencies = cell.Precedents
        On Error GoTo 0
        ' Not dependent on other cells, clear it. 
        If dependencies Is Nothing Then cell.ClearContents
    Next cell
End Sub

如果您感兴趣：存在与 Precedents-Method对应的方法：要获取依赖某个单元格的单元格列表，请使用属性 Dependents