Có các trường hợp để tìm column cuối cùng trong vba.
- Tìm column cuối cùng của một row.
- Tìm column cuối cùng của một row từ ô A1 tới trước ô trống.
- Tìm column cuối cùng của một sheet.
- Tìm số column của một table.
Nội dung chính
Tìm column cuối cùng của một row
Ví dụ: Tìm column cuối cùng của row 1.
Sub findLastRowOfColumn()
Sub findLastColumnOfRow()
Dim ws As Worksheet
Dim lastColumn As Integer
Set ws = ActiveSheet
'find last column of row
lastColumn = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
MsgBox lastColumn
End Sub
End Sub
Ouput:
8
Tìm column cuối cùng của một row từ ô A1 tới trước ô trống
Ví dụ: Tìm row cuối cùng của row 1 từ ô A1 tới ô trước ô trống.
Sub findLastColumnOfRow2()
Dim ws As Worksheet
Dim lastColumn As Integer
Set ws = ActiveSheet
'find last column of row
lastColumn = ws.Range("A1:ZZ1").End(xlToRight).Column
MsgBox lastColumn
End Sub
Ouput:
3
Tìm column cuối cùng của một sheet
Ví dụ: Tìm column cuối cùng của một sheet.
Sub findLastColumnOfSheet()
Dim ws As Worksheet
Dim lastColumn As Integer
Set ws = ActiveSheet
'find last column of sheet
lastColumn = ws.UsedRange.Columns(ws.UsedRange.Columns.Count).Column
MsgBox lastColumn
End Sub
Ouput:
9
Tìm số column của một table
Ví dụ: Tìm số column 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:
4
