如何在不取消篩選的情況下替換 Excel 中的篩選數據？

例如，如果您在篩選列表中發現了一些拼寫錯誤或需要標準化條目，您可能希望一次性糾正所有可見行，而不修改隱藏（被篩選掉）的數據。Excel 提供了一個有用的快捷方式，使您可以選擇篩選範圍內僅可見的單元格。此操作對於進行統一替換或快速批量更新非常高效。

注意：使用此方法替換將覆蓋所有選定的可見單元格為相同的值；如果每個單元格需要獨特的條目，請考慮以下其他解決方案。

1. 選擇需要替換的篩選範圍內的單元格。然後，同時按下 Alt + ;。此操作將僅突出顯示可見（篩選後）的單元格，而忽略任何隱藏行。

故障排除提示：如果 Alt + ; 不起作用，請確保您的選擇涵蓋了您實際想要更改的單元格，並且篩選已正確應用。

2. 輸入要輸入的值，然後一起按下 Ctrl + Enter。此命令將新值一次性輸入到所有選定的（可見）單元格中。

按下這些鍵後，選定範圍內的所有可見篩選單元格將立即更新為新值，隱藏行保持不變。

優點：簡單快速進行統一替換；不需要外掛程序。限制：所有選定單元格將被完全相同的值替換。

提示：要撤銷更改，只需在操作後按下 Ctrl + Z。

有時候，更新篩選數據不僅僅是單一值替換——您可能想將篩選範圍與另一個大小相等的範圍交換，而不干擾篩選。這對於數據比較、數據集版本控制或恢復先前的值特別有用。使用 Kutools for Excel 的 Swap Ranges 工具，可以順暢地完成這種交換。

1. 轉到 Excel 功能區，選擇 Kutools > 區域 > 交換區域，啟動交換區域對話框。

2. 在對話框中，將第一個框（交換範圍1）設置為篩選後的可見數據範圍，並將第二個框（交換範圍2）設置為要交換的數據範圍。確保兩個範圍具有相同的行數和列數才能成功交換。

3. 點擊確定。Kutools 將立即交換兩個範圍之間的值，同時保持篩選不變。篩選設置保持不變；只有指定的單元格內容被交換。

執行此操作後，驗證交換內容的準確性。該操作不會影響其他篩選掉的數據。

優點：處理篩選數據中的整個範圍交換操作；適用於比較分析。注意：交換的範圍應大小匹配；否則會出現錯誤。

除了交換之外，有時候您有新的數據準備好粘貼到篩選區域中，但只想更新可見（顯示的）行，跳過隱藏的行。Kutools for Excel 的 Paste to Visible Range 工具提供了一種便捷的方式，將複製的數據直接粘貼到篩選列表中僅可見的單元格中。這對於快速批量更新、數據導入或從工作簿的另一部分複製結果非常有幫助。

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 等於 "舊值"，則顯示 "新值"；否則，顯示 A2 的值。
• 如果行被篩選掉，公式返回空白。

2. 按 Enter 並向下拖動公式。該邏輯動態應用於可見行。要最終確定結果，複製輔助列並使用選擇性粘貼 → 值來覆蓋原始數據。

如何在 Excel 中僅粘貼值到可見單元格？

如何在 Excel 中交換行或列？