06:44
1,0×
00:00/06:44
725,1 тыс смотрели · 4 года назад
1 неделю назад
VBA Эксель, вставляем массив на лист
Sub PasteArray() Dim arr(0 To 10, 1 To 1) 'Объявили массив любой размерности 'Заполнили массив значениями arr(0, 1) = "Начало" arr(10, 1) = "Конец" 'Вывели массив на лист! Range(Cells(1, 1), Cells(UBound(arr, 1) - LBound(arr, 1) + 1, UBound(arr, 2) - LBound(arr, 2) + 1)) = arr 'Вывели транспонированный (перевернутый) массив на лист! Range(Cells(1, 1), Cells(UBound(arr, 2) - LBound(arr, 2) + 1, UBound(arr, 1) - LBound(arr, 1) + 1)) = Application...