函数lastRec - 它是如何工作的?

时间:2016-10-11 12:58:30

标签: vba function range

下面的函数应该返回最后一个条目范围内的行 据我所知,该功能有效,但我想知道myRange(myRange.Count).RowmyRange(1)应该是什么意思?
谢谢你的帮助!

Public Function lastRec(myRange As range, myDate As Date)
    For x = myRange(myRange.Count).Row To myRange(1).Row Step -1
        If CDate(Left(Cells(x, myRange.Column), 10)) = myDate Then
            lastRec = x
            Exit Function
        End If
    Next x
End Function

2 个答案:

答案 0 :(得分:1)

lastRec()函数实际返回myRange中第一个单元格的行,其前10个字符与传递的myDate匹配

如果myRange是一个1列的范围

,则有效

myRange(myRange.Count).Row返回myRange

中最后一个单元格的行索引

myRange(1).Row返回myRange

中第一个单元格的行索引

答案 1 :(得分:0)

Range.Count返回一个Long值,表示集合中的对象数,因为range.row返回该范围中第一个区域的第一行的编号。

range(1)是1指定范围的位置,以返回表示单个单元格或一系列单元格的Range对象。