Excel vba nhận hàng cuối cùng

Bạn thường cần chèn dữ liệu vào cuối bảng trong trang tính Excel và để thực hiện việc này, bạn cần biết số của hàng trống đầu tiên có sẵn trong bảng

Số hàng không trống cuối cùng trong một bảng được lấy bằng cách sử dụng

Cells[Rows.Count, COLUMN].End[xlUp].Row

Ô trống đầu tiên trong cột A

Để tìm ra ô không trống cuối cùng trong một cột, hãy sử dụng mã ở trên và thay thế "COLUMN" bằng 1

Sub example[]

    lastRow = Cells[Rows.Count, 1].End[xlUp].Row
    
    MsgBox lastRow

End Sub

Điều này cung cấp cho bạn số của hàng không trống cuối cùng trong cột A

Để có được số của hàng trống đầu tiên, chỉ cần thêm 1 vào kết quả

Sub example[]

    lastRow = Cells[Rows.Count, 1].End[xlUp].Row + 1
    
    MsgBox lastRow

End Sub

Điều này bây giờ cung cấp cho bạn số của hàng trống đầu tiên trong cột A

Để tóm tắt cách thức hoạt động của điều này, tìm kiếm bắt đầu ở hàng cuối cùng trong trang tính [Rows.Count] sau đó di chuyển lên trên [xlUp] cho đến khi tìm thấy một ô không trống

Trong VBA, bạn có thể sử dụng các phương pháp khác nhau để tìm hàng cuối cùng. Trong bài viết này, tôi sẽ giải thích các phương pháp khác nhau của VBA tìm hàng cuối cùng trong Excel

Để hiển thị phần giải thích này, tôi sẽ sử dụng một tập dữ liệu mẫu. Có 4 cột trong tập dữ liệu thể hiện thông tin bán hàng. Các cột này là Nhân viên bán hàng, Khu vực, Sản phẩm và Giá

Mục lục ẩn

Tải Về Để Thực Hành

Các cách để VBA Tìm hàng cuối cùng trong Excel

1. Sử dụng SpecialCells để tìm hàng cuối cùng

2. Sử dụng hàng. Đếm cho các ô không trống

3. Sử dụng hàng. Đếm cho bất kỳ cột được chọn nào

4. Sử dụng usedRange để tìm hàng cuối cùng

5. Sử dụng phạm vi. Tìm để tìm hàng cuối cùng

Sự kết luận

Đọc thêm

Tải Về Để Thực Hành

VBA Tìm hàng cuối cùng. xlsm

Các cách để VBA Tìm hàng cuối cùng trong Excel

1. Sử dụng SpecialCells để tìm hàng cuối cùng

Bạn có thể sử dụng phương thức SpecialCells để tìm hàng cuối cùng bằng VBA

Đầu tiên các bạn mở tab Developer >> sau đó chọn Visual Basic

Một cửa sổ mới của Microsoft Visual Basic for Applications sẽ bật lên.
Bây giờ, từ Chèn >> chọn Mô-đun

Một Mô-đun sẽ được mở.
Sau đó viết đoạn mã sau vào Mô-đun.

Sub LastRow_SpecialCells[]
Dim LastRow As Long
LastRow = Range["A:A"].SpecialCells[xlCellTypeLastCell].Row
MsgBox LastRow
End Sub

Ở đây, tôi đã tạo một thủ tục con có tên là LastRow_SpecialCells, trong đó một loại biến Long LastRow đã được khai báo

Sau đó, xác định biến bằng cách sử dụng Phạm vi. phương pháp SpecialCells. Ở đây, tôi đã sử dụng cột A [A. A] như phạm vi. Cung cấp xlCellTypeLastCell làm tham số loại của SpecialCells, điều này sẽ trả về ô cuối cùng cho phạm vi [trong trường hợp này, từ cột A]

Tôi đã sử dụng hộp thông báo để hiển thị kết quả

Sau đó, Lưu mã và quay lại trang tính.
Một lần nữa, mở tab Xem >> từ Macro >> chọn Xem Macro

Sau đó, một hộp thoại sẽ bật lên

Bây giờ, từ tên Macro, chọn LastRow_SpecialCells cũng chọn sổ làm việc trong Macros trong

Cuối cùng, Chạy Macro đã chọn.
Như vậy sẽ hiện ra hộp thông báo hiển thị số hàng cuối cùng.

