为了账号安全,请及时绑定邮箱和手机立即绑定

计算另一张纸中的行数

计算另一张纸中的行数

慕哥9229398 2020-02-02 15:36:56
我查看了建议的问题,以找到问题的答案。最接近的问题称为:计算不同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") 他们似乎都不起作用。
查看完整描述

2 回答

?
一只萌萌小番薯

TA贡献1795条经验 获得超7个赞

选中此复选框,希望对您有所帮助:


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工作表中找到包含数据的最后一行?


查看完整回答
反对 回复 2020-02-02
?
白板的微信

TA贡献1883条经验 获得超3个赞

您的原件无效,因为未指定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)。该句点指定您要引用的单元格在工作表(“动词”)内。


查看完整回答
反对 回复 2020-02-02
  • 2 回答
  • 0 关注
  • 443 浏览
慕课专栏
更多

添加回答

举报

0/150
提交
取消
意见反馈 帮助中心 APP下载
官方微信