vba - 计算另一张纸中的行数

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

我有一个名为动词的工作表，它是工作簿中的第二个工作表。我尝试过:

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

它们似乎都不起作用。

Answer 1

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

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

请注意 .Cells(4, 1) 而不是 Cells(4, 1)。句点指定您引用的单元格位于工作表(“动词”)内。