赞
踩
- Sub 获取最大行列区域()
-
- Dim i
- Dim j
-
- i = Range("A" & Rows.Count).End(xlUp).Row '通过A1,获得使用的最大行
- ' i=Cells(Rows.Count, 1).End(xlUp).Row '上面也可以使用这样的写法获得最大行
- j = Cells(1, Columns.Count).End(xlToLeft).Column '通过A1,获得使用的最大列
-
- Range(Cells(1, 1), Cells(i, j)).Select '选中最大行列所包含的区域
-
- End Sub
Copyright © 2003-2013 www.wpsshop.cn 版权所有,并保留所有权利。