Удалить все строки с ошибками в столбце

Question

Я работаю над кодом VBA, и часть кода необходима для удаления всех строк на листе, где текст в столбце «J» «# N/A». Я написал код, но, но я получаю ошибку несоответствия типа при ее отладке.

Вот код

Dim i As Long 
For i = Cells(Rows.Count, 10).End(xlUp).Row To 1 Step -1 
If Cells(i, 10) = "#N/A" Then Cells(i, 1).EntireRow.Delete 
Next i 

Answer 1

Попробуйте этот код:

Dim i As Long 
For i = Cells(Rows.Count, 10).End(xlUp).Row To 1 Step -1 
If Cells(i, 10).Text = "#N/A" Then Cells(i, 1).EntireRow.Delete 
Next i 

Answer 2

Используйте Range.SpecialCells method с xlSpecialCellsValue постоянной, как xlErrors быстро идентифицировать все ячейки в столбце J с ошибками. Не сообщалось, были ли ячейки формулами или типизированными константами, поэтому я добавил код для изучения обоих типов через xlCellType Enumeration.

Sub del_error_rows() 
    With Worksheets("Sheet3") 
     On Error Resume Next 
     With .Columns(10).SpecialCells(xlCellTypeFormulas, xlErrors) 
      .EntireRow.Delete 
     End With 
     With .Columns(10).SpecialCells(xlCellTypeConstants, xlErrors) 
      .EntireRow.Delete 
     End With 
     On Error GoTo 0 
    End With 
End Sub 

On Error Resume Next необходим в случае, если нет клетки с этой конкретной конфигурацией ошибки. В этом случае SpecialCells будет Nothing, и вы должны обойти любую ошибку, вызванную попыткой ничего не обрабатывать.