粘贴公式时保留目标单元格原有单元格引用的方法

以下是几种高效的解决方法：

方法一：查找替换法（无需代码） #

这是最简单的批量处理方式，步骤如下：

1. 选中所有需要修改公式的单元格
2. 按下Ctrl+H打开「查找和替换」对话框
3. 第一步替换：
   • 查找内容：=
   • 替换为：TEMP=
   • 点击「全部替换」，将所有公式临时转为文本格式（开头标识为TEMP=）
4. 第二步替换：
   • 查找内容：TEMP=*
   • 替换内容：=IF(*=" ", "TBD", *)
   • 点击「全部替换」，此时所有原引用会被自动嵌套进IF判断公式中，最终格式为=IF(原引用=" ", "TBD", 原引用)
5. 完成后检查公式，确认原有单元格引用均已保留

方法二：VBA宏批量处理（适合大量单元格） #

如果单元格数量极多，用宏可以更高效完成：

1. 按下Alt+F11打开VBA编辑器
2. 右键点击工作簿名称，选择「插入」→「模块」
3. 将以下代码粘贴到模块窗口：

Sub AddTBDToReferences()
    Dim cell As Range
    For Each cell In Selection
        If cell.HasFormula Then
            Dim originalRef As String
            originalRef = Mid(cell.Formula, 2) ' 提取原公式中=后的引用部分
            cell.Formula = "=IF(" & originalRef & "="" "", ""TBD"", " & originalRef & ")"
        End If
    Next cell
End Sub

4. 回到Excel界面，选中所有目标单元格，按下F5运行宏，即可自动完成公式修改

方法三：自定义函数（灵活复用） #

如果后续需要频繁使用这个逻辑，可以创建自定义函数：

1. 按下Alt+F11打开VBA编辑器，插入模块后粘贴以下代码：

Function ShowTBD(rng As Range) As String
    If Trim(rng.Value) = "" Then
        ShowTBD = "TBD"
    Else
        ShowTBD = rng.Value
    End If
End Function

2. 回到Excel，将原公式=R!$A$1替换为=ShowTBD(R!$A$1)，同样可以用查找替换批量操作：
   • 查找内容：=
   • 替换为：=ShowTBD(
   • 全部替换后，选中所有单元格，按下F2进入编辑模式，再按Ctrl+Enter自动在所有公式末尾添加)

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