Excel UsedRange统计行列数与手动计数不符，程序崩溃求助

我太懂这种糟心的情况了！Excel的UsedRange经常会出现这种“虚标范围”的问题，明明看起来那些行/列是空的，但它就是会算进去，我之前处理报表的时候也踩过这个坑。

问题原因 #

Excel的UsedRange并不是根据当前有内容的单元格来计算的，而是基于工作表的编辑历史——哪怕你曾经在某行/列输入过内容（哪怕后来删掉了，甚至只是设置过格式），Excel都会把这个区域标记为“已使用”，导致UsedRange的范围偏大。你遇到的多出来的3行1列，大概率就是曾经被编辑过但后来清空的区域，Excel没自动更新这个标记。

解决办法 #

1. 手动快速修复

选中那些多出来的空行（比如3115-3117行）和空列（第30列），右键选择「删除」，然后保存文件并关闭重新打开。这时候Excel会重新扫描工作表，UsedRange就会准确统计到你手动计数的3114行29列了。

2. 代码层面更准确的统计（替代UsedRange）

如果不想依赖UsedRange，可以直接通过查找最后一个非空单元格的方式来获取真实的行列数，这种方法比UsedRange靠谱得多：

' 获取真实最后一行
Dim realLastRow As Long
realLastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

' 获取真实最后一列
Dim realLastCol As Long
realLastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column

当然这里要注意：如果你的数据不是从第1行第1列开始的，需要调整对应的起始行/列，但大部分场景下这个方法都能准确统计。

3. 代码重置UsedRange（彻底清理标记）

如果一定要用UsedRange，可以在获取之前强制Excel重置这个范围标记：

' 先触发UsedRange更新
ws.UsedRange
' 清空UsedRange之外的单元格（避免残留格式/标记）
ws.Cells(ws.UsedRange.Row + ws.UsedRange.Rows.Count, ws.UsedRange.Column + ws.UsedRange.Columns.Count).Clear
' 再次获取更新后的UsedRange
ws.UsedRange

' 现在再统计就准确了
calcRows = ws.UsedRange.Rows.Count
calcColumns = ws.UsedRange.Columns.Count

补充说明 #

你删除那些空行后统计正常，本质就是Excel在删除操作时清理了那些残留的“已使用”标记，重新计算了UsedRange的边界。如果以后再遇到类似问题，优先用查找最后非空单元格的方法，比UsedRange稳定太多啦！

内容的提问来源于stack exchange，提问作者HalbeSuppe