VBA错误号与selection.rows.count

编程问答 2022-06-11

问题描述

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

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

countcountcountexcelexcelfunctionfunctionfunctionvba