Цей підручник покаже вам, як використовувати властивість Range.End у VBA.
Більшість справ, які ви робите вручну у робочій книзі Excel або на робочому аркуші, можна автоматизувати у коді VBA.
Якщо у вас є діапазон непустих клітинок в Excel, і ви натискаєте Ctrl+стрілка вниз, курсор переміститься до останньої порожньої клітинки у стовпці, у якому ви знаходитесь. Аналогічно, якщо натиснути Ctl+стрілка вгору, курсор переміститься до першої не порожньої клітинки. Те саме стосується рядка, що використовує Ctrl+стрілка вправо або Ctrl+стрілка вліво щоб перейти на початок або кінець цього рядка. Усі ці комбінації клавіш можна використовувати у коді VBA за допомогою Функція завершення.
Синтаксис кінцевих властивостей діапазону
Властивість Range.End дозволяє перейти до певної комірки поточного регіону, з яким ви працюєте.
вираз.Кінець (Напрямок)
вираз - це адреса комірки (Діапазон) клітинки, з якої ви хочете почати, наприклад: Діапазон ("A1")
END - це властивість керованого об'єкта Range.
Напрямок - це константа Excel, яку ви можете використовувати. Доступні 4 варіанти - xlDown, xlToLeft, xlToRight та xlUp.
Перехід до останньої клітини
Нижче наведена процедура перемістить вас до останньої клітинки поточної області клітин, у якій ви знаходитесь.
1234 | Sub GoToLast ()'перейти до останньої клітини, зайнятої в поточній області клітинДіапазон ("A1"). Кінець (xlDown) .ВиберітьEnd Sub |
Підрахунок рядків
Наступна процедура дозволяє використовувати xlDown константа з властивістю Range End для підрахунку кількості рядків у вашому поточному регіоні.
12345678 | Sub GoToLastRowofRange ()Dim rw як ціле числоДіапазон ("A1"). Виберіть'отримати останній рядок у поточному регіоніrw = Діапазон ("A1"). Кінець (xlDown) .Row'показати, скільки рядків використовуєтьсяMsgBox "Останній рядок у цьому діапазоні" & rwEnd Sub |
У той час як наведений нижче буде підраховувати стовпці в діапазоні, використовуючи xlToRight постійний.
12345678 | Sub GoToLastCellofRange ()Dim col як ціле числоДіапазон ("A1"). Виберіть'отримати останній стовпець у поточному регіоніcol = Діапазон ("A1"). Кінець (xlToRight) .Стовпець'показати, скільки стовпців використовуєтьсяMsgBox "Останній стовпець, що використовується в цьому діапазоні" & colEnd Sub |
Створення масиву діапазонів
Нижче наведена процедура дозволяє нам почати з першої комірки в діапазоні клітинок, а потім використовувати властивість End (xlDown), щоб знайти останню клітинку в діапазоні клітинок. Потім ми можемо змінити розмір нашого масиву із загальною кількістю рядків у діапазоні, тим самим дозволяючи нам перебирати діапазон клітинок.
123456789101112131415161718 | Sub PopulateArray ()'оголосити масивDim strSuppliers () As String'оголосити ціле число для підрахунку рядківDim n як ціле число'порахуйте рядкиn = Діапазон ("B1", Діапазон ("B1"). Кінець (xlDown)). Rows.Count'ініціалізувати та заповнити масивReDim strCustomers (n)'оголосити ціле число для циклуDim i як ціле число'заповнити масивДля i = 0 до nstrCustomers (i) = Діапазон ("B1"). Зсув (i, 0). ЗначенняДалі i'показати вікно повідомлень зі значеннями масивуMsgBox Join (strCustomers, vbCrLf)End Sub |
Коли ми запустимо цю процедуру, вона поверне наступне вікно повідомлення.