В этом руководстве будет показано, как заполнить массив диапазоном ячеек.
Назначить диапазон для массива
Мы можем легко заполнить массив A Variant диапазоном ячеек.
Присвойте значение из одного столбца
В этом примере выполняется цикл по диапазону («A1: A10»), присваивая значения ячеек массиву:
| 12345678910111213 | Sub TestArrayValuesSingle ()'Объявить массив как вариантный массивDim arRng () как вариант'Объявить целое число для хранения количества строкDim iRw как целое число'Присвойте диапазон переменной массиваarRng = Диапазон ("A1: A10")'пропустить ряды - с 1 по 10Для iRw = 1 To UBound (arRng)'показать результат в ближайшем окнеОтладка.Печать arRng (iRw, 1)Следующий iRwКонец подписки |
В UBound используется для установки верхней границы массива (например, 10), чтобы цикл знал, что нужно зацикливаться 10 раз.
ВОтладка.Печать функция покажет вам значение, содержащееся в массиве, в непосредственном окне.
Назначить значение из нескольких столбцов
| 123456789101112131415161718 | Sub TestArrayValuesMultiple ()'Объявить массив как вариантный массивDim arRng () как вариант'Объявить целое число для хранения количества строкDim iRw как целое число'Объявить целое число для хранения количества столбцовDim iCol as Integer'Присвойте диапазон переменной массиваarRng = Диапазон ("A1: C10")'пропустить ряды - с 1 по 10Для iRw = 1 To UBound (arRng, 1)'сейчас - находясь в строке 1, пропустите 3 столбцаДля iCol = 1 в UBound (arRng, 2)'показать результат в ближайшем окнеОтладка.Печать arRng (iRw, iCol)Следующий iColСледующий iRwКонец подписки |
В приведенном выше коде мы заполнили массив значениями из диапазона («A1: C10»).
В UBound снова используется - но на этот раз он нужен дважды - один раз для циклического перебора строк, а затем еще раз для циклического перебора столбцов.
В Отладка.Печать функция покажет вам значение, содержащееся в массиве, в непосредственном окне.
