使用VBA统计指定区域空白单元格时遇Runtime error overflow错误求助

错误原因 #

你遇到的溢出错误是因为blnkrowcount被声明为Integer类型，该类型的最大值仅为32767。而ws.Range("ay:hy")是整列范围（包含数万行数据），空白单元格数量远超过这个上限，赋值时直接触发溢出。

同时你的代码逻辑存在偏差：循环中统计的是整列的空白单元格，并非你实际要判断的第k行区域，这会导致删除逻辑完全不符合预期。

修复后的代码 #

Dim k As Long
Dim blnkrowcount As Long ' 改为Long类型，支持更大数值范围

For k = Lrow To 1 Step -1
    ' 统计第k行AY到HY列的空白单元格
    blnkrowcount = WorksheetFunction.CountBlank(ws.Range("AY" & k & ":HY" & k))
    If blnkrowcount <> 0 Then
        ' 直接操作行对象，避免Select，提升效率
        Sheets("Invoices").Rows(k).Delete Shift:=xlUp
    End If
Next k

关键修改点 #

• 变量类型调整：将blnkrowcount从Integer改为Long，Long类型支持的最大值为2147483647，完全能容纳Excel中的单元格数量。
• 修正统计区域：把整列范围"ay:hy"改为当前行的范围"AY" & k & ":HY" & k，确保准确判断每行的空白情况。
• 移除冗余操作：删除无用的y变量，去掉Select和Selection操作，直接通过对象引用修改单元格，代码更高效且不易出错。

内容的提问来源于stack exchange，提问作者Mark Andrew Coombes