Question

更新： 我发现了我的错误 - 变量sheetRange需要表格（“计划”）。也添加到它

很抱歉给您带来不便。我有一个相对简单的问题，我试图使用VBA来查找特定工作表中的行数。我得到一个弹出框，只是说400，我不确定我的语法在哪里。

Sub PhxCheck()


Dim i As Integer, x As Integer, numofRows As Integer
Dim top As Range, bottom As Range, sheetRange As Range
Dim phxContract As String, contractID As String


Set top = Sheets("Schedule").Range("A3")
Set bottom = Sheets("Schedule").Range("A65536").End(xlUp)
Set sheetRange = Range(top, bottom)
numofRows = sheetRange.Rows.Count

Cells(30, 1).Value = numofRows
End Sub

添加表格（“计划”）时发生错误。到顶部和底部范围。

感谢您的帮助！

Answer 1

您可以大量简化代码，避免使用冗余变量来限制错误。

您只需要：

With Sheets("Schedule")
    Cells(30, 1).Value = .Range("A3", .Cells(Rows.Count, "A").End(xlUp)).Rows.Count
End With

我知道您自己解决了问题，但上述内容可能会帮助您或其他人搜索类似的问题。

试图找到特定工作表中的行数

1 个答案: