VBA代码reccount变量赋值异常：偶尔获取其他工作表行数

问题核心 #

你在代码中通过以下语句获取匹配记录数：

reccount = lookupSheet.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count - 1

但运行时该变量有时返回lookupSheet的空单元格数，有时却返回updateSheet的最后行数，无法稳定获取lookupSheet中表格的可见记录数。

原因分析 #

1. AutoFilter.Range的上下文依赖：Worksheet.AutoFilter.Range指向当前工作表激活的筛选范围，如果之前操作过其他工作表（比如updateSheet）的筛选且未明确切换回lookupSheet，该属性可能错误指向其他工作表的筛选区域。
2. ListObject与工作表AutoFilter的混淆：你已定义lookupTbl作为BCODE_Table的ListObject，但后续直接使用工作表的AutoFilter属性，未绑定表格本身的筛选范围，导致范围指向混乱。
3. 删除行后表格范围未同步：删除BCODE_Table中的行后，工作表的AutoFilter.Range可能未自动更新为表格最新范围，引发计算错误。

修复方案 #

直接通过lookupTbl（ListObject）获取可见记录数，避免依赖工作表的AutoFilter属性，确保范围始终指向目标表格：

修改reccount赋值代码 #

将原reccount赋值语句替换为：

' 直接从ListObject获取可见数据行数量
If Not lookupTbl.DataBodyRange Is Nothing Then
    reccount = lookupTbl.DataBodyRange.SpecialCells(xlCellTypeVisible).Rows.Count
Else
    reccount = 0 ' 表格无数据时返回0
End If

额外修复点 #

代码中If reccount > 1000 Then块的MsgBox存在语法错误，修正为：

If reccount > 1000 Then
    MsgBox "Number of records Matched is over 1,000 and may take a minute or more to process.", vbInformation, PROC_TITLE
End If

完整优化后的关键代码片段 #

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' 修复后的reccount计算逻辑
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

' 直接从ListObject获取可见数据行数量
If Not lookupTbl.DataBodyRange Is Nothing Then
    reccount = lookupTbl.DataBodyRange.SpecialCells(xlCellTypeVisible).Rows.Count
Else
    reccount = 0
End If

recs = CStr(reccount)
MsgBox "Number of Matches to update " & recs, vbInformation, PROC_TITLE

If reccount > 1000 Then
    MsgBox "Number of records Matched is over 1,000 and may take a minute or more to process.", vbInformation, PROC_TITLE
End If

修复说明 #

• ListObject的DataBodyRange始终指向表格实际数据区域，不受其他工作表操作影响，范围更精准。
• 直接统计可见行数量，无需减1（DataBodyRange不包含表头），逻辑更清晰。
• 增加无数据时的判断，避免运行时错误。

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