不如：

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

對于注釋，這將返回最后一個單元格的行號，即使最后一行中只有一個單元格有數(shù)據(jù)：

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

您應(yīng)該使用.End(xlup)但是，與其使用65536，不如使用：

sheetvar.Rows.Count

這樣，它就可以用于Excel 2007，我認(rèn)為Excel 2007有超過65536行。

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")