发布日期：2024-09-08 18:08 点击次数：196
HI，人人好，我是星光。这章陆续给人人共享VBA常用对象之单位格的编程妙技。诚然莫得自古以来，但照旧无人不晓的是萝莉 在线，在Excel中有一个很常用的功能：查找与替换。而在VBA编程中也有与之对应的两个技艺：Find和Replace。
我们先来聊Find，比拟于Replace它更常用。
1 丨
基本语法
Find是单位格对象的技艺，默许在指定的区域中查找包含某个数据的单位格。若找到适宜条目的数据，则复返包含该数据的单位格；若未找到适宜条目的，则复返Nothing。
语法局面如下▼
<单位格对象>.Find (What，[After]，[LookIn]，[LookAt]，[SearchOrder]，[SearchDirection]，[MatchCase]，[MatchByte]，[SearchFormat])
语法看的一脸懵逼？皆是洋文惹的锅！其实，以上参数基本对应了查找对话框中的各个选项。
图片
我来给您翻译一下：
<单位格对象>.Find (查找值，[查找出手位置]，[查找范围的类型]，[匹配形貌统统匹配照旧部分匹配]，[查找形貌行或列]，[查找方上前或后]，[是否分辩大小写]，[全角或半角]，[查找单位格的局面])
照旧一脸懵？打个响指，语法中带中括号的部分皆是可选的，是以我再给你简化一下，只保留最常用的两个参数。
<单位格对象>.Find (查找值，[匹配形貌是统统匹配照旧部分匹配])
这么是不是就很肤浅了？
送佛送到西，不管男女，皆抱你上花轿，我再给你举个例子。
图片
以上图所示的数据表为例，查找是否存在字段名'语文'。淌若存在，则弹窗清晰行号和列标；淌若不存在，则清晰查无此货。
示例代码如下：
代码看不全不错傍边拖动..▼
Sub rngFind() Dim rng As Range '界说一个单位格对象 Set rng = Cells.Find(what:='语文'， lookat:=xlWhole) If rng Is Nothing Then MsgBox '查无此货' Else MsgBox '行：' & rng.Row & ' 列：' & rng.Column End IfEnd Sub代码贯通▼
第2行代码界说一个变量rng，类型为单位格对象。
第3行代码使用Find技艺在面前职责表统统这个词区域中查找字符串'语文'，匹配形貌为合座匹配（xlWhole），并将查询效果赋值给变量rng。
第4行至第8行代码判断rng是否为Nothing。淌若条目竖立，则讲明查无效果；淌若条目不竖立，则复返查找效果的行号和列标。
本例复返效果如下：
图片
2 丨
费解匹配查询
Find技艺和Excel「查找替换」一样，也撑抓费解匹配。收场的形貌有两种，将匹配形貌lookat建立为xlPart，大略在查找值使用通配符。照旧以上节所示的数据表为例，如需查找东说念主名中包含'星光'的语文收获，不错使用以下代码。代码1，xlPart技艺..▼Sub rngFindPart() Dim rng As Range '界说一个单位格对象 Set rng = Cells.Find(what:='星光'， lookat:=xlPart) '部分匹配 If rng Is Nothing Then '淌若查无效果... MsgBox '查无此货' Else '淌若查有用果，则向右偏移1位取值 MsgBox rng.Value & '语文收获是：' & _ rng.Offset(0， 1).Value End IfEnd Sub
第3行代码建立匹配形貌为部分匹配，淌若查有用果，第7行代码使用Offset语句，将效果单位格向右偏移一个单位格得到语文收获。
代码运行后，复返效果如下：
图片
代码2，通配符技艺..▼
Sub rngFindWildcard() Dim rng As Range '界说一个单位格对象 Set rng = Cells.Find(what:='*星光*'， lookat:=xlWhole) '查找值使用了通配符* If rng Is Nothing Then MsgBox '查无此货' Else MsgBox rng.Value & '语文收获是：' & _ rng.Offset(0， 1).Value End IfEnd Sub第3行代码将Find语句的查找值建立为*星光*，星号行为通配符，不错代表轻易个字符，因此该查找值的意念念等于包含星光的字符串。
……
比拟于xlPart技艺，通配符要更活泼一些，它不但能抒发包含联系，也能抒发以某个字符出手或截止的查找值，比如看见*，抒发了以看见两个字为开头的数据。*星光，则抒发了以星光两个字截止的数据。
除此之外，还有一个通配符问号?，一个问号只代表一个字符。比如，淌若我们需要查找由4个字符组成的数据，查找值不错建立为????
……3 丨
查找职责表
终末数据地点的行号
在本系列教程第20课「什么是单位格对象」，我们共享了多种抒发数据列表终末一瞥的技艺，如下▼
Sub LastRow() Debug.Print ActiveSheet.UsedRange.Rows.Count Debug.Print Range('a1').CurrentRegion.Rows.Count Debug.Print Cells(Rows.Count， 'a').End(xlUp).RowEnd Sub其时也有给人人讲了这3种技艺各自的优污点；一个灾祸的情况是：在莫得额外建立的前提下，它们皆弗成准确的抒发数据列表终末一瞥的位置。
图片
以上图所示的数据为例，数据的终末一瞥行号应为10；但以上代码复返的效果分别为13(UsedRange)、8(CurrentRegion)、8(End)。至于原因，那一章我们讲过了，这里就不再换取。
人体艺术网使用Find技艺不错处分这个问题。代码如下▼
Sub FindLastRow() Dim rng As Range Set rng = Cells.Find('*'， _ LookIn:=xlFormulas， SearchOrder:=xlByRows， _ SearchDirection:=xlPrevious) If rng Is Nothing Then MsgBox '空表，大宗据' Else MsgBox '终末一瞥是：' & rng.EntireRow.Row End IfEnd Sub第3行代码建立查找值为通配符为*，代表轻易字符；查找范围的类型为公式，查找形貌为行，查找标的是上前。运行以上代码复返效果如下。
图片
上述Find语句的参数建立的有点闹热？摊手，确乎如斯，不外大部分情况下，除了查找值除外，其它参数皆是默许值，是不错不详的。
只是以说大部分情况下是因为……Find语句实质上调用的是「查找替换」功能的沟通选项建立行为默许参数的。换句话说，淌若用户使用过「查找替换」功能，并修改了选项建立，比如将查找查找范围的类型修改为'批注'；那么Find技艺也就默许使用「查找替换」的属性，只会在'批注'中查找是否有适宜效果的数据。
图片
是以，万全之策，照旧冷漠在使用Find语句时将沟通参数建立好意思满……这不错通过录制宏来得到，并不需要强行顾忌。「查找替换」功能的选项建立会影响Find技艺，反过来，Find技艺也会影响「查找替换」功能的选项建立。比如，我们使用Find语句建立了查找值、匹配形貌等，当你再次开放Excel的「查找替换」功能，就会发现沟通选项也被修改了。你不错像我一样帅不自知，但弗成像我一样掉坑而不自知；是以，以上，些许照旧需要属意一下滴。看个告白休息一下莫得告白的微信文是不诚挚的▼4 丨
查找适宜条目的沿途效果
我们上头讲的皆是查找一个效果的情况，淌若需要查找的效果有多个，也等于频频说的一双多查询，又该怎么处理呢？Find技艺并不领有「查找与替换」功能里【查找沿途】的智力——不错使用FindNext语句。我举个例子。图片
如上图所示，是一张长相喜东说念主的收获表，称呼为'概括收获表'，当今需要查询'看见星光'统统的查察收获明细，查询效果如下。
图片
示例代码如下:
代码看不全不错傍边拖动..▼
Sub DoFindNext() Dim sht As Worksheet， rng As Range Dim k As Long， strADS As String， s As String Application.ScreenUpdating = False '取消屏幕刷新 ActiveSheet.UsedRange.Offset(1).ClearContents '保留效果表标题行，清空其它值 s = '看见星光' '查找值 k = 1 '纪录行位置运活动1 Set sht = Worksheets('概括收获表') '数据表 Set rng = sht.Cells.Find(what:=s， lookat:=xlWhole) '统统匹配查询 If Not rng Is Nothing Then strADS = rng.Address '淌若查有用果，则将单位格地址复制变量strADS Do k = k + 1 '计数器 Cells(k， 1) = rng '姓名 Cells(k， 2) = rng.Offset(0， 1) '语文 Cells(k， 3) = rng.Offset(0， 2) '英语 Set rng = sht.Cells.FindNext(rng) '查找下一个 If rng.Address = strADS Then Exit Do '轮回一轮后退出Do轮回体 Loop End If Application.ScreenUpdating = True MsgBox '查询OK'End Sub代码贯通：
第4行代码清空面前职责表除了标题行除外的所稀奇据。
第9行代码使用单位格对象的Find技艺，接受统统匹配的形貌，在职责表'概括收获表'中查询'看见星光'。淌若查有用果，则在第11行代码复返效果单位格的地址，并赋值给字符串变量strADS.
第13至第16行代码累计效果行数，并笔据查询效果单位格的位置，向右偏移，得到语文和数学收获等信息，写入效果职责表。
第17行代码使用FindNext语句查询下一个目标。
FindNext语句的意念念是查找下一个目标，语法局面如下。
<单位格对象>.FindNext(After)它唯有一个参数，一个指定的单位格，系统将从该单位格之后出手进行查找。既然是之后，那么出手查找时，查找的范围就不包含该单位格，唯有当轮回查了一圈，只剩下该单位格了，才会查找它的内容是否适宜条目。
笔据这个规则，我们将首个查询效果的地址赋值给变量strADS，然后只须判断FindNext的复返效果是否等于strADS，即可判断系统是否对统统的单位格皆查询过了。淌若这个条目竖立，则退出Do轮回。
需要讲求的是，由于FindNext恒久是在指定单位格之后的范围进行查找，是以必须使用上一次所找到效果的单位格行为参数，淌若使用一个固定的单位格地址，也就会恒久复返一个固定的效果——此时，叮咚，恭喜你，很可能这是你VBA编程糊口第一次堕入死轮回。
图片
……
是不是以为FindNext很绕？不大好说明？叮咚，再次恭喜你，其实这语句实质上很少用，惊不惊喜意不料外？——雷同的问题，我们更多的期间是使用数组轮回。
数组轮回解法如下。
Sub DoArray() Dim s As String， k As Long Dim arr， i As Long， j As Long Application.ScreenUpdating = False '取消屏幕刷新 ActiveSheet.UsedRange.Offset(1).ClearContents '保留效果表标题行，清空其它值 s = '看见星光' '查找值 k = 1 '纪录行位置运活动1 arr = Worksheets('概括收获表').UsedRange For i = 1 To UBound(arr)'遍历行 For j = 1 To UBound(arr， 2) '遍历列，也等于遍历数组中每一个元素 If arr(i， j) = s Then k = k + 1 '计数器 Cells(k， 1) = s '姓名 Cells(k， 2) = arr(i， j + 1) '语文收获 Cells(k， 3) = arr(i， j + 2) '数学收获 End If Next Next Application.ScreenUpdating = True MsgBox '查询OK'End Sub第9行至第18行代码遍历数组中的每一个元素，淌若元素等于查找值，则按列偏移得到语文和数学的收获——这念念路是不是比FindNext语句肤浅多了？几乎是数组无脑轮回的典范！
有位叫李宗盛的老迈说过，有一天，你会知说念，在VBA编程里无脑轮回并不是贬义词~……
图片
……
5 丨
Replace语句
终末再给人人讲一下如何用VBA代码收场「替换」功能，也等于单位格Replace技艺。语法局面如下▼<单位格对象>.Replace(What、Replacement、LookAt、SearchOrder、MatchCase、MatchByte、SearchFormat、ReplaceFormat)
翻译一下▼<单位格对象>.Replace(查找值、替换值、匹配形貌是统统匹配照旧部分匹配、[查找形貌行或列]、是否分辩大小写、全角或半角、按局面搜索、按局面替换)
最常用的唯有前边3个参数，简化后如下。
<单位格对象>.Replace(查找值，替换值，匹配形貌：统统匹配照旧部分匹配)
举个例子，将面前职责表中统统的'看见星光'替换为'看见蟾光'。
代码如下▼
Sub rngReplace() Cells.Replace '看见星光'， '看见蟾光'， xlWholeEnd Sub是不是很肤浅？
需要讲求的是，和Find技艺一样，「查找替换」的选项建立也会影响Replace技艺，反过来，Replace技艺也会影响「查找替换」沟通选项建立。比如，以上述代码为例，淌若不详了第3参数，则频频默许推论的是部分匹配，毕竟部分匹配是「查找替换」的默许选项。
……
就酱，打完手工，下期再会。
本站仅提供存储劳动，统统内容均由用户发布，如发现存害或侵权内容，请点击举报。
