VBA Intersect возвращает ошибку времени выполнения 91: переменная объекта или с заблокированным блоком

Я пишу код, который проверяет, пересекает ли диапазон другой, а затем делает что-то, когда это происходит, это моя текущая сборка:

Dim lastRow As Long Dim dataRange As Range lastRow = Worksheets("EvoDbase").UsedRange.Rows.Count Dim curName As String 'name of current record Dim curPos As Range Dim searchRow As Long Dim finPos As Range Dim resultsPos As Range Dim resultsRow As Long 'store row to paste results to Set dataRange = Range(Cells(1, 1), Cells(lastRow, 7)) dataRange.Sort key1:=ActiveSheet.Columns(2), order1:=xlAscending, key2:=ActiveSheet.Columns(6), order2:=xlDescending, Header:=xlYes dataRange.AutoFilter 'find a name, copy the first record against that name to sheet "results", move to next name repeat, move results to active sheet when finished. searchRow = 2 Set curPos = Worksheets("EvoDbase").Range(Cells(searchRow, 1), Cells(searchRow, 7)) ' set starting position resultsRow = 2 'resultsPos = Range(Sheets("Results").Range(Cells(resultsRow, 1)), Sheets("Results").Range(Cells(resultsRow, 7))) Set resultsPos = Range(Worksheets("Results").Cells(resultsRow, 1), Worksheets("Results").Cells(resultsRow, 7)) Set finPos = Range(Worksheets("EvoDbase").Cells(lastRow, 1), Worksheets("EvoDbase").Cells(lastRow, 1)) Do While Intersect(curPos, finPos) 

Когда я запускаю это, он бросает мне ошибку времени выполнения 91: переменная объекта или с блоком не установлен.

Я попробовал следующее (как предлагается на MSDN):

 Do While Intersect(Range("curPos"), Range("finPos") 

Это дает мне ошибку 1004: метод «Диапазон» объекта «_Global» не выполнен

Я в недоумении, посмотрев на переполнение стека и другие ресурсы, любая помощь будет принята с благодарностью!

  • Именование многих диапазонов переменной длины
  • Excel 2013 VBA Ошибка выполнения 13 Тип Несоответствие
  • VBA - связанная с OLEDBConnection ошибка времени выполнения «1004»: «Определенная пользователем или объектная ошибка»
  • Что вызывает эту ошибку во время выполнения 13 «Тип Mis-Match»?
  • VBA error 1004 выберите метод поля класса рабочего листа
  • Создание листов в двух разных книгах и ихменование после списка в этой книге
  • Конструктор в VBA - Ошибка выполнения 91 «Объектная переменная не установлена»
  • Ошибка Runtime Ошибка 13 типа Excel
  • Ввод Excel VBA в SAP и извлечение электронной таблицы - застрял в Excel
  • Ошибка времени выполнения '1004': выбор метода класса Range не удалось VBA
  • Не удается открыть исходный файл сводной таблицы
  • Давайте будем гением компьютера.