【VBA研究】再论取EXCEL有效行列数方法

作者：iamlaosong

1、我有一个工具，Excel2003格式，因处理数据超过65536条，所以让用户另存为xlsm格式，结果用不了，仔细检查发现问题出在取EXCEL有效行数语句上，该语句如下：

MaxRow = [A65536].End(xlUp).Row

数据有30多万条，此语句执行结果是MaxRow值为0，这是因为65536行到1行都有数据。只要将65536改成超过数据的行数就可以得到正确结果，比如：

MaxRow = [A600000].End(xlUp).Row

正确的方法是用Excel文件数据最大行数表达式，即改成下面语句：

MaxRow = Range("A" & Rows.Count).End(xlUp).Row

其中Rows.Count就是当前版本Excel文件数据最大行数，2003版这个值是65536（2的16次方），2007以后的版本，这个值是1048576（2的20次方）。

MaxCol = Cells(1, Columns.Count).End(xlToLeft).Column

同理，Columns.Count就是当前版本Excel文件数据最大列数，2003版这个值是256（2的8次方），2007以后的版本，这个值是16384（2的14次方）。

上面两句还可以写成下面形式，效果基本相同：

MaxRow = [A1].End(xlDown).Row

MaxCol = [A1].End(xlToRight).Column

2、有个工具处理的数据，无法确定用哪一列定位有效行数，可以用工作表中已使用的行数来确定，这个方法的缺点是这个行数不一定是当前数据的最后一行，但肯定大于或等于最大行数。所以处理的时候需要进行数据判断，以便结束数据处理。方法如下：

MaxRow = ActiveSheet.UsedRange.Rows.Count
MaxRow = Sheets("sheet1").UsedRange.Rows.Count

用这个行数做数据清除，非常方便。例如，清除除表头以外A-H列的数据：

Sheets(stname).Range("A2:H" & MaxRow).ClearContents

注：已经用过的单元格，仅仅删除数据，仍然作为使用过来统计行数的，但对于一个新表来说，这个行数就是实际数据的有效行数。

【VBA研究】再论取EXCEL有效行列数方法相关推荐

【VBA研究】用VBA取得EXCEL有效行列数方法比较
作者:iamlaosong 我常用下面方式取得有效行数: maxrow=sheets(1).[A65536].End(xlUp).Row 这一句的含义是从A列65536行开始向上找,碰到第一个非空单元 ...
【Python】Python转化dbf文件为Excel,获取Excel最大行列数
文章目录将dbf转化为Excel文件(代码完整) 可行方案网上找的不可行方案安装win32com Python 写Excel 读取Excel行数,列数读取Excel最大行数 openpyxl不 ...
VBA简单实现两个Excel文件的比较方法
到财务走了一圈,正好看到一位同事正在对两个Excel文件进行比较.两个文件的内容大致如此(列出部分列名): 主贷身份证主贷人贷款余额 440602**** 李*瑜￥35,000 360102** ...
VBA获取数据区域的行列数
VBA获取数据区域的行列数方法1 方法2 方法1 ActiveSheet.UsedRange.Rows.Count ActiveSheet.UsedRange.Columns.Count 缺点:把最 ...
【VBA研究】打印银行对账单（套打）
iamlaosong文根据需要打印银行对账单,打印方式是套打(这种应用很多,比如快递单.发票等),现就有关技术问题进行总结. 1.如何实现准确套打 1)将对账单样式图片插入excel,略微调整大小为 ...
再见 VBA！神器工具统一 Excel 和 Python
作者 | 东哥起飞来源 | Python数据科学经常给大家推荐好用的数据分析工具,也收到了铁子们的各种好评.这次也不例外,我要再推荐一个,而且是个爆款神器. Excel和Jupyter Noteb ...
excel表格行列显示十字定位_Excel行列十字交叉高亮显示
Excel 行列十字交叉高亮显示 Excel 行列十字交叉高亮显示! Excel 中数据量比较大时, 有时候容易看花钱,行号列号看错,这个时候,可以使用简单的 VBA 语句对选中单元格的行列进行高亮 ...
零售分析用vba还是python_数据分析？Excel、VBA和Python？营销套路还是大势所趋！...
"添加关注,方便我们每天向您推送精彩资讯. 扫码申请加Excel微信群交流心得解决问题验证信息:Excel 不懂业务的数据分析都是耍流氓-- 可是只懂业务却不会使用工具的话,效率低下只 ...
excel python插件_再见 VBA！神器工具统一 Excel 和 Python
大家好,我是东哥. 经常给大家推荐好用的数据分析工具,也收到了铁子们的各种好评.这次也不例外,我要再推荐一个,而且是个爆款神器. Excel和Jupyter Notebok都是我每天必用的工具,而且两 ...

【VBA研究】再论取EXCEL有效行列数方法

【VBA研究】再论取EXCEL有效行列数方法相关推荐

最新文章

热门文章