• 示例 *

Option Explicit
Private Sub Example()
    With ThisWorkbook.Worksheets(1)
        Dim LAST_ROW As Long
            LAST_ROW = .Range("A" & .Rows.Count).End(xlUp).Row

        Debug.Print LAST_ROW ' Print on Immediate Window
    End With
End Sub

• 多种方法查找最后一行 *

Private Sub Example2()
    Dim Sht As Worksheet
    Set Sht = ActiveWorkbook.Sheets(1)

    Dim LAST_ROW As Long

    'Using Find
      LAST_ROW = Sht.Cells.Find("*", searchorder:=xlByRows, _
                                     searchdirection:=xlPrevious).Row

    'Using SpecialCells
      LAST_ROW = Sht.Cells.SpecialCells(xlCellTypeLastCell).Row

    'Ctrl + Shift + End
      LAST_ROW = Sht.Cells(Sht.Rows.Count, "A").End(xlUp).Row

    'UsedRange
      LAST_ROW = Sht.UsedRange.Rows(Sht.UsedRange.Rows.Count).Row

    'Using Named Range
      LAST_ROW = Sht.Range("MyNamedRange").Rows.Count

    'Ctrl + Shift + Down
      LAST_ROW = Sht.Range("A1").CurrentRegion.Rows.Count

End Sub

我假设您希望代码在活动（选定）工作表中运行。示例：

Option Explicit
Sub LastrowExample()
    'declare variable lastrow as Long
    Dim lastrow As Long
    'get lastrow:
    lastrow = Cells(Rows.Count, 2).End(xlUp).Row 
    'or lastrow = Cells(Rows.Count, "B").End(xlUp).Row
End sub

但是我总是喜欢至少先指定工作表，以确保我的代码可以从任何地方运行，例如：

Option Explicit
Sub LastrowExample2()
    'declare variable lastrow as Long
    Dim lastrow as Long
    'declare sheet
     Dim ws As Worksheet
    'get sheet
    Set ws = ThisWorkbook.Worksheets("mysheetname") 

    'get lastrow:
    With ws
        lastrow = .Cells(Rows.Count, 2).End(xlUp).Row 
    'or 
        lastrow = .Cells(Rows.Count, "B").End(xlUp).Row
    End With
End sub