Vba代码集锦--Find方法（3）-查找所有符合条件的单元格并显示

代码示例

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

‍

----------------------------------------