如何将公式从一个工作簿复制到另一个工作簿，而不创建外部链接？

在 Excel 中，有时需要将公式从一个工作簿移动或复制到另一个工作簿，同时避免粘贴后的公式链接回原始工作簿。这种情况常见于数据整合、与他人共享模型，或在独立文件中复用公式逻辑时。然而，默认情况下，在工作簿之间复制粘贴公式可能会生成不必要的外部引用——一旦源工作簿不可用，就可能引发错误、拖慢计算速度，甚至导致链接中断。值得庆幸的是，有多种实用方法可精准实现跨工作簿公式复制，且完全保留公式逻辑而不保留外部链接。以下针对不同场景和用户偏好，提供清晰的分步指南，涵盖 Excel 内置功能以及可用于自动化或简化操作的高效工具。

通过修改公式将公式从一个工作簿复制到另一个工作簿而不产生链接

若要复制公式而不生成指向原始工作簿的不必要链接，可先临时修改公式，粘贴后再将其还原。当您偶尔需要传输公式并希望借助 Excel 内置功能时，此方法尤为适用。

1. 选择包含要复制公式的区域，例如 H1:H6. 然后，转到开始选项卡，单击查找和选择，再选择替换。

提示：按 Ctrl+H 即可快速打开“查找和替换”对话框。

2. 在“查找和替换”对话框中，在查找内容字段中输入等号“=”，在替换为字段中输入空格字符，然后单击全部替换。

Excel 将弹出对话框，显示已执行的替换次数。单击确定，然后关闭“查找和替换”窗口。

3. 保持区域选中状态，按 Ctrl+C 复制，再按 Ctrl+V 将其粘贴到目标工作簿中。

4. 在目标工作簿中，选择已粘贴的区域。再次打开“查找和替换”对话框：单击开始 > 查找和选择 > 替换，或按 Ctrl+H。

5. 在“查找和替换”对话框中，在查找内容中输入一个空格，在替换为中输入等号“=”，然后单击全部替换。

6. 替换完成后，关闭弹出的消息和对话框窗口。粘贴的单元格现在将包含与原始公式相同的内容，且不含外部链接。

轻松将多个工作表/工作簿合并为单个工作表/工作簿

将来自不同工作簿的数十个工作表合并到一个工作表中可能十分繁琐。但借助 Kutools for Excel 的合并（工作表和工作簿）工具，只需轻点几下，轻松搞定！

立即获取为期 30 天的全功能免费试用！

通过将公式转换为文本将公式从一个工作簿复制到另一个工作簿而不产生链接

如果您希望采用更简洁、无风险的方法，Kutools for Excel 提供了内置功能，可将公式转换公式至文本并还原。此保存时间和挫败感，尤其适用于复杂公式或大批量操作，这些操作很容易因手动文本替换而中断。通过转换公式至文本，可确保在粘贴到新工作簿时 Excel 不会将其转换为链接；之后只需单击一下即可将其还原为公式。

1. 选择包含要复制公式的区域，然后单击 Kutools > 内容 > 转换公式至文本。

2. 所选公式将立即以文本形式显示。复制这些单元格，切换到目标工作簿，即可将结果粘贴到所需区域。

3. 当粘贴的单元格仍在目标工作簿中处于选中状态时，请返回到 Kutools> 内容，点击转换文本至公式。这些单元格将立即恢复为活动公式，且不再包含外部工作簿链接。

通过精准公式复制将公式从一个工作簿复制到另一个工作簿而不创建链接

另一种高效的方法是使用 Kutools for Excel 的精准公式复制功能。当您需要将多个公式（包括格式）精确复制并转移到新工作簿，且无需担心链接或引用转换时，此工具尤为实用。在处理对数据完整性要求较高的敏感或复杂电子表格时，这种方法非常有帮助。

1. 选择包含要复制公式的区域（例如 H1:H6），然后单击 Kutools 中的精准公式复制。

2. 在首个精准公式复制对话框中，单击确定以继续。

