计算另一张纸中的行数

Question

我查看了建议的问题，以找到问题的答案。最接近的问题称为：计算不同Excel工作表中的行数计算不同Excel工作表中 的行数

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

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

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

我有一个称为动词的工作表，这是工作簿中的第二个工作表。我试过了：

With Verbs

With Sheet2

With Sheets("Verbs")

With Sheets("Sheet2") 

他们似乎都不起作用。

Answer 1

选中此复选框，希望对您有所帮助：Sub verbflashcards()Dim wordcount As Longwordcount = ActiveWorkbook.Worksheets("Verbs").Range("A4", Worksheets("Verbs").Range("A4").End(xlDown)).Rows.CountMsgBox (wordcount)End Sub其中，D1是您可以从中获取行数的列。方法2：Sub verbflashcards()Dim wordcount As LongWith Sheets("Verbs")    wordcount = .Range("A" & .Rows.Count).End(xlUp).RowEnd WithMsgBox (wordcount)End Sub注意：您的问题有很多答案。检查此SO链接：如何在包含宏的Excel工作表中找到包含数据的最后一行？

Answer 2

您的原件无效，因为未指定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.CountEnd With请注意.Cells(4, 1)和Cells(4, 1)。该句点指定您要引用的单元格在工作表（“动词”）内。