Có các trường hợp để tìm row cuối cùng trong vba.
- Tìm row cuối cùng của một column.
- Tìm row cuối cùng của một column từ ô A1 tới trước ô trống.
- Tìm row cuối cùng của một sheet.
- Tìm số row của một table.
Nội dung chính
Tìm row cuối cùng của một column
Ví dụ: Tìm row cuối cùng của column "A".
Sub findLastRowOfColumn()
Dim ws As Worksheet
Dim lastRow As Integer
Set ws = ActiveSheet
'find last row of column
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
MsgBox lastRow
End Sub
Ouput:
13
Tìm row cuối cùng của một column từ ô A1 tới trước ô trống
Ví dụ: Tìm row cuối cùng của một column "A" từ ô A1 tới ô trước ô trống.
Sub findLastRowOfColumn2()
Dim ws As Worksheet
Dim lastRow As Integer
Set ws = ActiveSheet
'find last row of column
lastRow = ws.Range("A1:" & "A" & Rows.Count).End(xlDown).Row
MsgBox lastRow
End Sub
Ouput:
8
Tìm row cuối cùng của một sheet
Ví dụ: Tìm row cuối cùng của một sheet.
Sub findLastRowOfSheet()
Dim ws As Worksheet
Dim lastRow As Integer
Set ws = ActiveSheet
'find last row of sheet
lastRow = ws.UsedRange.Rows(ws.UsedRange.Rows.Count).Row
MsgBox lastRow
End Sub
Ouput:
15
Tìm số row của một table
Ví dụ: Tìm số row của Table1.
Sub findLastRowOfTable()
Dim ws As Worksheet
Dim lastRow As Integer
Set ws = ActiveSheet
'find last row of table
lastRow = ws.ListObjects("Table1").Range.Rows.Count
MsgBox lastRow
End Sub
Ouput:
7