3. 随后将弹出第二个对话框，用于指定目标工作簿中的位置。请切换至该工作簿，单击目标单元格，然后点击确定。公式与格式将被完美粘贴，且不包含任何外部引用。

通过自动图文集将公式从一个工作簿复制到另一个工作簿而不创建链接

当您需要在不同工作簿中频繁重复使用相同公式，或希望将重要公式保存为个人快捷方式时，Kutools for Excel 的自动图文集功能尤为便捷。该功能可让您将任意公式保存为自动图文集条目，并在不同 Excel 会话和工作簿中即时复用，轻松简化重复性任务，有效降低复制粘贴出错的风险。

1. 单击包含要复用公式的单元格，然后在编辑栏中高亮显示该公式。

2. 在 Excel 导航窗格最左侧，单击以激活自动图文集窗格；随后转到公式组，点击顶部的添加，即可将所选内容保存为自动图文集。
       

3. 在“新建自动图文集”对话框中，输入描述性名称，然后单击添加即可完成确认。

4. 下次您需要在其他工作簿中使用该公式时，只需打开或切换到目标工作簿，选择目标单元格，然后单击对应的自动图文集条目，公式将立即以可运行的形式插入，而非链接或静态值。

使用 VBA 宏将公式从一个工作簿复制到另一个工作簿而不创建链接

如果您经常需要在工作簿之间传输公式（尤其是批量传输或作为自动化工作流的一部分），此 VBA 宏会先临时将“=”替换为占位符以避免生成外部链接，待公式写入目标位置后，再自动恢复为可执行的活动公式。它不会修改您的源单元格，也不会要求您在对话框打开期间切换工作簿。

1. 同时打开源工作簿和目标工作簿，按 Alt + F11，点击插入> 模块，然后粘贴以下代码：

Sub CopyFormulas_NoLinks_NoSwitch()
    Dim src As Range
    Dim rowsCnt As Long, colsCnt As Long
    Dim buf() As Variant
    Dim r As Long, c As Long
    Dim s As String, placeholder As String
    Dim wbName As String, shName As String, addr As String
    Dim tgtTL As Range, tgt As Range
    Dim oldCalc As XlCalculation

    placeholder = "#_EQUAL_#"

    On Error GoTo ExitHandler
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    oldCalc = Application.Calculation
    Application.Calculation = xlCalculationManual

    ' 1) Pick contiguous source range (any workbook)
    Set src = Application.InputBox( _
        Prompt:="Select the source range that contains formulas:", _
        Title:="Copy formulas without links", Type:=8)
    If src Is Nothing Then GoTo ExitHandler
    If src.Areas.Count > 1 Then
        MsgBox "Please select a single contiguous range.", vbExclamation
        GoTo ExitHandler
    End If

    rowsCnt = src.Rows.Count
    colsCnt = src.Columns.Count

    ' 2) Get destination info WITHOUT switching windows during a modal dialog
    wbName = Application.InputBox( _
        Prompt:="Enter DESTINATION workbook name (as shown in title bar, e.g., Book2.xlsx):", _
        Title:="Destination workbook", Type:=2)
    If wbName = "" Then GoTo ExitHandler

    shName = Application.InputBox( _
        Prompt:="Enter DESTINATION sheet name (e.g., Sheet1):", _
        Title:="Destination sheet", Type:=2)
    If shName = "" Then GoTo ExitHandler

    addr = Application.InputBox( _
        Prompt:="Enter top-left DESTINATION cell address (e.g., A1):", _
        Title:="Destination top-left cell", Type:=2)
    If addr = "" Then GoTo ExitHandler

    ' 3) Resolve destination references
    Dim wb As Workbook, ws As Worksheet
    On Error Resume Next
    Set wb = Application.Workbooks(wbName)
    On Error GoTo ExitHandler
    If wb Is Nothing Then
        MsgBox "Workbook '" & wbName & "' is not open.", vbExclamation
        GoTo ExitHandler
    End If

    On Error Resume Next
    Set ws = wb.Worksheets(shName)
    On Error GoTo ExitHandler
    If ws Is Nothing Then
        MsgBox "Worksheet '" & shName & "' not found in '" & wbName & "'.", vbExclamation
        GoTo ExitHandler
    End If

    On Error Resume Next
    Set tgtTL = ws.Range(addr)
    On Error GoTo ExitHandler
    If tgtTL Is Nothing Then
        MsgBox "Invalid address '" & addr & "'.", vbExclamation
        GoTo ExitHandler
    End If

    Set tgt = tgtTL.Resize(rowsCnt, colsCnt)

    ' 4) Build a text buffer so we never touch the source cells or use the clipboard
    ReDim buf(1 To rowsCnt, 1 To colsCnt)
    For r = 1 To rowsCnt
        For c = 1 To colsCnt
            If src.Cells(r, c).HasFormula Then
                s = src.Cells(r, c).Formula
                ' Replace only the leading "=" for speed/safety
                If Left$(s, 1) = "=" Then s = placeholder & Mid$(s, 2)
                buf(r, c) = s
            Else
                buf(r, c) = src.Cells(r, c).Value
            End If
        Next c
    Next r
    tgt.Value = buf

    ' 5) Restore placeholders to live formulas in destination
    For r = 1 To rowsCnt
        For c = 1 To colsCnt
            If VarType(tgt.Cells(r, c).Value) = vbString Then
                s = CStr(tgt.Cells(r, c).Value)
                If Left$(s, Len(placeholder)) = placeholder Then
                    s = "=" & Mid$(s, Len(placeholder) + 1)
                    tgt.Cells(r, c).Formula = s
                End If
            End If
        Next c
    Next r

    MsgBox "Formulas copied and restored successfully (no external links).", vbInformation
