EXCEL VBA 最終行を取得する14の方法・様々な最終行の探し方・最終行を効率的に見つける！

 

 

EXCEL VBA 最終行を取得する14の方法・様々な最終行の探し方・最終行を効率的に見つける！

 

 

 

 

効率的なExcel VBAプログラミング：最終行を特定する14の方法・最終行特定の方法とその特徴

 

 

 

'
'
Sub 最終行①() 'End(xlDown)メソッドを使用する
    Dim LastRow As Long
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    MsgBox LastRow
End Sub '
'
'

 

 

'
'
Sub 最終行②() 'UsedRangeプロパティを使用する
    Dim LastRow As Long
    LastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
    MsgBox LastRow
End Sub
'
'

 

 

 

'
'
Sub 最終行③() 'Findメソッドを使用する
    Dim LastRow As Long
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    MsgBox LastRow
End Sub
'
'

 

 

 

'
'
Sub 最終行④() 'xlCellTypeLastCellを使用する
    Dim LastRow As Long
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    MsgBox LastRow
End Sub
'

 

 

 

'
'
Sub 最終行⑤() 'CountA関数を使用する
    Dim LastRow As Long
    LastRow = Application.WorksheetFunction.CountA(Columns(1))
    MsgBox LastRow
End Sub
'
'

 

 

 

'
'
Sub 最終行⑥() 'ループを使用するFor…Nexｔを利用する。
    Dim LastRow, I As Long
    For I = 1 To Rows.Count
    If IsEmpty(Cells(I, 1)) Then
        LastRow = I - 1
        Exit For
    End If
    Next I
    MsgBox LastRow
End Sub
'

 

 

 

'
'
Sub 最終行⑦() 'Offsetメソッドを使用する
    Dim LastRow As Long
    LastRow = Cells(1, 1).Offset(Sheet1.Rows.Count - 1, 0).End(xlUp).Row
    MsgBox LastRow
End Sub
'
'

 

 

 

 

'
'
Sub 最終行⑧() 'CurrentRegionプロパティを使用する
    Dim LastRow As Long
    LastRow = Range("A1").CurrentRegion.Rows.Count
    MsgBox LastRow
End Sub
'
'

 

 

 

 

'
'
Sub 最終行⑨() 'Do...Loopを使用する
    Dim LastRow, I As Long
    I = 1
    Do Until IsEmpty(Cells(I, 1))
        I = I + 1
    Loop
    LastRow = I - 1
    MsgBox LastRow
End Sub
'
'

 

 

 

 

'
'
Sub 最終行⑩() 'Match関数を使用する

    Dim LastRow, I As Long
    LastRow = Application.WorksheetFunction.Match("*", Range("A:A"), -1)
    MsgBox LastRow
End Sub
'
'

 

 

 

 

'
'
Sub 最終行⑪() 'For Eachループを使用する
    Dim rng As Range, LastRow As Long
    For Each rng In Range("A:A")
        If rng.Value = "" Then
            LastRow = rng.Row - 1
            Exit For
        End If
    Next rng
    MsgBox LastRow
End Sub
'
'

 

 

 

 

'
'
Sub 最終行⑫() 'Evaluate関数を使用する
    Dim LastRow As Long
    LastRow = Evaluate("MAX(ROW(A:A)*(A:A<>""""))")
    MsgBox LastRow
End Sub
'
'

 

 

 

 

'
'
Sub 最終行⑬() 'AutoFilterメソッドを使用する
    Dim LastRow As Long
    Range("A:A").AutoFilter Field:=1, Criteria1:="<>"
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    ActiveSheet.AutoFilterMode = False
    MsgBox LastRow
End Sub
'
'

 

 

 

'
'
Sub 最終行⑭() 'Range.Resizeメソッドを使用する
    Dim LastRow As Long
    LastRow = Range("A1").Resize(Range("A1").CurrentRegion.Rows.Count, 1).Rows.Count

    MsgBox LastRow
End Sub
'
'