计算另一张纸中的行数

Question

我查看了建议的问题，以找到问题的答案。最接近的问题称为：计算不同Excel工作表中的行数计算不同Excel工作表中 的行数该问题的解决方案对我不起作用。我正在尝试计算与活动工作表不同的工作表中某个范围内的行数。这是我的代码：Sub verbflashcards()Dim wordcount As LongWith Worksheets("Verbs")wordcount = .Range(Cells(4, 1), Cells(4, 1).End(xlDown)).Rows.CountEnd WithMsgBox (wordcount)End Sub我有一个称为动词的工作表，这是工作簿中的第二个工作表。我试过了：With VerbsWith Sheet2With Sheets("Verbs")With Sheets("Sheet2") 他们似乎都不起作用。

Answer 1

选中此复选框，希望对您有所帮助：

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是您可以从中获取行数的列。

方法2：

Sub verbflashcards()

Dim wordcount As Long

With Sheets("Verbs")

    wordcount = .Range("A" & .Rows.Count).End(xlUp).Row

End With

MsgBox (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.Count

End With

请注意.Cells(4, 1)和Cells(4, 1)。该句点指定您要引用的单元格在工作表（“动词”）内。