VBA - Hàng không trống cuối cùng [Tất cả các phiên bản]

Giữa các phiên bản 2003 và 2007, số lượng hàng có thể đạt được trong một bảng Excel đã thay đổi đáng kể. Do đó, mã VBA như dưới đây, ngăn chặn tính di động của sổ làm việc của bạn từ phiên bản này sang phiên bản khác:

- Phiên bản <2007:

 Dim LastLine As Long LastLine = Range ("A65536"). Kết thúc (xlUp) .Row 

- Từ năm 2007:

 Dim LastLine As Long LastLine = Range ("A1048576"). End (xlUp) .Row 

Trong mọi trường hợp, bây giờ bạn nên sử dụng [Tất cả các phiên bản]:

 Dim LastLine As Long LastLine = Cột (1) .Tìm ("*",,,, xlByColumns, xlPreingly) .Row 

hoặc là :

 Dim LastLine As Long LastLine = Range ("A" & Rows.Count) .End (xlUp) .Row 

Bạn cũng sẽ gặp phải vấn đề tương tự khi sử dụng các cột ... Bạn có thể sử dụng mã này (được đưa ra ở đây làm ví dụ, có các cú pháp khác):

 Dim LastCol As Integer LastCol = Cells (1, Cells.Columns.Count) .End (xlToLeft) .Column 

Các mã được liệt kê ở đây liên quan đến dòng không trống cuối cùng trong cột A (Cột (1) .indind ("*",,, xlByColumns, xlPreingly). xlUp) .Row) và cột cuối cùng có dòng đầu tiên không trống (Ô (1, Cells.Columns.Count) .End (xlToLeft) .Column) . Tất nhiên bạn có thể điều chỉnh mã cho thuận tiện.