Пример

dim a(1,4) as Variant

a1(1,1)="Станков"
a1(1,2)=1 ' реальная цифра берется из переменной Currency
a1(1,3)="Цена"
a1(1,4)=2 ' реальная цифра берется из переменной Currency

' ws объект Worksheet Excell'а

ws.Range(ws.Cells(1,1),ws.Cells(1,4))=a
ws.Range(ws.Cells(1,1),ws.Cells(1,4)).NumberFormat="0.0"

При выводе числовые значения преобразовались в строковые, их уже невозможно подставлять в формулы и т.п.

Полученная в Excell строка:
Станков $1.00 Цена $2.00
где $1.00 и $2.00 строки

Хотелось бы получить:
Станков 1.00 Цена 2.00
где 1.00 и 2.00 числа

Если описать как:
dim a(1,4) as Currency
то числа нормально выводятся как числа, но другая проблема:
отображаются нулевые значения массива при выводе в Excell (конечно можно отключить в параметрах вывод нулевых значений, но не хотелось бы куда нибудь лазить), чтобы отобразить "Станков" и "Цена" снова сделать два обращения к ws.Range ?