老板說，他很多公司都記不住全稱，能不能隨便輸入個關鍵字就把包含關鍵字的名字全列出來？
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