vba 查B 列最后一个数据所在的行，并返回。

Question

如题所述

Answer 1

' ################################################################################
' [功能描述] 根据目标工作表中的列号或列地址获取该列的最后一个数据单元格所在的行号.
' [参数列表] 1. Target  目标工作表;
'            2. Column  列号或列地址;
'            3. LookIn  信息类型 (可选).
' [返回类型] Long.
' ################################################################################
Public Function GetLastRowByColumn(ByVal Target As Worksheet, _
                                   ByVal Column As Variant, _
                                   Optional ByVal LookIn As XlFindLookIn = xlValues) As Long
    On Error Resume Next
    
    GetLastRowByColumn = Target.Columns(Column).Find("*", , _
                                                     LookIn, , _
                                                     xlByRows, _
                                                     xlPrevious).Row
End Function

调用：

MsgBox GetLastRowByColumn(ActiveSheet, 2)

或者

MsgBox GetLastRowByColumn(ActiveSheet, "B")