[已解决]如何使用find方法实现循环查找

ljw7821

   用find在目标区域中查找目标时，只会找到第一个目标，如何实现循环查找，就是说可以多个符合条件的目标

最佳答案

月排行榜 / 总排行榜

adders

2012-3-29 08:31

微软自带的两个例子:

1) 在Worksheets(1)中的A1:A500范围内寻找数值为2的单元格,如找到则改值为5,注意这里用的FindNext来寻找下一个目标:

With Worksheets(1).Range("a1:a500")   
    Set c = .Find(2, lookin:=xlValues)   
    If Not c Is Nothing Then
    firstAddress = c.Address        
         Do            
            c.Value = 5            
            Set c = .FindNext(c)        
         Loop While Not c Is Nothing And c.Address <> firstAddress   
    End If
End With

2) 用FindPrevious来寻找上一个目标(运行前确认在B列至少有两个单元格的文本值是"Phoenix")

Set fc = Worksheets("Sheet1").Columns("B").Find(what:="Phoenix")   
     MsgBox "第一个Phoenix在单元格 " & fc.Address
Set fc = Worksheets("Sheet1").Columns("B").FindNext(after:=fc)   
     MsgBox "下一个Phoenix在单元格 " & fc.Address
Set fc = Worksheets("Sheet1").Columns("B").FindPrevious(after:=fc)   
     MsgBox "上一个Phoenix在单元格 " & fc.Address

跳转到最佳答案楼层

adders

微软自带的两个例子:

1) 在Worksheets(1)中的A1:A500范围内寻找数值为2的单元格,如找到则改值为5,注意这里用的FindNext来寻找下一个目标:

With Worksheets(1).Range("a1:a500")   
    Set c = .Find(2, lookin:=xlValues)   
    If Not c Is Nothing Then
    firstAddress = c.Address        
         Do            
            c.Value = 5            
            Set c = .FindNext(c)        
         Loop While Not c Is Nothing And c.Address <> firstAddress   
    End If
End With

2) 用FindPrevious来寻找上一个目标(运行前确认在B列至少有两个单元格的文本值是"Phoenix")

Set fc = Worksheets("Sheet1").Columns("B").Find(what:="Phoenix")   
     MsgBox "第一个Phoenix在单元格 " & fc.Address
Set fc = Worksheets("Sheet1").Columns("B").FindNext(after:=fc)   
     MsgBox "下一个Phoenix在单元格 " & fc.Address
Set fc = Worksheets("Sheet1").Columns("B").FindPrevious(after:=fc)   
     MsgBox "上一个Phoenix在单元格 " & fc.Address

神木

For Each a In [A1:A9]
Set rng = [b:b].Find(a, , , 1)
NEXT

循环所有目标然后逐一查找

ztccsj

adders 发表于 2012-3-29 08:31
微软自带的两个例子:

1) 在Worksheets(1)中的A1:A500范围内寻找数值为2的单元格,如找到则改值为5,注意这 ...

学习