获取excel多列区域最后非空单元格行数(VBA5练习2）——答案

Sub cha()
MsgBox Range("a:l").Find("*", , , , , xlPrevious).Row
End Sub