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