如何找到带有宏的Excel工作表中包含数据的最后一行?

内容来源于 Stack Overflow,并遵循CC BY-SA 3.0许可协议进行翻译与使用

  • 回答 (2)
  • 关注 (0)
  • 查看 (10)

如何找到在特定列和特定工作表中包含数据的最后一行?

提问于
用户回答回答于

不如:

 Sub GetLastRow(strSheet, strColumn)
 Dim MyRange As Range
 Dim lngLastRow As Long

    Set MyRange = Worksheets(strSheet).Range(strColum & "1")

    lngLastRow = Cells(Rows.Count, MyRange.Column).End(xlUp).Row
 End Sub

再评论

  Cells.Find("*",SearchOrder:=xlByRows,SearchDirection:=xlPrevious).Row

将返回最后一个单元格的行号,即使最后一行中只有一个单元格有数据。

用户回答回答于

应该使用.End(xlup)但是,可能需要使用的不是65536,而是:

sheetvar.Rows.Count

这样,它可以用于我认为有65536多行的Excel 2007。

扫码关注云+社区