Цей підручник продемонструє, як вивести масив у діапазон за допомогою VBA.
Виведення (друк) масиву до діапазону
Дані, які зберігаються в масиві, можна легко вивести на аркуш Excel. Є 3 способи зробити це.
Виведення даних в інший діапазон
Ми могли б заповнити масив даними з одного діапазону в Excel, а потім вивести дані до іншого діапазону в Excel.
12345678 | Публічний субтестOutput ()'оголосити масивDim rnArray () як варіант'заповнити масив діапазономrnArray = Діапазон ("A1: H24")'вивести масив у інший діапазон комірокДіапазон ("J1: Q24") = rnArray ()End Sub |
Весь масив копіюється в один рядок коду до масиву, а потім повністю виводиться в інший діапазон клітинок на аркуші.
Цикл через масив та виведення даних
У цьому прикладі цикл буде проходити через масив, виводячи масив у діапазон.
12345678910111213 | Відкритий субтестLoopArray ()'оголосити масивDim rnArray () як варіант'Оголосіть ціле число для збереження кількості рядківЗатемнити iRw як ціле число'Призначити діапазон змінній масивуrnArray = Діапазон ("A1: A10")'цикл через значення в масивіДля iRw = LBound (rnArray) До UBound (rnArray)'заповнювати дані різним діапазономКлітинки (iRw, 2). Значення = rnArray (iRw, 1)Далі iRwEnd Sub |
LBoundта UBoundповертає початковий індекс (нижня межа) та кінцевий індекс (верхня межа) масиву, в даному випадку 1 і 10.
Транспонування даних масиву
Ми також можемо транспонувати дані в масиві на аркуш Excel. Транспонування дозволяє відображати дані горизонтально на аркуші Excel.
Наприклад, якщо у нас є список станів в Excel і ми хочемо їх транспонувати.
Тоді ми могли б запустити такий код:
12345678 | Публічний субтестOutputTranspose ()'оголосити масивDim rnArray () як варіант'заповніть його діапазономrnArray = Діапазон ("A1: A38")'транспонувати даніДіапазон (клітинки (1, 3), клітинки (1, 40)). Значення = Застосування. Транспонування (rnArray)End Sub |
Що призведе до такого:
Вивід на Debug.Print
Ми також можемо виводити значення масиву у вікно налагодження.
12345678910111213 | Відкритий субтестLoopArray ()'оголосити масивDim rnArray () як варіант'Оголосіть ціле число для збереження кількості рядківЗатемнити iRw як ціле число'Призначити діапазон змінній масивуrnArray = Діапазон ("A1: A10")'цикл через рядки - від 1 до 10Для iRw = 1 до UBound (rnArray)'вихід у безпосереднє вікноНалагодити друк rnArray (iRw, 1)Далі iRwEnd Sub |