excel最后一行最后一列

标签：bsp   select   工作   range   sel   数据表   current   cti   数据   

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

excel最后一行最后一列

标签：bsp   select   工作   range   sel   数据表   current   cti   数据   

原文地址：http://www.cnblogs.com/bxyang/p/6349522.html