计算另一个工作表中的行数

Question

我查看了建议的问题以找到我的问题的答案。 最接近的问题称为： 计算不同 Excel 工作表中的行数 Count number of rows in a different Excel Sheet

该问题的解决方案对我不起作用。

我正在尝试计算与活动工作表不同的工作表中某个范围内的行数。 这是我的代码：

Sub verbflashcards()

Dim wordcount As Long

With Worksheets("Verbs")
wordcount = .Range(Cells(4, 1), Cells(4, 1).End(xlDown)).Rows.Count
End With

MsgBox (wordcount)
End Sub

我有一个名为 Verbs 的工作表，它是工作簿中的第二个工作表。我试过了：

With Verbs
With Sheet2
With Sheets("Verbs")
With Sheets("Sheet2") 

它们似乎都不起作用。

Answer 1

由于未指定 Cells(4, 1) 和 Cells(4, 1).End(xlDown) 的父级，您的原始文件无法正常工作。当您在 With ... End With 块内时，在任何单元格地址前加上句点（又名 . 或 句号）。示例：

With Worksheets("Verbs")
  wordcount = .Range(.Cells(4, 1), .Cells(4, 1).End(xlDown)).Rows.Count
End With

注意.Cells(4, 1) 而不是Cells(4, 1)。句点指定您所指的单元格在 Worksheets("Verbs") 中。

Answer 2

检查一下，希望对您有所帮助：

Sub verbflashcards()

Dim wordcount As Long

wordcount = ActiveWorkbook.Worksheets("Verbs").Range("A4", Worksheets("Verbs").Range("A4").End(xlDown)).Rows.Count

MsgBox (wordcount)

End Sub

其中，D1 是您可以从中获取行数的列。

方法二：

Sub verbflashcards()

Dim wordcount As Long
With Sheets("Verbs")
    wordcount = .Range("A" & .Rows.Count).End(xlUp).Row
End With

MsgBox (wordcount)
End Sub

注意：您的问题有很多答案。检查此 SO 链接：How can I find last row that contains data in the Excel sheet with a macro?