VBA筛选后Selection.Rows.Count计数异常问题求助

看起来你踩了两个常见的VBA坑：一是没有正确限定筛选后的可见区域，二是过度依赖Select/Selection导致逻辑混乱。我来帮你拆解问题并给出修复方案：

问题根源分析 #

1. SpecialCells没有筛选可见行
   你先执行了AutoFilter隐藏不符合条件的行，但后续的Rows("2:100").Select是选中了所有2-100行（包括被隐藏的行），接着SpecialCells(xlCellTypeConstants,23)会选中这些行里所有的常量单元格——不管行是不是被筛选隐藏了。这就导致即使只有3行符合筛选条件，只要其他隐藏行里有常量，都会被算进计数里，自然返回错误的结果。

2. 依赖Select/Selection的不稳定逻辑
   用Select和Selection写代码很容易受当前工作表状态、之前的选中操作影响，逻辑非常脆弱，这也是很多VBA新手容易犯的错。

3. 小细节错误
   你的完整代码里有个隐形bug：If Selection.Rows.Count >= "30" Then把数字30写成了字符串"30"，虽然VBA会自动转换类型，但这种写法容易引发意外问题，建议直接用数字。

修正后的测试代码 #

先给你修复测试代码，确保能正确统计筛选后的可见行数：

Dim wsThisYear As Worksheet
Set wsThisYear = Sheets("thisyear")

' 执行筛选
wsThisYear.Range("$A$1:$J$735").AutoFilter Field:=4, Criteria1:="project-number1"

Dim visibleData As Range
' 定位到筛选后的可见数据行（排除表头），处理无结果的情况
On Error Resume Next
Set visibleData = wsThisYear.Range("A2:J100").SpecialCells(xlCellTypeVisible)
On Error GoTo 0

' 输出正确计数
If Not visibleData Is Nothing Then
    MsgBox "符合条件的行数：" & visibleData.Rows.Count
Else
    MsgBox "没有找到符合条件的行"
End If

' 可选：取消筛选
wsThisYear.AutoFilterMode = False

重构后的完整代码 #

我把你的完整代码重写了一遍，去掉了所有Select/Selection，改用对象变量直接操作，逻辑更清晰稳定：

Dim wsAugust As Worksheet, wsDatenAugust As Worksheet
Set wsAugust = Sheets("August")
Set wsDatenAugust = Sheets("Daten-August")

' 执行筛选
wsAugust.Range("$A$1:$J$735").AutoFilter Field:=4, Criteria1:="project-number1"

Dim visibleData As Range
' 获取筛选后的可见数据区域（从第2行开始）
On Error Resume Next
Set visibleData = wsAugust.Range("A2:J3000").SpecialCells(xlCellTypeVisible)
On Error GoTo 0

' 找到目标工作表的下一个空行（第1列）
Dim targetStartRow As Long
targetStartRow = wsDatenAugust.Cells(wsDatenAugust.Rows.Count, 1).End(xlUp).Row + 1

If Not visibleData Is Nothing Then
    If visibleData.Rows.Count >= 30 Then
        ' 行数≥30时，直接写入下划线
        wsDatenAugust.Cells(targetStartRow, 1).Value = "_"
    Else
        ' 复制可见数据到目标位置
        visibleData.Copy wsDatenAugust.Cells(targetStartRow, 1)
        ' 在复制内容的下一行写入下划线
        wsDatenAugust.Cells(targetStartRow + visibleData.Rows.Count, 1).Value = "_"
    End If
Else
    ' 没有符合条件的行，直接写下划线
    wsDatenAugust.Cells(targetStartRow, 1).Value = "_"
End If

' 取消筛选，避免影响后续操作
wsAugust.AutoFilterMode = False

关键注意点 #

• 操作筛选结果时，一定要用xlCellTypeVisible限定只处理可见行，不要直接选整行再找常量。
• 尽量避免使用Select/Selection，改用对象变量（比如Worksheet、Range）直接操作，代码更高效且不易出错。
• 处理可能为空的区域时，用On Error Resume Next捕获错误，避免出现运行时弹窗。

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