Tìm Column Cuối Cùng Trong VBA - VietTuts

Trang chủ » Chọn Cột Cuối Trong Excel » Tìm Column Cuối Cùng Trong VBA - VietTuts

Có thể bạn quan tâm

Tìm row cuối cùng trong VBA Dãy số Fibonacci trong Excel

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.
Tìm column cuối cùng trong VBA

Nội dung chính

  • 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

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 Tìm row cuối cùng trong VBA Dãy số Fibonacci trong Excel

Từ khóa » Chọn Cột Cuối Trong Excel