计算另一个 sheet 中的行数

Question

我查看了建议的问题以找到问题的答案。最接近的问题称为：计算不同 Excel Sheet 中的行数 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

我有一个名为 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 是您可以从中获取行数的列。

方法二：

Sub verbflashcards()

Dim wordcount As Long
With Sheets("Verbs")
    wordcount = .Range("A" & .Rows.Count).End(xlUp).Row
End With

MsgBox (wordcount)
End Sub

注意：您的问题有很多答案。检查这个 SO link: How can I find last row that contains data in the Excel sheet with a macro?

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)。句点指定您引用的单元格在工作表("Verbs").

中

计算另一个 sheet 中的行数

Count the number of rows in another sheet

excel

vba

with-statement