Выберите диапазон от 3-й до 2-й строки. Ошибка времени выполнения 13: Несоответствие типов?

Question

Я пытаюсь написать код, который сначала находит последнюю строку и выбирает все строки от 2-й до последней строки и 3-й строки. Затем приступает к их удалению. Но я продолжаю сталкиваться с ошибкой 13: Несоответствие типов

  Dim StartRow, LastRow, NuRow As Variant
  StartRow = 3
  Sheets("Sheet3").Activate
  If WorksheetFunction.CountA(Cells) > 0 Then

    'Search for any entry, by searching backwards by Rows.

   LastRow = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows,  SearchDirection:=xlPrevious).Row
End If
    NuRow = LastRow - 1
    Rows("StartRow:NuRow").Delete 'Run time error 13 Type Mismatch

Есть идеи?

Answer 1

Это объект Rows, который выдает ошибку. Ожидается индекс строки в форме «3:20» (например). Вы передаете ему строку «StartRow: NuRow».

Попробуйте изменить это утверждение на:

Rows(StartRow & ":" & NuRow).Delete

Answer 2

Попробуйте вместо этого:

Rows(StartRow & ":" & NuRow).Delete