Добрый День Уважаемые Эксперты.
Подскажите пожалуйста есть ли способ вывести на лист массив заполненный с помощью цикла, без циклическим способом?
Вот пример небольшого кода:
Подскажите что нужно дописать к строке:
Чтобы выводился весь заполненный первым циклом массив? А не только его Первое(Верхнее) значение.
Т.е. еще раз, как вывести на лист массив, не циклическим способом, но при этом заполненным с помощью цикла?
Или даже так, Есть объект Range(), к нему можно обратиться например так Range(Cells(1, 1), Cells(10, 1)), из этой записи понятно что объект Range обращается к диапазону (A1:A10), а как сделать подобное обращение в массиву и вывести на лист?
Прошу по возможности помочь разобраться.
Благодарю Вас.
Подскажите пожалуйста есть ли способ вывести на лист массив заполненный с помощью цикла, без циклическим способом?
Вот пример небольшого кода:
Код |
---|
Sub Obmen_Massivami() Dim Peremennaya_Massiva As Variant Vsego_Elementov = 10 ReDim Peremennaya_Massiva(1 To Vsego_Elementov) For i = 1 To Vsego_Elementov Peremennaya_Massiva(i) = Cells(i, 1) Next i For i = 1 To Vsego_Elementov Cells(i, 3) = Peremennaya_Massiva(i) Next i [E1].Resize(UBound(Peremennaya_Massiva)).Value = Peremennaya_Massiva End Sub |
Код |
---|
[E1].Resize(UBound(Peremennaya_Massiva)).Value = Peremennaya_Massiva |
Т.е. еще раз, как вывести на лист массив, не циклическим способом, но при этом заполненным с помощью цикла?
Или даже так, Есть объект Range(), к нему можно обратиться например так Range(Cells(1, 1), Cells(10, 1)), из этой записи понятно что объект Range обращается к диапазону (A1:A10), а как сделать подобное обращение в массиву и вывести на лист?
Прошу по возможности помочь разобраться.
Благодарю Вас.