excel最后一行最后一列

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

posted on 2017-01-25 15:18 bx_yang 阅读(864) 评论(0) 编辑收藏举报