VBA，用end 取EXCEL的最大行数，列数。还有一个需要小心的写法 Cells(7.3).Address = cells(7) 表示 range("G1")

 

1 取不同版本的EXCEL的最大行数和最大列数

• 2003版最大行数是65536行，最大列数是256列。
• Excel2007及以后的版本最大行数是1048576行，最大列数是16384列。

1.1 EXCEL按键方法

• 要查最大列数的话，需要知道最大列标是多少，按住ctrl+右箭头，调出最大列标，excel2010会看到最大列标是XFD，在最右一列的单元格中输入=column（XFD1048576)，就会得出最大列数是16384了。
• ctrl + →
• ctrl+ ↓

 

 

1.2 代码方法（用空行空列.end属性去查找）

Sub tt2()

Debug.Print "最大列数为16384"
Debug.Print "用一个空行用end可以查出来"
Debug.Print Range("a11").End(xlToRight).Column
Debug.Print Cells(16385).Address

Debug.Print "最大行数为1048576"
Debug.Print "用一个空列用end可以查出来"
Debug.Print Range("d1").End(xlDown).Row

End Sub

 

1.3 代码方法2（rows.count 简单粗暴）

Sub test83()

Debug.Print Rows.Count
Debug.Print Columns.Count

End Sub

 

2  cells(i,j) 的一些特殊写法   cells( index )

2.1 cells() 的3种正确写法

• 正确写法
• cells(3,3)     表示 行数，列数
• cells(5)        index表示先1行再下一行的排列的index
• cells(7.1)     index 表示 cells(7)  应该是做了取整处理, 需要特别小心，Cells(7.3).Address = cells(7) 表示 range("G1")

 

• 错误写法
• cells("a1")   

Sub tt1()

Debug.Print Cells(7, 3).Address
Debug.Print Cells(7, 3).Offset(2, 2).Address

Debug.Print
Debug.Print Cells(5).Address
Debug.Print Cells(6).Address
Debug.Print Cells(7).Address
Debug.Print Cells(7.3).Address
Debug.Print Cells(7.3).Offset(2, 2).Address


End Sub

 

2.2 需要小心的写法 Cells(7.3).Address = cells(7) 表示 range("G1")