ExcelVBA基于多个表上的多个标题删除列-ExcelVBAtoRemoveColumnsBasedonMultipleHeadersonMultipleSheets

3  

dim a as long, w as long, vDELCOLs as variant, vCOLNDX as variant
vdelcols = array("status","Status Name","Status Processes")
with thisworkbook
    for w=1 to .worksheets.count
        with worksheets(w)
            for a=lbound(vdelcols) to ubound(vdelcols)
                vcolndx=application.match(vdelcols(a), .rows(1), 0)
                if not iserror(vcolndx) then
                    .columns(vcolndx).entirecolumn.delete
                end if
            next a
        end with
    next w
end with

You obviously have less columns to delete than columns that exist. Look for matches to the columns to delete rather than comparing every column to the delete list.

显然，要删除的列比存在的列少。查找要删除的列的匹配项，而不是将每列与删除列表进行比较。

This looks (case-insensitive) for the column names in row 1.

这看起来（不区分大小写）第1行中的列名称。

2  

I'd go like follows

我会像以下一样

Sub Main()
    Dim sh As Worksheet
    Dim i as Long

    For Each sh In ThisWorkbook.Sheets
        With sh.UsedRange
            For i = .columns.Count To 1 Step -1
                If InStr(1, LCase(.columns(i).cells(1)), "status") Then .columns(i).EntireColumn.Delete
            Next
        End With
    Next
End Sub

1  

You need to properly reference the sheet, easy using With and you can use LCase() to avoid case sensitivity :

您需要正确引用工作表，轻松使用With，您可以使用LCase（）来避免区分大小写：

Sub remove_columns()
    Dim wS As WorkSheet
    For Each wS in ThisWorkbook.Worksheets
        With wS
            For i = .Columns.Count To 1 Step -1
                If InStr(1, LCase(.Cells(1, i)), LCase("Status")) Then _
                    .Columns(i).EntireColumn.Delete
            Next i
        End With 'wS
    Next wS
End Sub