使用VBA筛选行时RowCount返回1而非可见行数的技术问题

我来帮你定位并修复这个问题——你的代码里获取可见行数的方式有误，导致始终返回表头行的行号1。

问题根源 #

你当前用这行代码获取可见行数：

RowCount = Cells(Rows.Count, colIndex).End(xlUp).SpecialCells(xlCellTypeVisible).Row

SpecialCells(xlCellTypeVisible).Row只会返回该范围内第一个可见单元格的行号，而筛选后表头行（第1行）必然是可见的，所以它永远返回1，根本不是你想要的可见数据行的数量。

解决方案 #

我们需要统计筛选后可见数据行的数量，而不是取第一个可见单元格的行号。同时还要优化代码，避免使用Activate和Select（这些操作不仅低效，还容易引发意外错误）。

修改后的完整代码如下：

Sub showEightmonth(ws, colName, colIndex)
    Dim RowCount As Long
    Dim visibleRowCount As Long
    Dim d As String
    Dim dataRng As Range
    
    ' 先获取原始数据总行数（包含表头）
    RowCount = ws.Cells(ws.Rows.Count, colIndex).End(xlUp).Row
    Set dataRng = ws.Range(colName & "1:" & colName & RowCount)
    
    ' 清除现有筛选（如果存在）
    If ws.AutoFilterMode Then
        ws.AutoFilter.ShowAllData
    End If
    
    ' 设置日期格式并执行筛选
    dataRng.NumberFormat = "mm/dd/yyyy hh:mm:ss"
    d = Format(DateAdd("m", -8, Date), "mm/dd/yyyy 07:00:00")
    ws.Range(colName & "1").AutoFilter Field:=colIndex, Criteria1:="<" & d
    
    ' 统计可见数据行的数量（排除表头）
    On Error Resume Next ' 处理无可见数据行的情况
    visibleRowCount = ws.Range(colName & "2:" & colName & RowCount).SpecialCells(xlCellTypeVisible).Cells.Count
    On Error GoTo 0
    
    ' 如果有可见数据行，执行删除操作
    If visibleRowCount > 0 Then
        ws.Range(colName & "2:" & colName & RowCount).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    End If
    
    ' 清除筛选
    If ws.AutoFilterMode Then
        ws.AutoFilter.ShowAllData
    End If
End Sub

关键改动说明 #

• 替换行数统计逻辑：用SpecialCells(xlCellTypeVisible).Cells.Count统计可见单元格数量，因为我们只统计第2行及以后的数据行，所以这个数量就是可见数据行的数量。
• 添加错误处理：用On Error Resume Next避免当筛选后没有可见数据行时，SpecialCells抛出运行时错误。
• 移除Activate/Select：直接通过工作表对象ws操作单元格，避免激活工作表带来的潜在问题。
• 改用Long类型：将RowCount改为Long，避免处理大数据量时Integer类型溢出（Integer最大只能到32767）。

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