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

我已经看了build议的问题find我的问题的答案。 最接近的问题叫做：统计另一个Excel工作表中不同的Excel Sheet 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

检查这个，希望这会帮助你：

 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 

注意：您的问题有很多答案。 检查这个链接： 如何查找包含Excel表格中的数据的最后一行？

Answer 2

您的原始不工作，因为Cells(4, 1)和Cells(4, 1).End(xlDown)没有指定。 当您位于With ... End With块内时，前缀任何单元格地址都有一个句点（aka。或句号 ）。 例：

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

请注意.Cells(4, 1)而不是Cells(4, 1) 。 句点指定您所指的单元格在工作表（“动词”）内。