如何將公式從一個活頁簿複製到另一個活頁簿，卻不會產生連結？

在 Excel 中，您有時需要將公式從一個活頁簿移動或複製到另一個活頁簿，同時避免貼上的公式回連至原始活頁簿。這種需求常見於資料整合、與他人共享模型，或在獨立檔案中重複運用公式邏輯。然而，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，選取來源區域。接著只需輸入目的地工作簿名稱、工作表名稱及左上角儲存格位址即可——提示期間無需切換視窗！巨集會自動將佔位文字寫入目的地，並還原為不含連結的有效公式。

示範：將公式從一個工作簿複製到另一個工作簿而不產生連結

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行   ｜  產生程式碼｜  建立自訂公式  ｜  分析資料並產生圖表｜  呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值   ｜  刪除空白行   ｜  合併列或儲存格而不遺失資料   ｜  不使用公式的四捨五入……
	高級 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 中啟用分頁式編輯與閱讀功能，以及 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 詳細資訊……免費下載……