【分享成果,随喜正能量】人不该太清醒,过去的事情就让它过去,不必反复咀嚼。一生不长,重要的事儿也没那么多。天亮了,又赚了。人可以真实地活着,但不要太认真。水至清则无鱼,人至察则无徒。完美主义者最大的悲哀,就是活得不真实。在真实的世界里,有苦有乐,有酸有甜。人活着最大的乐趣,就是从痛苦中把快乐找出来。什么都追求好,是一种积极的思想,却不是最好的活法。你随和,生活才随和。
《VBA信息获取与处理》教程是我推出第六套教程,目前已经是第一版修订了。这套教程定位于最高级,是学完初级,中级后的教程。这部教程给大家讲解的内容有:跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作,剪贴板应用、Split函数扩展、工作表信息与其他应用交互,FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。是非常抽象的,更具研究的价值。
教程共两册,八十四讲。今日的内容是专题四“EXCEL工作表数据的读取、回填和查找”的第5讲:在同一工作表中进行数据查找
第五节 如何在单个工作表中查找某个给定值
这个专题将的是工作表数据的操作,在前几讲中,我们讲了工作表数据和VBA直接的传输,这讲的内容仍是和工作表相关,就是如何在工作表中查找到某个值,在《VBA代码解决方案》中,我也曾经讲到过FIND方法,甚至提出这是LOOKUP函数的终结者。那么如何利用FIND方法解决问题呢?
1 Find方法和FindNext方法1) 我们先来看看FIND方法的语法和参数:
语法:expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SerchFormat)
参数expression是必需的,该表达式返回一个Range对象。
参数What是必需的,要搜索的数据,可为字符串或任意数据类型。
参数After是可选的,表示搜索过程将从其之后开始进行的单元格,必须是区域中的单个单元格。查找时是从该单元格之后开始的,直到本方法绕回到指定的单元格时,才对其进行搜索。如果未指定本参数,搜索将从区域的左上角单元格之后开始。
参数LookIn是可选的,信息类型。xlValues对应 值;xlFormulas 对应 公式;xlComments对应 批注
参数LookAt是可选的,可为XlLookAt常量的xlWhole 或xlPart之一。
参数SearchOrder是可选的,可为XlSearchOrder常量的xlByRows或xlByColumns之一。
参数SearchDirection是可选的,搜索的方向,可为XlSearchDirection常量的xlNext或xlPrevious之一。
参数MatchCase是可选的,若为True,则进行区分大小写的查找。默认值为False。
参数MatchByte是可选的,仅在选择或安装了双字节语言支持时使用。若为True,则双字节字符仅匹配双字节字符。若为False,则双字节字符可匹配其等价的单字节字符。
参数SerchFormat是可选的,搜索的格式。
需要注意的是:每次使用Find方法后,参数LookIn、LookAt、SearchOrder 和MatchByte的设置将保存。如果下次调用Find方法时不指定这些参数的值,就使用保存的值。因此每次使用该方法时请明确设置这些参数。
2) FindNext方法继续执行用Find方法启动的搜索。查找下一个匹配相同条件的单元格并返回代表单元格的Range对象
语法:expression.FindNext(After)
参数expression是必需的,返回一个Range对象。
参数After是可选的,指定一个单元格,查找将从该单元格之后开始。
2 利用Find方法在工作表中实现单值查找为了实现在工作表中的单值查找,我们可以利用下面的代码:
Sub MYNZI() '工作表唯一查询
Dim FJX As Variant
Sheets("Sheet5").Select
Range("i2 : I3000").ClearContents
i = 2
Do While Cells(i, "h") <> ""
Cells(i, "h").Select
UU = Cells(i, "h")
Set FJX = Sheets("Sheet5").Columns("A").Find(UU, lookat:=xlWhole)
If Not FJX Is Nothing Then
Cells(i, "i") = Sheets("Sheet5").Cells(FJX.Row, 2).Value
End If
i = i 1
Loop
MsgBox ("OK")
End Sub
代码截图:
代码讲解:上述代码实现了在工作表A列中查找H列的唯一值的方案,首先我们清空了要回填的数据区域Range("i2 : I3000").ClearContents,然后利用:
Set FJX = Sheets("Sheet5").Columns("A").Find(UU, lookat:=xlWhole)
来实现我们的查找,lookat:=xlWhole 是完全匹配,当然我们还可以利用其它参数来实现特定的匹配。
上面的这段代码中我保留了工作表的名称,这样以后大家利用起来可以直接的拷贝代码,进行必要的修改即可。当然,找到唯一的值后可以提取的数据可以根据实际情况需要做进一步的改进。
我们看看程序的运行结果:
3 利用FindNext方法在工作表中实现多值查找
为了实现在工作表中的多值查找我们可以使用FindNext方法,这个方法的好处就是可以查到多个值。在查找的过程中我们要设定起始位置,下面的代码是比较经典的代码,大家可以利用:
Sub MYNZJ() '工作表非唯一查询
Dim bcontinue As Boolean
Dim mysearch As Range
Dim myfind As Range
Dim fristmyfind As String
Sheets("Sheet6").Select
Range("i2 : I3000").ClearContents
i = 2
Do While Cells(i, "h") <> ""
Cells(i, "h").Select
bcontinue = True
Set mysearch = Sheets("Sheet6").Range("A1 : A" & Sheets("Sheet6").Range("A1").End(xlDown).Row)
Set myfind = mysearch.Find(what:=Cells(i, "h"), lookat:=xlWhole)
If Not myfind Is Nothing Then fristmyfind = myfind.Address
Do Until myfind Is Nothing Or Not bcontinue
Cells(i, "i") = Cells(i, "i") & " " & Sheets("Sheet6").Cells(myfind.Row, 2)
Set myfind = mysearch.FindNext(myfind)
If myfind.Address = fristmyfind Then bcontinue = False
Loop
Set myfind = Nothing
i = i 1
Loop
Set mysearch = Nothing
MsgBox ("OK!")
End Sub
代码截图:
代码讲解:
上述代码实现了工作表A列中的多值查找,当在A列中存在H列的值时返回数值,注意这里的查找开始表示是fristmyfind = myfind.Address,一直循环到这个地址再次出现。
下面我们看看代码的运行结果:
利用Find和FindNext方法从而实现了工作表中的单一值查询和多值的查询。
本节知识点回向:如何实现工作表中的单一值查询?如何实现工作表中的多值查询?
本专题参考程序文件:004工作表.XLSM
我20多年的VBA实践经验,全部浓缩在下面的各个教程中,教程学习顺序:
① 7→1→3→2→6→5或者7→4→3→2→6→5。
② 7→8
各套教程内容简介:
第7套教程(共三册):《VBA之EXCEL应用》:是对VBA基本的讲解
第1套教程(共三册):《VBA代码解决方案》:是入门后的提高教程
第4套教程(16G):VBA代码解决方案之视频(第一套的视频讲解)
第3套教程(共两册):《VBA数组与字典解决方案》:是对数组和字典的专题讲解
第2套教程(共两册):《VBA数据库解决方案》:是对数据库的专题讲解
第6套教程(共两册):《VBA信息获取与处理》:讲解VBA的网络及跨程序应用
第5套教程(共两册):VBA中类的解读和利用:类及接口技术的讲解
第8套教程(共三册):VBA之Word应用(最新教程):word中VBA的利用
- 第六套教程:VBA信息获取与处理,这是一部高级教程,涉及范围更广,实用性更强,面向中高级人员。教程共二十个专题,包括:跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作,剪切板应用、Split函数扩展、工作表信息与其他应用交互,FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。