Добрый день, Товарищи

Хочу сделать словарь в котором значение является массивом:
Dic.Add MyRange.Value, Array(MyRange.Offset(0, 4).Value, MyRange.Offset(0, 5).Value)
А потом вывести этот массив, заполнить так сказать нужные ячейки элементами массива.
If Dic.Exists(SourceRange.Value) Then TargetRange.Offset(0, 5).Value = Dic.Item(SourceRange.Value)
Так заполняет первым элементом массива только эту ячейку TargetRange.Offset(0, 5).Value

Вопрос, как заполнить 2 соседние ячейки TargetRange.Offset(0, 5).Value TargetRange.Offset(0, 6).Value?

Что-то типа
TargetRange.Offset(0, 5).Value = Dic.Item(SourceRange.Value)[1]
TargetRange.Offset(0, 6).Value = Dic.Item(SourceRange.Value)[2]

Спасибо!

Shocker.Pro,

Спасибо! протупил, Сделал по другому