VBA错误号与selection.rows.count

如何解决VBA错误号与selection.rows.count

vba有点问题。我想使用Rows.Count，但计数不正确。

在我的工作表“今年”中，我想过滤一些项目编号。当我过滤时，我会得到一个长度不同的列表，有时一个项目编号中有5行，有时是10行。有时它是空的。这就是为什么我从2到100中选择所有行，剪掉所有空行，然后又想使用Rows.Count函数的原因。但这不会以正确的方式计算。在project-number1中有3行，但是msgBox给我的数字为99，我不知道为什么。

Sheets("thisyear").Range("$A$1:$J$735").AutoFilter Field:=4,Criteria1:= _
    "project-number1"
Rows("2:100").Select
Selection.SpecialCells(xlCellTypeConstants,23).Select
MsgBox Selection.Rows.Count

我希望有人能帮助我！

完整代码：

Sheets("August").Range("$A$1:$J$735").AutoFilter Field:=4,Criteria1:= _
    "project-number1"
Rows("2:3000").Select
Selection.SpecialCells(xlCellTypeConstants,23).Select
If Selection.Rows.Count >= "30" Then
Sheets("Daten-August").Select
LastCellColRef = 1
Set LastCell = Sheets("Daten-August").Cells(Rows.Count,LastCellColRef).End(xlUp).Offset(1,0)
Range(LastCell.Address).Select
ActiveCell.FormulaR1C1 = "_"
Else
Selection.copy
Sheets("Daten-August").Select
LastCellColRef = 1
Set LastCell = Sheets("Daten-August").Cells(Rows.Count,0)
Range(LastCell.Address).Select
Sheets("Daten-August").Paste
Set LastCell = Sheets("Daten-August").Cells(Rows.Count,0)
Range(LastCell.Address).Select
ActiveCell.FormulaR1C1 = "_"
End If