EXCEL 大数据查询之六《唯一值查询VBA实现篇》

从本文开始将陆续讲解EXCEL大数据查找功能的VBA实现，可能你之前不懂VBA，甚至不懂英语，没关系，只要跟着我的步骤，你一样会成为高手，成为职场上的领军人。

本文仍从唯一值查询入手，讲解以EXCEL2003之前的版本为主，07版本的可以一样使用代码。

1我们先从最基本的唯一查找开始,界面如下：先建立两个名称分别为“CBOM”“M”的两页面，在“CBOM”第一行合适位置添加两个矩形框，填入“A唯一查询”“清零”，如图：

TI

上面表格有两个页面“CBOM”和“M”,将分别放置查找的数据和源数据（基础数据）

2 点开工具>>>宏>>>>Visual Bisic编译器

T2

3进入界面：

T3

4 选中你的文件，右键点击插入>>>模块，如图所示：

T4

5进入下面的界面：

T5

6 在右侧空白区域输入下面代码：

Sub KK()

Dim FJX

Sheets("CBOM").Select

Sheets("CBOM").Range("b2 : e3000").Select

Selection.ClearContents

i = 2

k = 1

Do While Cells(i, 1) ""

Cells(i, 1).Select

UU = Cells(i, 1)

Set FJX = Sheets("M").Columns("A").Find(UU, AFTER:=[A1], lookat:=xlWhole)

If Not FJX Is Nothing Then

Cells(i, 2) = Sheets("M").Cells(FJX.Row, 2).Value

Cells(i, 3) = Sheets("M").Cells(FJX.Row, 3).Value

Cells(i, 4) = Sheets("M").Cells(FJX.Row, 4).Value

Cells(i, 5) = Sheets("M").Cells(FJX.Row, 5).Value

End if

i = i + 1

Loop

MsgBox ("OK")

End Sub

Sub qingl()

Sheets("CBOM").Select

Rows("2:30000").Select

Selection.Delete

Range("a1").Select

End Sub

如下图 ：

T6

7.把要查找的数据放在“CBOM”页。

T7

8 在COM 页，选中矩形框“A唯一查询”，点右键>>>指定宏

T8

9 找到刚才建立的KK 点确定，同样把qingl 赋给“清零”矩形框

T9

T10

10 把基础资料（源数据）放在“M”页

11 点击“A唯一查询”

12验证一下结果：

12 清零按钮可以清除数据。

好的，到此一个查询的完整VBA结构就写完了。

分享成果，随喜正能量。