sheet1.usedrange.rows.count (可能会出错,貌似是实际占用了几行? 比如只有二三行就会得到2? ,下面的方法比较稳妥)
或
r = Worksheets("sheet1").UsedRange.Find(what:="*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
sheet1.usedrange.rows.count (可能会出错,貌似是实际占用了几行? 比如只有二三行就会得到2? ,下面的方法比较稳妥)
或
r = Worksheets("sheet1").UsedRange.Find(what:="*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row