Ошибка времени выполнения 13 «Несоответствие типов» при использовании ActiveSheet.Range - PullRequest
Новая
       2

Ошибка времени выполнения 13 «Несоответствие типов» при использовании ActiveSheet.Range

0 голосов
/ 13 сентября 2018

Я получаю -

Ошибка времени выполнения 13 «Несоответствие типов»

в этой строке кода. 

ActiveSheet.Range(sheetRange).AutoFilter Field:=5, Criteria1:=(myAry), Operator:=xlFilterValues

myAry - это массив, содержащий строку.

sheetRange получает свое значение следующим образом - 

lastRow = TotalRowsBeforeFilter()
    startRowNum = 1
    Let sheetRange = "A" & startRowNum & ":" & "E" & lastRow

Где я делаю ошибку? Я не получаю эту ошибку в Excel 2016, нов Excel 2013 я получаю эту ошибку.

1 Ответ

0 голосов
/ 15 сентября 2018

Я нашел ответ - я не объявил Dim MyAry() as String, а оставил его как Тип Варианта.Когда я объявил MyAry как String, это сработало.Странно, но EXCEL 2016 не имеет этих проблем.

...