VBA代码之Find方法

计算机语言、软件、硬件
回复
peng
Site Admin
帖子: 197
注册时间: 周五 11月 01, 2019 9:06 am

VBA代码之Find方法

帖子 peng »

VBA代码之Find方法——查找所有符合条件的单元格并显示

代码示例:
Sub aaa()
'区域查找,从某区域查找所有符合条件的单元格并一一显示
Dim MRG As Range, aaa As String
Set MRG = Range("A1:F20").Find("A")
aaa = MRG.Address
Do
Set MRG = Range("A1:F20").FindNext(MRG)
MsgBox MRG.Address
Loop Until MRG.Address = aaa
End Sub

代码解析
Sub aaa()
Dim MRG As Range, aaa As String
'定义MRG为单元格对象,定义aaa为字符类型
Set MRG = Range("A1:F20").Find("A",lookat:=xlpart)
'在区域“A1:F20”内寻找包含“A”的单元格,并将其赋值给MRG
aaa = MRG.Address
'将MRG的地址赋值给aaa
Do
'开始Do循环
Set MRG = Range("A1:F20").FindNext(MRG)
'在区域“A1:F20”范围内,从MRG之后开始查找包含“A”的单元格,并将其赋值给MRG
'此时MRG的值已经被更新,为区域内第N+1个出现“A”的单元格,N是Do的次数
MsgBox MRG.Address
'显示MRG的地址,也可以更换为其他需要处理的代码
Loop Until MRG.Address = aaa
'直到MRG的地址等于aaa(即第一次出现"A"的单元格地址)时停止循环
End Sub

回复