多个工作表如何找符合某条件的值(如何在单个工作表中查找某个给定值)
多个工作表如何找符合某条件的值(如何在单个工作表中查找某个给定值)
2024-11-08 05:04:06  作者:該死溫柔  网址:https://m.xinb2b.cn/tech/xbl131390.html

大家好,最近推出的内容是"VBA信息获取与处理"中的部分内容,这套教程面向中高级人员,涉及范围更广,实用性更强,现在的内容是第四个专题"EXCEL工作表数据的读取、回填和查找"的内容。

第五节 如何在单个工作表中查找某个给定值

这个专题将的是工作表数据的操作,在前几讲中,我们讲了工作表数据和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


VBA是利用Office实现自己小型办公自动化的有效手段,这是我对VBA的应用界定。在取代OFFICE新的办公软件没有到来之前,谁能在数据处理方面做到极致,谁就是王者。其中登峰至极的技能非VBA莫属!学习VBA是个过程,也需要经历一种枯燥的感觉,如太白诗云:众鸟高飞尽,孤云独去闲。相看两不厌,只有敬亭山。

"水善利万物而不争",绵绵密密,微则无声,巨则汹涌。学习亦如此,知道什么是自己所需要的,不要蜷缩在一小块自认为天堂的世界里,待到暮年时再去做自欺欺人的言论。要努力提高自己,用一颗充满生机的心灵,把握现在,这才是进取。越是有意义的事情,困难会越多。愿力决定始终,智慧决定成败。不管遇到什么,都是风景。看淡纷争,看轻得失。茶,满也好,少也好,不要计较;浓也好,淡也好,其中自有值得品的味道。去感悟真实的时间,静下心,多学习,积累福报。而不是天天混日子,也不是天天熬日子。在后疫情更加严峻的存量残杀世界中,为自己的生存进行知识的储备,特别是新知识的储备。学习时微而无声,利用时则巨则汹涌。

我记得20年前自己初学VBA时,那时的资料甚少,只能看源码自己琢磨,真的很难。20年过去了,为了不让学习VBA的朋友重复我之前的经历,我根据自己多年VBA实际利用经验,推出了六部VBA专门教程。

第一套:VBA代码解决方案 是VBA中各个知识点的讲解,覆盖绝大多数的VBA知识点,初学必备;

第二套:VBA数据库解决方案 数据库是数据处理的专业利器,教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作,适合中级人员的学习。

第三套:VBA数组与字典解决方案 数组和字典是VBA的精华,字典是VBA代码水平提高的有效手段,值得深入的学习,是初级及中级人员代码精进的手段。

第四套:VBA代码解决方案之视频 是专门面向初学者的视频讲解,可以快速入门,更快的掌握这门技能。

第五套:VBA中类的解读和利用 这是一部高级教程,讲解类的虚无与肉身的度化,类的利用虽然较少,但仔细的学习可以促进自己VBA理论的提高。

第六套教程:《VBA信息获取与处理》是一部高级教程,涉及范围更广,实用性更强,面向中高级人员。教程共二十个专题,包括:跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作,剪切板应用、Split函数扩展、工作表信息与其他应用交互,FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。如需要可以可以WeChat: NZ9668

学习的过程也是修心的过程,修一个平静的心。在代码的世界中,心平静了,心情好了,身体自然而然就好。心静则正,内心里没有那么多邪知邪见,也就没有那么多妄想。利人就是利己。这些教程也是为帮助大家起航,助上我自己之力,我的上述教程是我多的经验的传递,大家可以根据以上资料1,3,2,6,5或者是4,3,2,6,5的顺序逐渐深入的逐渐学习。


每一分收获都是成长的记录,怎无凭,正是这种执着,成就了朝霞的灿烂。最后将一阙词送给致力于VBA学习的朋友,让大家感受一下学习过程的枯燥与执着:

浮云掠过,暗语无声,

唯有清风,惊了梦中啼莺。

望星,疏移北斗,

奈将往事雁同行。

阡陌人,昏灯明暗,

忍顾长亭。

多少VBA人,

暗夜中,悄声寻梦,盼却天明。

怎无凭!

