VBA 获取最大行数和最大列数 |
您所在的位置:网站首页 › vba数组最大上限 › 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 $ |
今日新闻 |
点击排行 |
|
推荐新闻 |
图片新闻 |
|
专题文章 |
CopyRight 2018-2019 实验室设备网 版权所有 win10的实时保护怎么永久关闭 |