VBA:EXCEL行列计算之End(xl...)

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