Заполнение диапазона данными массива

[Сер_Ежик]

Здравствуйте!
Вопрос: можно ли в VBA заполнить экселовский диапазон данными массива в одну операцию?
Поячеечное заполнение - очень тормозной процесс.
Нашел в сети коды для заполнения в одну операцию для Дельфи и С#. Там вообще усё просто, MyRange:=Arraydata
А как в VBA?

С уважением,
Сергей.

[SAS888]

Dim a(1 To 10, 1 To 10) 'Пусть дан двумерный массив 10х10
     
' выводим на первый лист в диапазон "A1:J10" (точно так же с именованным диапазоном)

    Worksheets(1).Range(Cells(1, 1), Cells(10, 10)).Value = a

[nikolai_P]

SAS888, подскажите пожалуйста где ошибка! Вроде все делал как вы и написали!

Sub Макрос1()
Dim a(10)
For i = 1 To 10
    a(i) = i
Next
Worksheets("Лист1").Range(Cells(1, 1), Cells(10, 1)).Value = a
End Sub

У меня ничего не происходит, вернее диапазон заполняется пустыми значениями!

[SAS888]

В Excel при вводе данных из ячеек листа в массив (и наоборот) используется обязательно двумерный массив (строки Х столбцы). В Вашем случае, нужно так:

Sub Макрос1()
    Dim a(1 To 10, 1 To 1)
    For i = 1 To 10
        a(i, 1) = i
    Next
    Worksheets("Лист1").Range(Cells(1, 1), Cells(10, 1)).Value = a
End Sub

[nikolai_P]

Благодарю! Все удачно получилось!