这样的VBA讲解

风哥哥 ！~~~~

---

怎么了星光女神？

---

老板今天找我了！都怪你！

---

冤枉啊！这几天我都没去找你啊？

---

还不是你总用VBA泡我，哦不对，是帮我！

---

   …………

---

口误嘛！老板说，他很多公司都记不住全称，能不能随便输入个关键字就把包含关键字的名字全列出来？

---

也就是做关键字查询呗？咱们之前用Microsoft Query做过一个吧？

---

操作步骤有点多，谁让你总是要帮（泡）我。

---

好好好！！那就用VBA做！

---

要快要快要赶快，不然我把别人爱。

---

好了好了，还好有现成的数据，改改就好！

---

随风哥哥真厉害，我要天天把你爱。

---

女神女神别发嗲，哥要给你说代码

---

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单元格里录入数据即可！

---

刚刚吃在吃米线，你起气到我了，米线打翻了，你自己看着办吧！

---

哥赔（陪）你一碗（晚）就是了！

---