如何找到包含特定列中数据的最后一行？

Question

如何找到包含特定列中数据的最后一行？

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

Answer 1

不如：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).RowEnd Function对于注释，这将返回最后一个单元格的行号，即使最后一行中只有一个单元格有数据：Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

Answer 2

您应该使用.End(xlup)但是，与其使用65536，不如使用：sheetvar.Rows.Count这样，它就可以用于Excel 2007，我认为Excel 2007有超过65536行。

Answer 3

function LastRowIndex(byval w as worksheet, byval col as variant) as long   dim r as range  set r = application.intersect(w.usedrange, w.columns(col))   if not r is nothing then     set r = r.cells(r.cells.count)     if isempty(r.value) then       LastRowIndex = r.end(xlup).row    else       LastRowIndex = r.row    end if   end ifend function用法：? LastRowIndex(ActiveSheet, 5)? LastRowIndex(ActiveSheet, "AI")