VBA에서 최종 행 얻기

마지막 행 얻기

Sub 最終行を取得()
    Dim LastRow As Long
    LastRow = ThisWorkbook.Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
    Debug.Print LastRow
End Sub

마지막 줄 중 하나 아래에서 입력하고 싶다면

Sub 最終行を取得してひとつ下に値を入力()
    Dim LastRow As Long
    LastRow = ThisWorkbook.Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
    ThisWorkbook.Worksheets("Sheet1").Cells(LastRow + 1, 1).Value = 10
    ThisWorkbook.Worksheets("Sheet1").Cells(LastRow + 1, 2).Value = "jjj"
End Sub

와타시 흐름 조건