2. Sử dụng hàng. Đếm cho các ô không trống

Bạn có thể sử dụng Hàng. Phương pháp đếm để tìm hàng cuối cùng bằng VBA

Bây giờ, hãy mở tab Nhà phát triển >> sau đó chọn Visual Basic

Một cửa sổ mới của Microsoft Visual Basic for Applications sẽ bật lên.
Bây giờ, từ Chèn >> chọn Mô-đun

Một Mô-đun sẽ được mở.
Sau đó viết đoạn mã sau vào Mô-đun.

Sub LastRow_NonEmpty[]
Dim LastRow As Long
LastRow = Cells[Rows.Count, 1].End[xlUp].Row
MsgBox LastRow
End Sub

Ở đây, tôi đã tạo một thủ tục con có tên là LastRow_NonEmpty, trong đó một loại biến Long LastRow đã được khai báo

Bây giờ, CELLS[Hàng. Count, 1] sẽ đếm xem có bao nhiêu hàng trong cột đầu tiên. Sau đó sử dụng End[xlUp]. Hàng bây giờ, cái này sẽ tìm hàng được sử dụng cuối cùng trong một phạm vi Excel

Cuối cùng, tôi đã sử dụng hộp thông báo để hiển thị kết quả

Sau đó, Lưu mã và quay lại trang tính.
Tại đây, hãy mở tab Xem >> từ Macro >> chọn Xem Macro

Bây giờ, một hộp thoại sẽ bật lên

Sau đó, từ tên Macro, hãy chọn LastRow_NonEmpty đồng thời chọn sổ làm việc trong Macro trong

Cuối cùng, Chạy Macro đã chọn.
Như vậy sẽ hiện ra hộp thông báo hiển thị số hàng cuối cùng.

3. Sử dụng hàng. Đếm cho bất kỳ cột được chọn nào

Bằng cách sử dụng bất kỳ cột đã chọn nào trong VBA, bạn có thể tìm thấy hàng cuối cùng

Đầu tiên các bạn mở tab Developer >> sau đó chọn Visual Basic

Một cửa sổ mới của Microsoft Visual Basic for Applications sẽ bật lên.
Bây giờ, từ Chèn >> chọn Mô-đun

Một Mô-đun sẽ được mở.
Sau đó viết đoạn mã sau vào Mô-đun.

Sub LastRow_AnyColumn[]
Dim LastRow As Long
LastRow = Range["B" & Rows.Count].End[xlUp].Row
MsgBox LastRow
End Sub

Ở đây, tôi đã tạo một thủ tục con có tên là LastRow_AnyColumn, trong đó một kiểu dài của biến LastRow đã được khai báo

Sau đó, trong Phạm vi đã cung cấp cột B làm tham số và cả  Hàng. Đếm, điều này sẽ đếm xem có bao nhiêu hàng trong một cột B nhất định. Tiếp theo, sử dụng End[xlup]. Hàng sẽ tìm thấy hàng được sử dụng cuối cùng trong một phạm vi Excel.
Cuối cùng, tôi đã sử dụng hộp thông báo để hiển thị kết quả.

Tiếp theo, Lưu mã và quay lại trang tính.
Sau đó, mở tab Xem >> từ Macro >> chọn Xem Macro

Tại đây, một hộp thoại sẽ bật lên

Bây giờ, từ tên Macro, chọn LastRow_AnyColumn, đồng thời chọn sổ làm việc trong Macros trong

Cuối cùng, Chạy Macro đã chọn.
Như vậy sẽ hiện ra hộp thông báo hiển thị số hàng cuối cùng.

bài đọc tương tự

• VBA Tìm trong cột trong Excel [7 cách tiếp cận]
• Tìm và thay thế bằng VBA [11 cách]
• Tìm kết quả khớp chính xác bằng VBA trong Excel [5 cách]
• Cách tìm chuỗi bằng VBA trong Excel [8 ví dụ]

4. Sử dụng usedRange để tìm hàng cuối cùng

Bạn có thể sử dụng thuộc tính UsedRange của trang tính để tìm hàng cuối cùng bằng VBA

Bây giờ, hãy mở tab Nhà phát triển >> sau đó chọn Visual Basic

Sau đó, một cửa sổ mới của Microsoft Visual Basic for Applications sẽ bật lên.
Bây giờ, từ Chèn >> chọn Mô-đun