分享成果,随喜正能量

  • 很适合春天的美甲(从指间提高心情)
  • 2024-11-08从指间提高心情在适合春季的美甲中享受指尖的美吧!这里介绍春天的潮流美甲“海军风”“格子”“碎花”“条纹”!向春天的美甲发起挑战吧!海军风能完全感受到春天氛围的格子图案,春色全开!从上至下:120%可爱的粉色格纹;用。
  • 原神怎么多人游戏(需要怎么操作)
  • 2024-11-08需要怎么操作当冒险等阶达到16级时,多人游戏功能自动解锁通过多人游戏功能,旅行者可以进入他人的世界,进行多人游戏,也可以欢迎其他世界的旅行者加入自己的游戏进程,一起探索世界、攻克秘境点击小地图旁的按钮,即可打开操。
  • 古代才女谢道韫有什么的美称(才女谢道韫脱口而出一句诗)
  • 2024-11-08才女谢道韫脱口而出一句诗古人写雪的诗词很多,而且都很美狂放一点的如李白“燕山雪花大如席,片片吹落轩辕台”;温柔一点的如杨万里“最爱东山晴后雪,软红光里涌银山”;最浪漫的是岑参“忽如一夜春风来,千树万树梨花开”;最孤独的是柳宗。
  • 电工基本知识及技巧(怎么样快速入门学电工)
  • 2024-11-08怎么样快速入门学电工提起低压电气设备,相信很多的电工老师傅都能说上一二,例如:空气开关,漏电保护器,热继电器,中间继电器,固态继电器等等,这都是电力作业人员常用的低压电气设备,每一种低压电气设备在电力运行中都有很重要的作。
  • 给孩子讲童话故事的好处(童话故事对孩子的影响有多大)
  • 2024-11-08童话故事对孩子的影响有多大童话,儿童文学的一种体裁,通过丰富的想象、幻想和夸张来编写适合于儿童欣赏的故事童话具有语言通俗生动,故事情节离奇曲折、引人入胜的特点童话常采用拟人的手法,赋予鸟兽虫鱼花草树木等生命,使其拥有人的思想感。
  • 地面降服技巧有哪些(地面降服术之腿锁的11种控制位置)
  • 2024-11-08地面降服术之腿锁的11种控制位置位置1——足缄(AshiGarami)“腿锁中的前手刺拳”这是通常我们认为最基本和最容易获得的腿部锁定位置,表面上看类似于单腿X防守的姿势对很多人来说,提到腿锁第一个想到的也是这个位置,但这只是一个起。
  • 猕猴桃汁怎么做(怎么做猕猴桃汁)
  • 2024-11-08怎么做猕猴桃汁用猕猴桃榨汁,准备三四个新鲜的猕猴桃、适量蜂蜜和纯净水,将新鲜的猕猴桃洗净去皮切成小块放入榨汁机中往榨汁机里面加适量纯净水打开榨汁按钮,榨好汁后倒进杯子里加入一点蜂蜜即可饮用要榨出来的猕猴桃汁更加营养。
  • 水司楼现况(天下第一水司楼)
  • 2024-11-08天下第一水司楼“天下第一水司楼”造价两亿如今要改成酒店贵州省独山县净心谷景区“水司楼”9月13日,继荆州花巨资拆除1.72亿元造的关羽雕像后,有信息称,曾引起全国舆论关注的贵州省独山县净心谷景区“水司楼”已经在“汹。
  • 新时代新征程新伟业观后感(新时代新征程新伟业)
  • 2024-11-08新时代新征程新伟业新华社广州1月19日电题:海南舰:“两栖先锋”提升打赢能力于晓泉、陈运鹏、张素同“可以起飞!”海天一线,风起浪卷,一场大机群对陆突击演练在某海域拉开帷幕数架舰载直升机搭载陆战队员,从海南舰上依次腾空,。
  • 虾爬子几月份最肥(虾爬子多少月份最肥)
  • 2024-11-08虾爬子多少月份最肥虾爬子4月份最肥,和虾、蟹差不多,5月产卵,因此4月份正是肥壮、鲜美的时候,过了4月要等到9月以后基本介绍如下:外形:躯体呈扁平状,长约15厘米,宽2-4厘米,胸部长有类似螳螂的大刀腿,背上有10个节。
  • 如何在水族箱中栽种水草(种水草的步骤详解)
  • 2024-11-08种水草的步骤详解铺放基肥底砂长效基肥应该在水族箱放水前铺在水族箱的底层,然后再铺一层干净的砂子,厚度控制在5~8厘米砂层太薄,水草容易浮起来,而且对水草的生长也不利;砂层太厚,水草不能很好吸收到基肥营养,而且杂质沉淀。
  • 你在哪里结局40集(你在哪里团圆大结局)
  • 2024-11-08你在哪里团圆大结局由王迎执导,朱金晨编剧,著名演员王雷、秦海璐、张铎等领衔主演的现实题材家庭关怀剧《亲爱的,你在哪里》在经历了一系列的曲折剧情之后,终于迎来圆满大结局该剧通过小女孩媛媛的离家出走所引发的家庭矛盾和冲突,。