Массив и EXCEL

[IgorGO]

есть один нюанс, если А был обьявлен так: Dim A(1 to n)

то вот код, который порадует Вас и Вашего проподавателя
for c = 1 to n
cells(1,c) = a(c)
next

Range(Cells(1, 1), Cells(1, n)) = a приведет к тому же результату, что и приведенный выше цикл.


если А начинается с нулевого элемента, то все должно выглядеть так:
for c = 0 to n+1
cells(1,c+1) = a(c)
next

или...
Range(Cells(1, 1), Cells(1, n+1)) = a - что по результатам - одно и то же

[R Dmitry]

[a1].resize(1,ubound(A)+1)=A -----вправо

[a1].resize(ubound(A)+1,1)=application. transpose (A) -----Вниз
если хотите получить автомат.
[a1]-ячейка с которой надо заполнять
resize-расширение диапазона (стр вниз,столбц вправо)
ubound(A)-определяет нижнюю границу массива, так как у вас начинается с 0 элемента то +1
application.transpose (A)-транспонирует массив из горизонтального в вертикальный.....

если все это на автомате расскажете, получите зачет