麻仓优作品封面 怎样使用VBA代码已矣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参数，则时常默许实施的是部分匹配，毕竟部分匹配是「查找替换」的默许选项。
……
就酱，打完手工，下期相逢。
本站仅提供存储业绩，通盘内容均由用户发布，如发现存害或侵权内容，请点击举报。