Hướng dẫn này sẽ chỉ cho bạn cách sử dụng thuộc tính Range.End trong VBA.
Hầu hết những việc bạn làm theo cách thủ công trong sổ làm việc hoặc trang tính Excel đều có thể được tự động hóa bằng mã VBA.
Nếu bạn có một loạt các ô không trống trong Excel và bạn nhấn Ctrl + Mũi tên Xuống, con trỏ của bạn sẽ di chuyển đến ô không trống cuối cùng trong cột bạn đang ở. Tương tự, nếu bạn nhấn Ctl + Mũi tên Lên, con trỏ của bạn sẽ di chuyển đến ô không trống đầu tiên. Điều tương tự cũng áp dụng cho một hàng bằng cách sử dụng Ctrl + Mũi tên Phải hoặc Ctrl + Mũi tên Trái để đi đến đầu hoặc cuối hàng đó. Tất cả các tổ hợp phím này có thể được sử dụng trong mã VBA của bạn bằng cách sử dụng Chức năng kết thúc.
Cú pháp thuộc tính kết thúc phạm vi
Thuộc tính Range.End cho phép bạn di chuyển đến một ô cụ thể trong Vùng hiện tại mà bạn đang làm việc.
biểu hiện.Kết thúc (Phương hướng)
biểu thức là địa chỉ ô (Phạm vi) của ô mà bạn muốn bắt đầu từ đó, ví dụ: Phạm vi (“A1”)
END là thuộc tính của đối tượng Range đang được điều khiển.
Direction là hằng số Excel mà bạn có thể sử dụng. Có 4 sự lựa chọn có sẵn - xlDown, xlToLeft, xlToRight và xlUp.
Di chuyển đến ô cuối cùng
Quy trình dưới đây sẽ chuyển bạn đến ô cuối cùng trong Vùng hiện tại của các ô mà bạn đang ở.
| 1234 | Sub GoToLast ()'di chuyển đến ô cuối cùng bị chiếm trong vùng hiện tại của các ôPhạm vi ("A1"). Kết thúc (xlDown). ChọnKết thúc Sub |
Đếm hàng
Quy trình sau đây cho phép bạn sử dụng xlDown không đổi với thuộc tính Range End để đếm có bao nhiêu hàng trong vùng hiện tại của bạn.
| 12345678 | Sub GoToLastRowofRange ()Dim rw As IntegerPhạm vi ("A1"). Chọn'lấy hàng cuối cùng trong khu vực hiện tạirw = Range ("A1"). End (xlDown) .Row'hiển thị bao nhiêu hàng được sử dụngMsgBox "Hàng cuối cùng được sử dụng trong phạm vi này là" & rwKết thúc Sub |
Trong khi phần dưới đây sẽ đếm các cột trong phạm vi bằng cách sử dụng xlToRight hằng số.
| 12345678 | Sub GoToLastCellofRange ()Dim col As IntegerPhạm vi ("A1"). Chọn'lấy cột cuối cùng trong khu vực hiện tạicol = Range ("A1"). End (xlToRight) .Column'hiển thị bao nhiêu cột được sử dụngMsgBox "Cột cuối cùng được sử dụng trong phạm vi này là" & colKết thúc Sub |
Tạo một mảng phạm vi
Quy trình dưới đây cho phép chúng ta bắt đầu ở ô đầu tiên trong một dải ô, sau đó sử dụng thuộc tính End (xlDown) để tìm ô cuối cùng trong dải ô. Sau đó, chúng tôi có thể ReDim mảng của mình với tổng số hàng trong Phạm vi, do đó cho phép chúng tôi lặp qua phạm vi ô.
| 123456789101112131415161718 | Sub PopulateArray ()'khai báo mảngDim strSupplier () Dưới dạng chuỗi'khai báo số nguyên để đếm các hàngDim n As Integer'đếm các hàngn = Range ("B1", Range ("B1"). End (xlDown)). Rows.Count'khởi tạo và điền mảngReDim strCustomers (n)'khai báo số nguyên để lặp lạiDim i As Integer'điền vào mảngĐối với i = 0 Đến nstrCustomers (i) = Range ("B1"). Offset (i, 0) .ValueTiếp theo tôi'hiển thị hộp thông báo với các giá trị của mảngMsgBox Tham gia (strCustomers, vbCrLf)Kết thúc Sub |
Khi chúng tôi chạy thủ tục này, nó sẽ trả về hộp thông báo sau.
