在宏中查找特定工作表的列中的行数

Question

我正在努力在VBA中编写一个函数,它将工作表名称和列作为参数,并返回该工作表的该列中最后使用的行号.

我使用了以下代码:

Worksheet("sheetname").Range("e2").End(xlDown).Row

但它返回错误的值......如104567

请提供代码以查找特定工作表的特定列中的行数.

Answer 1

该1代码是你想检查的列.您可以更改ActiveSheet为任何其他有效的工作表对象.

lLastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row