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

在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 $