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

我查看了建议的问题以找到问题的答案.最近的问题称为:计算不同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

我有一个名为Verbs的工作表,它是工作簿中的第二个工作表.我试过了:

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

他们似乎都没有工作.

您原来是行不通的,因为母公司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).句点指定您引用的单元格在工作表("动词")中.