本节课是VBA教学的第三章第22节课：查询系统制作（单元格查找实际应用）。今天主要讲解单元格查找的实际运用。如何实现精确查找和通配符模糊查找。

通过单元格查找系统的查询思路，我们可以想到有完全精确查询和通配符模糊查询两种。下面来看一下代码实现。

Sub 查询系统()

ends = Columns(1).Find("*", , , , , searchdirection:=xlPrevious).Row '动态找到A列的最后一个单元格

Range("g3:l999").Clear '清除之前所有的筛选结果

For Each Rng In Range("a2:a" & ends)

m = m + 1

If Rng Like Range("h1") Then  '如果条件成立，那么

k = k + 1

Range("a" & m + 1 & ":e" & m + 1).Copy Range("g" & k + 2) '将记录复制到另一个区域

End If

End Sub

思路讲解：

1、第一行代码功能主要为在查询数据区域时，找到文本当中最后一个但员工内容，自定义从下往上查询，不然默认为从上往下；

2、第二行代码清除单元格区域内容是为了将首次查询过后这个范围内的数据先清除掉，然后将下面匹配后对应的数据添加到单元格。​​​​