Удалить все столбцы на основе ошибки в заголовке столбца?

Question

Я использую индексное совпадение или hlookup, чтобы убедиться, что получаю только те столбцы, которые я хочу для определенного файла. Что бы я ни совпадал, мне нужно удалить. Каков наиболее эффективный сценарий VBA для удаления всех заголовков столбцов «# N/A»?

Answer 1

Используйте Range.SpecialCells method с xlCellType из xlCellTypeFormulas и указать xlErrors для константы XlSpecialCellsValue.

Sub del_err_cols() 
    With Worksheets("Sheet1") 
     On Error Resume Next 
     With .Rows(1).SpecialCells(xlCellTypeFormulas, xlErrors) 
      .Cells.EntireColumn.Delete 
     End With 
     On Error GoTo 0 
    End With 
End Sub 

Answer 2

Я думаю @Jeeped решение лучше, но так как вы писали код вот мое предложение:

Sub del_err_colsG() 

    Dim lastCol As Long, i As Integer 

    lastCol = Cells(1, Columns.Count).End(xlToLeft).Column 

    For i = lastCol To 1 Step -1 
     If IsError(Cells(1, i).Value) Then Columns(i).Delete 
    Next 

End Sub