老闆說，他很多公司都記不住全稱，能不能隨便輸入個關鍵字就把包含關鍵字的名字全列出來？

Step 01：

右鍵單擊工作表標籤→檢視程式碼

Step 02：

把下面的程式碼複製進事件程式碼視窗：

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rng As Range

Application.EnableEvents = False '禁用事件（由於這是單元格變化即可觸發事件，我們還要對單元格進行錄入資料）

If Target.Address = "$C$2" Then '限定觸發事件的單元格為C2單元格（target表示觸發事件的單元格）

Range("d2:d100").ClearContents '清除上一次的查詢結果

For Each rng In Range("a2:a58") '套路，遍歷區域

If rng.Value Like "*" & Target.Value & "*" Then 'like關鍵字匹配包含條件的資料 *表示任意長度字元

i = Cells(Rows.Count, 4).End(xlUp).Row + 1 '獲取D列最後一個非空單元格行號

Cells(i, 4) = rng.Value '記錄查詢結果

End If

Next

End If

Application.EnableEvents = True '啟用事件

End Sub

直接在C2單元格里錄入資料即可~

圖文製作：隨風