​​Excel技巧，VBA 获取最大行数和最大列数!

当我们使用VBA遍历工作表的时候，获取使用的最大行数十分必要，这里有两个方法。

方法一：使用WorkSheet对象的UsedRange属性直接获取：

最大行号 = ActiveSheet.UsedRange.Rows.Count

方法二：使用Range对象的End属性间接获取：

选择一个远离使用范围的单元格，如：Range("A10000")，按下“End+方向上”，选区就会自动跳到使用的最后一行上。这个动作的代码如下：

最大行号 = Range("A10000").End(xlUp).Row'或者最大行号 = Range("A10000").End(3).Row

另外，End属性还有其他用法，其4个参数如下：

其中1代表：xlToLeft
其中2代表：xlToRight
其中3代表：xlup
其中4代表：xldown
简记 左右上下，1，2，3，4

在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                    '不作修改退出

以上就是今天要分享的技巧，你学会了吗？若有什么问题，欢迎在下方留言。

学习资料见知识星球。

以上就是今天要分享的技巧，你学会了吗？若有什么问题，欢迎在下方留言。

快来试试吧，小琥 my21ke007。获取 1000个免费 Excel模板福利​​​​！

更多技巧， www.excelbook.cn

欢迎 加入 零售创新 知识星球，知识星球主要以数据分析、报告分享、数据工具讨论为主；