如何删除被引用单元格且不引发其他单元格公式出现#REF!错误？

你之前的代码无法解决问题，原因在于：

• Application.Calculation仅控制计算模式，删除单元格时Excel仍会自动更新引用，将无效引用替换为#REF!，这和计算是否自动无关。
• ErrorCheckingOptions系列设置只是控制是否显示错误提示标记，无法阻止Excel修改引用本身。

要解决这个问题，根据你的需求可以选择以下两种方案：

方案一：保留原引用公式（仅阻止Excel修改公式文本） #

如果希望删除单元格后，其他工作表的公式仍保留原引用地址（比如Sheet1!A1），而非被替换为#REF!，可以先将公式转为文本，删除操作完成后再恢复公式：

Sub DeleteCellsWithoutRefError()
    Dim wsCurrent As Worksheet
    Dim ws As Worksheet
    Dim wsName As String
    
    Set wsCurrent = ActiveSheet
    wsName = wsCurrent.Name
    
    ' 1. 将其他工作表中引用当前工作表的公式转为文本（在公式前加单引号）
    Application.ScreenUpdating = False
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> wsName Then
            ws.Cells.Replace What:="=" & wsName & "!", Replacement:="'=" & wsName & "!", LookAt:=xlPart
        End If
    Next ws
    
    ' 2. 删除当前工作表的单元格
    wsCurrent.Cells.Delete
    
    ' 3. 恢复公式（去掉单引号）
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> wsName Then
            ws.Cells.Replace What:="'=" & wsName & "!", Replacement:="=" & wsName & "!", LookAt:=xlPart
        End If
    Next ws
    
    Application.ScreenUpdating = True
End Sub

注意：这种方法只是保留了公式文本，计算时仍会返回#REF!，但公式本身不会被Excel自动修改。

方案二：将引用转为静态值（彻底避免错误） #

如果希望删除单元格后，其他工作表的引用直接变为删除前的计算值，不再依赖原单元格，可以先将引用转为静态值：

Sub DeleteCellsWithValueReplace()
    Dim wsCurrent As Worksheet
    Dim ws As Worksheet
    Dim rng As Range
    
    Set wsCurrent = ActiveSheet
    
    ' 1. 将其他工作表中引用当前工作表的单元格转为值
    Application.ScreenUpdating = False
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> wsCurrent.Name Then
            On Error Resume Next ' 跳过无公式的单元格
            Set rng = ws.Cells.SpecialCells(xlCellTypeFormulas)
            If Not rng Is Nothing Then
                rng.Value = rng.Value
            End If
            On Error GoTo 0
        End If
    Next ws
    
    ' 2. 删除当前工作表的单元格
    wsCurrent.Cells.Delete
    
    Application.ScreenUpdating = True
End Sub

这种方法会把公式替换为删除前的计算结果，后续不会再出现#REF!错误，但公式会变成静态值，无法自动更新。

补充说明 #

如果你的需求只是清空单元格内容而非删除单元格（比如不需要调整行/列位置），可以直接用wsCurrent.Cells.ClearContents替代wsCurrent.Cells.Delete，这样其他工作表的引用仍会指向原单元格地址，仅返回空值而非#REF!。

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