如何在 Excel 的儲存格中輸入時進行即時篩選搜尋？

Author Siluvia Last modified 2025-08-23

本文提供了一種方法，讓您在 Excel 的儲存格中輸入時能夠即時搜尋和篩選。

使用 VBA 程式碼實現輸入時的即時篩選搜尋

使用 VBA 程式碼實現輸入時的即時篩選搜尋

如下方截圖所示，您有一個名稱列表，希望在特定儲存格中輸入時能即時搜尋和篩選。請按照以下步驟操作以實現此功能。

1. 首先，您需要使用列表數據創建一個表格，並將該表格命名為「Name」。請選擇整個列表，然後點擊插入 > 表格。

2. 在彈出的創建表格對話框中，點擊確定。參見截圖：

3. 點擊表格中的任何儲存格以啟用設計標籤，然後在 表格名稱 文本框中將表格重命名為 Name。參見截圖：

4. 點擊開發工具 > 插入 > 文字框（ActiveX 控制項），在表格列表上方插入一個文字框，如下方截圖所示：

5. 右鍵單擊文字框並選擇屬性，在屬性窗口中，在 LinkedCell 框中輸入一個儲存格引用。

6. 右鍵單擊文字框並從上下文菜單中選擇檢視程式碼。然後在 Microsoft Visual Basic for Applications 窗口中，將原始程式碼替換為以下 VBA 程式碼。參見截圖：

VBA 程式碼：在 Excel 中輸入時即時篩選搜尋

Private Sub TextBox1_Change()
'Update by Extendoffice 2018/08/22
Dim xStr, xName As String
Dim xWS As Worksheet
Dim xRg As Range
    On Error GoTo Err01
    Application.ScreenUpdating = False
    xName = "Name"
    xStr = TextBox1.Text
    Set xWS = ActiveSheet
    Set xRg = xWS.ListObjects(xName).Range
    If xStr <> "" Then
        xRg.AutoFilter field:=1, Criteria1:="*" & xStr & "*", Operator:=xlFilterValues
    Else
        xRg.AutoFilter field:=1, Operator:=xlFilterValues
    End If
Err01:
Application.ScreenUpdating = True
End Sub

備註：在程式碼中，TextBox1 是插入的文字框的名稱，Name 是表格列表的名稱。您可以根據需要更改它們。

7. 按下 Alt + Q 鍵關閉 Microsoft Visual Basic for Applications 窗口。

8. 點擊 開發工具 > 設計模式 以關閉設計模式。

從現在開始，表格列表將根據文字框中輸入的值進行即時搜尋和篩選。參見截圖：

使用 Kutools AI 解鎖 Excel 的魔法

智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
自訂公式：生成量身定制的公式，簡化您的工作流程。
VBA 編碼：輕鬆編寫和實現 VBA 代碼。
公式解釋：輕鬆理解複雜的公式。
文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多