Excel VBA教程:FindNext方法

继续执行用Find方法启动的搜索。查找下一个匹配相同条件的单元格并返回代表单元格的Range对象。不影响选定区域或当前单元格。

expression.FindNext(After)

expression   必需。该表达式返回一个 Range对象。

After  Variant 类型,可选。指定一个单元格,查找将从该单元格之后开始。此单元格相应于从用户界面查找时的活动单元格位置。注意,After 必须是查找区域中的单个单元格。请记住查找是从该单元格之后开始的;直到本方法环绕到此单元格时,才检测其内容。如果未指定本参数,查找将从区域的左上角单元格之后开始。

说明

当查找到指定查找区域的末尾时,本方法将环绕至区域的开始继续搜索。发生环绕后,为停止查找,可保存第一次找到的单元格地址,然后测试下一个查找到的单元格地址是否与其相同。

Excel VBA教程:FindNext方法·示例

本示例在单元格区域 A1:A500 中查找值为 2 的单元格,并将这些单元格的值变为 5。


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

上页:Excel VBA教程:FindFile方法 下页:Excel VBA教程:FindPrevious方法

Excel VBA教程:FindNext方法

Excel VBA教程:FindPrevious方法 Excel VBA教程:Flip方法
Excel VBA教程:Follow方法 Excel VBA教程:FollowHyperlink方法
Excel VBA教程:Format方法 Excel VBA教程:获取有关 Macintosh 关键字的帮助
Excel VBA教程:FunctionWizard方法 Excel VBA教程:GetChartElement方法
Excel VBA教程:GetCustomListContents方法 Excel VBA教程:GetCustomListNum方法
Excel VBA教程:GetData方法 Excel VBA教程:GetOpenFilename方法
Excel VBA教程:GetPhonetic方法 Excel VBA教程:GetPivotData方法
Excel VBA教程:GetSaveAsFilename方法 Excel VBA教程:GoalSeek方法
Excel VBA教程:Goto方法 Excel VBA教程:Group方法
Excel VBA教程:Group方法(ShapeRange对象) Excel VBA教程:Heartbeat方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号