如何使用VBA代码实现Excel的查找和替换功能?

你的位置:星辉注册 > 最新动态 > 如何使用VBA代码实现Excel的查找和替换功能?
如何使用VBA代码实现Excel的查找和替换功能?
发布日期:2024-09-02 14:20    点击次数:87
每天一篇Excel技术图文微信公众号:Excel星球NO.145-I Find You作者:看见星光 微博:EXCELers / 知识星球:Excel

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参数,则通常默认执行的是部分匹配,毕竟部分匹配是「查找替换」的默认选项。

……

就酱,打完手工,下期再见。

本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请点击举报。