Sub test()
Dim start, zapolnenie, finish As Date
Dim base(100000), dublicat(100000) As Integer
Dim x As Variant
Randomize
start = Time
For x = 1 To 100000
base(x) = Rnd
Next x
zapolnenie = Time
For x = 1 To 100000
dublicat(x) = base(x)
Next x
finish = Time
MsgBox ("Начало = " & start)
MsgBox ("Заполнено = " & zapolnenie)
MsgBox ("Продублировано = " & finish)

Range("g1").Resize(UBound(x, 1), UBound(x, 2)).Value = base

End Sub



Здесь - Range("g1").Resize(UBound(x, 1), UBound(x, 2)).Value = base должен заносить массив в диапазон, но Excel показывает ошибку, что я не так делаю?

Извиняюсь, буду иметь ввиду, но в чем ошибка в коде?

А как мне отразить одномерный массив base () в диапазон ячеек?

AndreTM, до классов и коллекций еще не "дорос" ))