VBA 获取最大行数和最大列数

13 篇文章 1 订阅

在EXCEL中,对数据进行定位操作,必然要用到数据区域的最大行和最大列,代码如下:

columnmax = Range("IV1").End(xlToLeft).Column            '取得1行的最大列数
columnmax =cells(i,columns.count).end(xltoletf).column   'i行的最大列数

rowmax = Sheet1.Range("a65536").End(xlUp).Row         '取得A列的最大行
注:此方法返回工作表中最后一个包含非空内容的单元格所在的行号,而不管这一单元格与Me.Cells(1,1)之间是否有包含空白内容的单元格。而且这一方法将跳过或者说忽略被隐藏的单元格,比如,数据表有连续的50行,如果第48到50行隐藏了,则只返回47.
rowmax =range("A65536").end(3).row                              '取得A列的最大行数
rowmax =UBound(Range("a1").CurrentRegion)               '取得A列的最大行数

Worksheets(1).UsedRange.Columns.count      '获取最大列数和最大行数的写法
Worksheets(1).UsedRange.Rows.Count
缺点:​​​​​只要行被使用过,即使数据后来被清空,也算被使用过

application.WorksheetFunction.函数名()         '想在VBA中用EXCEL的函数

Application.DisplayAlerts = False    '这个是去掉警告,如文件重复,是否替换
Application.DisplayAlerts = True    '这个是还原警告,如文件重复

ActiveWorkbook.Saved = True
Application.Quit                    '不作修改退出

'DIM的简便用法
Integer %         
Long & 
Single ! 
Double # 
Currency @ 
String $ 
String*size $

  • 3
    点赞
  • 47
    收藏
    觉得还不错? 一键收藏
  • 2
    评论
评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值