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

答案:2 悬赏:20 手机版

解决时间 2021-03-11 21:09

提问者网友：情歌越听越心酸
2021-03-11 03:32

最佳答案

五星知识达人网友：狂恋
2021-03-11 04:00

' ################################################################################
' [功能描述] 根据目标工作表中的列号或列地址获取该列的最后一个数据单元格所在的行号.
' [参数列表] 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(STR_ANY_TEXT, , _
                                                     LookIn, , _
                                                     xlByRows, _
                                                     xlPrevious).Row
End Function

调用：
MsgBox GetLastRowByColumn(ActiveSheet, 2)或者

MsgBox GetLastRowByColumn(ActiveSheet, "B")

全部回答

1楼网友：詩光轨車
2021-03-11 05:15

jbeqhbtekhunka@@nhexqk…mun…hjnx@wxh…wnhxxn…xnxnxq

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！