如何在特定列和特定工作表中找到包含数据的最后一行?
发布于 2008-09-16 11:16:30
这样如何:
Function GetLastRow(strSheet, strColumn) As Long
Dim MyRange As Range
Set MyRange = Worksheets(strSheet).Range(strColumn & "1")
GetLastRow = Cells(Rows.Count, MyRange.Column).End(xlUp).Row
End Function
对于注释,这将返回最后一个单元格的行号,即使最后一行中只有一个单元格有数据:
Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
发布于 2008-09-16 15:21:01
您应该使用.End(xlup)
,但您可能希望使用以下代码,而不是65536:
sheetvar.Rows.Count
这样它就可以在Excel2007上工作,我相信它有超过65536行
发布于 2014-08-26 23:14:40
简单快速:
Dim lastRow as long
Range("A1").select
lastRow = Cells.Find("*",SearchOrder:=xlByRows,SearchDirection:=xlPrevious).Row
示例用法:
cells(lastRow,1)="Ultima Linha, Last Row. Youpi!!!!"
'or
Range("A" & lastRow).Value = "FIM, THE END"
https://stackoverflow.com/questions/71180
复制相似问题