如何在不取消篩選的情況下，直接替換 Excel 中已篩選的資料？

例如，當您發現篩選清單中有拼字錯誤，或需要標準化資料項目時，可能希望一次修正所有可見列的內容，而不影響隱藏（被篩選掉）的資料。Excel 提供了一個實用的快速鍵，讓您僅選取篩選範圍中的可見儲存格，非常適合用來執行統一取代或快速批次更新。

注意：使用此方法取代時，將以相同內容覆寫所有選取的可見儲存格；若需為每個儲存格填入不同內容，請考慮以下其他解決方案。

1. 選取篩選範圍中需要取代的儲存格，然後同時按下 Alt+;，即可僅反白顯示可見（已篩選）的儲存格，並自動忽略所有隱藏列。

疑難排解提示：若 Alt + ； 無效，請確認所選範圍確實包含您要變更的儲存格，且篩選已正確套用。

2. 輸入您要填入的值，然後同時按下 Ctrl+Enter，即可將新值一鍵填入所有選取（可見）的儲存格中！

按下這些按鍵後，您所選區域中所有可見且已篩選的儲存格將立即更新為新值，而隱藏的列則維持不變。

優點：適用於統一取代，簡單又快速；無需外掛程式。限制：所有選取的儲存格都會被替換為完全相同的值。

提示：若要還原變更，請在操作後立即按下 Ctrl + Z。

有時更新篩選資料不僅需要以單一值取代——您可能希望將篩選範圍與另一個相同大小的範圍直接交換，同時不影響現有篩選條件。這在進行資料比較、管理資料集版本，或還原先前數值時尤其實用！立即透過 Kutools for Excel 的交換區域功能，輕鬆完成此高效交換作業。

1. 前往 Excel 功能區，點選 Kutools > 範圍 > 交換區域，即可開啟「交換區域」對話方塊。

2. 在對話方塊中，將第一個方框（交換範圍 1）設為您已篩選的可見資料範圍，並將第二個方框（交換範圍 2）設為欲與之交換的資料區域；請務必確保兩個範圍的列數與欄數完全相同，才能順利完成交換。

3. 按一下確定。Kutools 將立即交換兩個範圍的內容，同時完整保留您的篩選設定——僅指定儲存格的值會被交換，篩選條件維持不變。

執行此操作後，請確認交換內容是否正確。此操作不會影響其他已被篩選排除的資料。

優點：可處理篩選資料中的整個範圍交換作業，適用於比較分析。注意：交換的範圍大小必須相符，否則將發生錯誤。

除了交換資料之外，有時您已準備好新資料要貼到篩選區域中，卻只想更新可見（顯示）的列，並跳過隱藏列。Kutools for Excel 的「貼上到可見區域」功能提供了一種便捷方式，讓您能將複製的資料直接貼到篩選清單中的可見儲存格，輕鬆實現快速批次更新、資料匯入，或從活頁簿其他部分複製結果！

1. 選取包含欲用於取代資料的範圍，然後前往 Kutools> 範圍> 貼上到可見區域，即可啟動此工具。

2. 在彈出的對話方塊中，選取要貼上新值的篩選資料目的地範圍，然後按一下確定以套用。

Kutools 會自動將貼上的值僅套用至可見（已篩選）的列，隱藏列則維持不變——這正是針對篩選清單進行精準、定向取代的理想解決方案。

優點：可一次以多個新值批量更新篩選後的記錄，無需逐欄手動複製／貼上。提示：請確保來源範圍與可見目標範圍的儲存格數量一致，避免資料錯位。

對於更複雜或動態的取代作業——例如替換特定字詞、根據條件更新數值，或套用模式化變更——您可以運用 VBA 巨集，僅針對篩選範圍中的可見儲存格進行選擇性資料取代。此方法尤其適合處理大型資料集、執行自訂邏輯，或跨多個工作表自動化更新。

1. 按一下開發人員 > Visual Basic。在 Microsoft Visual Basic for Applications 視窗中，按一下插入 > 模組，並將下列程式碼貼到模組中：

Sub ReplaceVisibleCellsOnly_Advanced()
    ' Updated by ExtendOffice
    Dim rng As Range
    Dim cell As Range
    Dim searchText As String
    Dim replaceText As String
    Dim xTitleId As String

    On Error GoTo ExitSub
    xTitleId = "KutoolsforExcel"

   
    Set rng = Application.InputBox("Select the filtered range:", xTitleId, Selection.Address, Type:=8)
    If rng Is Nothing Then Exit Sub

 
    searchText = Application.InputBox("Enter the text/value to be replaced:", xTitleId, "", Type:=2)
    If searchText = "" Then Exit Sub
    replaceText = Application.InputBox("Enter the new text/value:", xTitleId, "", Type:=2)

    On Error Resume Next
    For Each cell In rng.SpecialCells(xlCellTypeVisible)
        If Not IsError(cell.Value) Then
            If InStr(1, cell.Value, searchText, vbTextCompare) > 0 Then
                cell.Value = Replace(cell.Value, searchText, replaceText, , , vbTextCompare)
            End If
        End If
    Next cell
    On Error GoTo 0

    MsgBox "Replacements completed in visible cells.", vbInformation, xTitleId
ExitSub:
End Sub

2. 按一下執行按鈕以執行巨集。先選取篩選範圍，再輸入要取代的值與新值，巨集將僅對可見儲存格套用取代，隱藏列則維持不變。

當您希望採用公式驅動的方式，根據列是否可見（即未被篩選排除）來「取代」或調整顯示值時，可結合使用 SUBTOTAL 與 IF 或 IFERROR 等條件邏輯。此方法非常適合用於動態報表或視覺化替代，且完全不會更動原始資料！

1. 假設您的資料位於範圍 A2:A100 中，請在相鄰的儲存格（例如 B2）輸入下列公式：

=IF(SUBTOTAL(103, OFFSET(A2, 0, 0)), IF(A2 = "oldvalue", "newvalue", A2), "")

說明：

• SUBTOTAL(103, OFFSET(A2, 0, 0)) 若該列可見則傳回 1，若隱藏則傳回 0.
• 若該列可見，且 A2 等於 "oldvalue"，則顯示 "newvalue"；否則顯示 A2 的值。
• 若該列遭篩選排除，公式將傳回空白。

2. 按下 Enter 鍵後，將公式向下拖曳，此邏輯便會動態套用至所有可見列。若要完成最終結果，請複製輔助欄，並使用選擇性貼上 →「貼上為數值」來覆寫原始資料。

如何在 Excel 中僅將數值貼上至可見的儲存格？

如何在 Excel 中交換欄或列的位置？