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")

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值