Excel VBA: Запись в динамический массив одного единственного значения?

Формулировка задачи:

Здравствуйте.
Не могу понять почему:

Dim cRange() As Variant
cRange = Range("A1:A2").Value

Отрабатывает нормально, а

Dim cRange() As Variant
cRange = Range("A1:A1").Value

Вываливается с ошибкой "Type mismatch."
Почему в такой массив я не могу записать только одно значение, а диапазон ячеек могу?

Решение задачи: «Excel VBA: Запись в динамический массив одного единственного значения?»

textual
                            Листинг программы 
                        

                            strNeededRange = "A1:A1" ' or "A1:A2"
cRange = Range(strNeededRange).Value
If Not IsArray(cRange) Then cRange = Array(cRange)
cRange(0) = "34"
Range(strNeededRange).Value = cRange

                        

Оцени полезность:

11 голосов , оценка 4.091 из 5

Похожие ответы