Excel中用VBA查找最后一个给定值的行号

最新推荐文章于 2023-06-15 10:07:39 发布

weixin_30242907

最新推荐文章于 2023-06-15 10:07:39 发布

阅读量816

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/Farseer1215/archive/2009/08/17/1548052.html

本文提供了一个使用VBA宏在Excel中搜索特定值并获取其所在行号的示例代码。通过两种不同的方法展示了如何利用Range对象的Find方法进行搜索。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

最近两天在想用VBA写个宏处理点东西，对Excel的对象模型和方法不是很熟悉，写起来还真费劲，在这里备份一下，便于以后查找。

Code
Sub test_Click()

    Dim nameRange As Range, tmpRange As Range
    Dim findAddress As String
    Dim finalRow As Integer

    Set namedRange = Range("TestClick")


    'The first method
    Set tmpRange = namedRange.Find(What:="34534")

    findAddress = tmpRange.Address

    If Not tmpRange Is Nothing Then


        Do
            finalRow = tmpRange.Row
            Set tmpRange = namedRange.FindNext(tmpRange)

            'MsgBox tmpRange.Row

        Loop While Not tmpRange Is Nothing And findAddress <> tmpRange.Address

    End If

    MsgBox finalRow

    'the second Method
    Set tmpRange = namedRange.Find(What:="345345", After:=namedRange.Cells(1), LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)

    MsgBox tmpRange.Row

End Sub

转载于:https://www.cnblogs.com/Farseer1215/archive/2009/08/17/1548052.html