根据列标题中的错误删除所有列？

Question

我使用索引匹配或hlookup来确保我只获得我想要的某个文件的列。无论我无法匹配，我都需要删除。什么是最有效的VBA脚本删除＆＃34;＃N / A＆＃34;的所有列标题？

Answer 1

将Range.SpecialCells method与xlCellType xlCellTypeFormulas 一起使用，并为XlSpecialCellsValue常量指定 xlErrors 。

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