Một Mô-đun sẽ được mở.
Sau đó, viết đoạn mã sau vào Mô-đun.

Sub LastRow_UsedRange[]
Dim LastRow As Long
LastRow = ActiveSheet.UsedRange.Rows[ActiveSheet.UsedRange.Rows.Count].Row
MsgBox "Last Row: " & LastRow
End Sub

Ở đây, tôi đã tạo một thủ tục con có tên là LastRow_UsedRange, trong đó một loại Long của biến LastRow đã được khai báo

Tiếp theo, đã xác định biến bằng ActiveSheet. Phạm vi đã sử dụng. Phương thức Rows cũng được cung cấp ActiveSheet. Phạm vi đã sử dụng. hàng. Được tính là tham số của ActiveSheet. Phạm vi đã sử dụng. Hàng, điều này sẽ trả về hàng cuối cùng.
Tôi đã sử dụng hộp thông báo để hiển thị kết quả.

Bây giờ, Lưu mã và quay lại trang tính.
Sau đó, mở tab Xem >> từ Macro >> chọn Xem Macro

Tiếp theo, một hộp thoại sẽ bật lên

Sau đó, từ tên Macro chọn LastRow_UsedRange cũng chọn sổ làm việc trong Macros trong

Cuối cùng, Chạy Macro đã chọn.
Như vậy sẽ hiện ra hộp thông báo hiển thị số hàng cuối cùng.

5. Sử dụng phạm vi. Tìm để tìm hàng cuối cùng

Bạn có thể sử dụng Phạm vi. Tìm phương pháp để tìm hàng cuối cùng bằng VBA.
Bây giờ, hãy mở tab Nhà phát triển >> sau đó chọn Visual Basic

Tại đây, một cửa sổ mới của Microsoft Visual Basic for Applications sẽ bật lên.
Bây giờ, từ Chèn >> chọn Mô-đun

Một Mô-đun sẽ được mở.
Sau đó viết đoạn mã sau vào Mô-đun.

Sub Range_Find_Method[]
Dim LastRow As Long
On Error Resume Next
LastRow = Cells.Find[What:="*", _
After:=Range["A1"], _
LookAt:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False].Row
On Error GoTo 0
MsgBox "Last Row: " & LastRow
End Sub

Ở đây, tôi đã tạo một thủ tục con có tên Range_Find_Method, trong đó một loại biến Long LastRow đã được khai báo

Sau đó, xác định biến bằng cách sử dụng Ô. Tìm phương pháp. Tại đây, đã khai báo 7 tham số. Trong Tham số nào tôi đã sử dụng [“*”] sẽ tìm thấy ô không trống đầu tiên. Cho A1 làm phạm vi trong tham số After để bắt đầu. Trong tham số LookAt được cung cấp xlPart để xem bất kỳ phần nào của văn bản bên trong ô

Nhìn vào. Tham số =xlFormulas sẽ tìm kiếm các công thức nếu có. Tìm kiếmĐặt hàng. Tham số =xlByRows sẽ di chuyển từ phải sang trái và cũng lặp qua từng hàng cho đến khi tìm thấy một ô không trống

Hộp diêm. Tham số =False sẽ cho Find không xem xét chữ hoa hoặc chữ thường. Khi tìm thấy một ô trống, nó dừng lại và trả về số hàng

Tôi đã sử dụng hộp thông báo để hiển thị kết quả

Bây giờ, Lưu mã và quay lại trang tính.
Tại đây, hãy mở tab Xem >> từ Macro >> chọn Xem Macro

Bây giờ, một hộp thoại sẽ bật lên

Bây giờ, từ tên Macro, hãy chọn  Range_Find_Method đồng thời chọn trang tính trong Macro trong

Cuối cùng, Chạy Macro đã chọn.
Như vậy sẽ hiện ra hộp thông báo hiển thị số hàng cuối cùng.

Sự kết luận

Trong bài viết này, tôi đã giải thích 5 cách để VBA tìm hàng cuối cùng trong Excel. Bạn có thể làm theo bất kỳ phương pháp nào để tìm hàng cuối cùng. Trong trường hợp bạn có bất kỳ nhầm lẫn hoặc câu hỏi nào liên quan đến các phương pháp này, bạn có thể bình luận xuống bên dưới