EXCEL工作表最大使用行数或列数(使用行、列的边界),用End(xl...)非常方便
excel最大行列数总结:
在 Excel 2010 和 Excel 2007 中,工作表的大小为 16,384 列 * 1,048,576 行
在 Excel 97-2003 中,工作表的大小为 256 列 * 65,536 行。
超出最大行列数单元格中的数据将会丢失。Excel2003版最大行数是65536行。Excel2007开始的版本最大行数是1048576行。
Excel2003的最大列数是256列,2007以上版本是16384列。
1.End(xlUp) 向上到第一个非空单元格
2.End(xlDown) 向下到第一个非空单元格
3.End(xlToLeft) 向左到第一个非空单元格
4.End(XLToRight) 向右到第一个非空单元格
以下VBA基本包含EXCEL统计行、列的所有情况:
Sub test_end_xl()
Dim rg As Range
Set rg = ActiveSheet.UsedRange '将已用区域赋予变量rg,包括
r = rg.Rows.Count '计算已用区域行数
m = rg.Columns.Count '计算已用区域列数
r1 = Range("A1").End(xlDown).Row '返回“a1”单元格所在区域下边界所在行的行数
r2 = Range("A1048576").End(xlUp).Row '从后往前数到最后一行使用的单元格,EXCEL最大行数1048576
c = Range("a1").End(xlToRight).Column '返回“a1”单元格所在区域右边界第一个非空单元格所在列的列数
c1 = Cells(1, 16384).End(xlToLeft).Column '1行从右往左到非空单元格的列数,EXCEL最大列数16384
c1 = Cells(1, 16384).End(xlToLeft).Column '1行从右往左到非空单元格的列数,EXCEL最大列数16384
End Sub