Question

excel宏vba代码

Function getlastusedrow(rg As Range) As Long
Dim lmaxrows As Long
lmaxrows = ThisWorkbook.Worksheets(1).Rows.Count
If IsEmpty(rg.Parent.Cells(lmaxrows, rg.Column)) Then
getlastusedrow = rg.Parent.Cells(lmaxrows, rg.Column).End(xlUp).Row
Else
getlastusedrow = rg.Parent.Cells(lmaxrows, rg.Column).Row
End If
End Function
公司电脑一运行到这就报错
（If IsEmpty(rg.Parent.Cells(lmaxrows, rg.Column)) Then）
是什么原因呢。

Answer 1

答：可能是包含宏的工作簿的文件格式是：*.xlsm(07版本及以上)，而公司电脑里调用该函数的工作簿是：*.xls(03及以前格式)。造成最大行数不一致错误。
可以修改这句：lmaxrows = ThisWorkbook.Worksheets(1).Rows.Count
为：lmaxrows = rg.Parent.Rows.Count
自适应目标单元格所在的工作表的最大行数，而非固定值。

追问

还真是，谢了