1.当前Sheet1工作表的A1单元格最后一行、最后一列
a = Worksheets("Sheet1").Range("a65535").End(xlUp).Row
b = Worksheets("Sheet1").Range("a1").End(xlToRight).Column
2.当前B1单元格所在的数据表第一行，最后一行
Range("B1").Select
a = ActiveCell.CurrentRegion.Row
b = ActiveCell.CurrentRegion.Rows.Count
原文：http://www.cnblogs.com/bxyang/p/6349522.html