В этом руководстве будет показано, как вывести массив в диапазон с помощью VBA.
Вывод (печать) массива в диапазон
Данные, хранящиеся в массиве, можно легко вывести на лист Excel. Сделать это можно тремя способами.
Вывод данных в другой диапазон
Мы могли бы заполнить массив данными из одного диапазона в Excel, а затем вывести данные в другой диапазон в Excel.
| 12345678 | Публичная подпрограмма TestOutput ()'объявить массивDim rnArray () как вариант'заполняем массив диапазономrnArray = Диапазон ("A1: H24")'выводить массив в другой диапазон ячеекRange ("J1: Q24") = rnArray ()Конец подписки |
Весь массив копируется в одну строку кода в массив, а затем выводится целиком в другой диапазон ячеек на листе.
Цикл по массиву и вывод данных
В этом примере выполняется цикл по массиву, выводящий массив в диапазон.
| 12345678910111213 | Открытый Sub TestLoopArray ()'объявить массивDim rnArray () как вариант'Объявить целое число для хранения количества строкDim iRw как целое число'Присвойте диапазон переменной массиваrnArray = Диапазон ("A1: A10")'перебирать значения в массивеДля iRw = LBound (rnArray) To UBound (rnArray)'заполнить другой диапазон даннымиЯчейки (iRw, 2) .Value = rnArray (iRw, 1)Следующий iRwКонец подписки |
LBoundа также UBoundвозвращает начальный индекс (нижняя граница) и конечный индекс (верхняя граница) массива, в данном случае 1 и 10.
Транспонировать данные массива
Мы также можем перенести данные из массива в лист Excel. Транспонирование позволяет отображать данные горизонтально на листе Excel.
Например, если у нас есть список состояний в Excel и мы хотим их транспонировать.
Затем мы могли бы запустить следующий код:
| 12345678 | Публичная подпрограмма TestOutputTranspose ()'объявить массивDim rnArray () как вариант'заполните его диапазономrnArray = Диапазон ("A1: A38")'транспонировать данныеДиапазон (Ячейки (1, 3), Ячейки (1, 40)). Значение = Application.Transpose (rnArray)Конец подписки |
В результате получится следующее:
Вывод в Debug.Print
Мы также можем вывести значения массива в окно отладки.
| 12345678910111213 | Public Sub TestLoopArray ()'объявить массивDim rnArray () как вариант'Объявить целое число для хранения количества строкDim iRw как целое число'Присвойте диапазон переменной массиваrnArray = Диапазон ("A1: A10")'пропустить ряды - с 1 по 10Для iRw = 1 до UBound (rnArray)'вывод в ближайшее окноDebug.Print rnArray (iRw, 1)Следующий iRwКонец подписки |
