Необходимо создать массив констант в четыре строки и восемь столбцов, заполнить его значениями внутри скрипта VBA. Как это сделать правильно?
Код |
---|
Sub tst() Dim arr_c(1 To 4) As Variant ' массив 1..4 массивов 0..7 Dim arr_d(1 To 4, 1 To 8) As Variant 'двумерный массив значений arr_c(1) = Array("$AY$6:$CD$53", 0.9, "=стабилизация!R61C1:R150C1", "=стабилизация!R61C11:R150C11", 90, _ "=стабилизация!R61C13:R150C13", "=стабилизация!R61C7:R150C7", "=стабилизация!R61C9:R150C9") arr_c(2) = Array("$AY$6:$CL$53", 0.72, "=стабилизация!R61C1:R159C1", "=стабилизация!R61C11:R159C11", 99, _ "=стабилизация!R61C13:R159C13", "=стабилизация!R61C7:R159C7", "=стабилизация!R61C9:R159C9") arr_c(3) = Array("$AY$6:$CT$53", 0.6, "=стабилизация!R61C1:R168C1", "=стабилизация!R61C11:R168C11", 108, _ "=стабилизация!R61C13:R168C13", "=стабилизация!R61C7:R168C7", "=стабилизация!R61C9:R168C9") arr_c(4) = Array("$AY$6:$bv$53", 1#, "=стабилизация!R61C1:R141C1", "=стабилизация!R61C11:R141C11", 81, _ "=стабилизация!R61C13:R141C13", "=стабилизация!R61C7:R141C7", "=стабилизация!R61C9:R141C9") For i = 1 To 4: For j = 1 To 8: arr_d(i, j) = arr_c(i)(j - 1): Next: Next End Sub |
Т.е. как мне сразу получить готовый массив arr_d минуя костыли в виде промежуточного массива arr_c? Excel 2003.