Добрый день.
Подскажите как можно решить ошибку несоответствие типа(13)в данном коде:
Выдает что ошибка в типе переменной, предполагаю что функции Filter не устраивает , что массив arrA не обозначен как string(хотя в окне локал он фигурирует какVatiant\String).
Но arrA сделать типа string не могу,так как отладчик начнет ругаться на эту строку arrA = Range("A1:A9").Value
при этом при таком исполнении все работает
Фактически все одно и тоже за исключением что в первом варианте назначение идет через диапазон, а во втором в ручную. Спасибо
Подскажите как можно решить ошибку несоответствие типа(13)в данном коде:
Код |
---|
Sub test() Dim arrA Dim arrB arrA = Range("A1:A9").Value arrB = Filter(arrA, "январь") Range("B1").Resize(UBound(arrB)) = arrB End Sub |
Но arrA сделать типа string не могу,так как отладчик начнет ругаться на эту строку arrA = Range("A1:A9").Value
при этом при таком исполнении все работает
Код |
---|
Sub test() Dim arrA(3) As String Dim arrB As Variant arrA(1) = "a" arrA(2) = "b" arrA(3) = "c" arrB = Filter(arrA, "b") End Sub |