ExitHandler:
    On Error Resume Next
    Application.Calculation = oldCalc
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

2. 按 Alt + F8 运行 CopyFormulas_NoLinks_NoSwitch 宏：先选择源区域，然后直接输入目标工作簿名称、工作表名称及左上角单元格地址——整个提示过程中无需切换窗口。宏会将占位符文本写入目标位置，并自动将其恢复为活动公式（不含链接）。

演示：将公式从一个工作簿复制到另一个工作簿而不创建链接

最佳办公效率工具

🤖	KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行   |  生成代码|  创建自定义公式  |  数据分析及生成图表|  调用 Kutools Functions……
	热门功能：查找、高亮或标记重复项   |  删除空白行   |  合并列或单元格且不丢失数据   |  不使用公式的四舍五入……
	高级 LOOKUP：多条件 VLookup  |  多值 VLookup  |   跨多工作表 VLookup   |   模糊查找……
	高级下拉列表：快速创建下拉列表   |  级联下拉列表   |  多选下拉列表……
	列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列……
	特色功能：网格聚焦   |  设计视图   |增强编辑栏   | 工作簿和表管理器   |  资源库（自动文本）|  日期提取   |  汇总工作表  |  加密/解密单元格   | 按列表发送邮件   |  超级筛选   |   特殊筛选（筛选粗体单元格/斜体/删除线……） ......
	精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）|   50+ 图表 类型（甘特图，……）|   40+ 实用公式（基于生日计算年龄，……）|   19 插入工具（插入二维码，从路径插入图片，……）|   12 转换工具（小写金额转大写，汇率转换，……）|   7 合并和拆分工具（高级合并行，分割单元格，……）|……更多

在您的首选语言中使用 Kutools – 支持英语、西班牙语、德语、法语、中文及 40+ 种其他语言！

使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……

Kutools for Excel 更多详情……免费下载……

---

Office Tab 为 Office 带来标签式界面，让您的工作更轻松

• 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
• 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
• 将您的工作效率提升 50%，每天减少数百次鼠标点击！

Office Tab 更多详情……免费下载……

---

所有 Kutools 插件，一个安装程序

Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。

• 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
• 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
• 协同效果更佳— 在多个 Office 应用中实现高效协同
• 30 天全功能试用— 无需注册，无需信用卡
• 超值之选— 比单独购买插件更省钱

Kutools for Office 更多详情……免费下载……