VBA实现多表头内容筛选

一、源表展示:

 二、代码部分:   

Sub mian（）

    Dim select_datacol As Double, row_i As Double

    Dim select_myarray, select_datacol_1%, col_j As Double

    '获取表的最大行数和列数

    row_a = ActiveSheet.UsedRange.Rows.count

    col_a = ActiveSheet.UsedRange.Columns.count

    Debug.Print col_a

    '选择要筛选的行数

    select_datacol = InputBox("请输入要筛选的列数")

    '将row_i赋值为表中的行数

    For row_i = row_a To 1 Step -1

        If Cells(row_i, select_datacol).Value = "发展中" Or Cells(row_i, select_datacol).Value = "开拓中" Then

            '删除行

            Rows(row_i).Delete

        End If

    Next

    select_myarray = Array("序号", "类型", "分组", "测试1", "测试2", "测试9", "测试4", "测试3", "测试11")

    '将col_j赋值为表中的列数

    For col_j = col_a To 1 Step -1

        If UBound(Filter(select_myarray, Cells(1, col_j), False, 1)) = UBound(select_myarray) Then

            Columns(col_j).Delete

            'MsgBox Cells(1, col_j).Value

      End If

    Next

    End Sub

三、结果呈现: