vba - 删除除具有某些标题的列之外的所有列

Question

我正在尝试格式化导出的数据，并且需要删除几列。我想保留带有某些标题的列。为了方便起见，如果我有 15 列并希望保留具有以下标题的列；

状态城市姓名客户产品展示

我担心的是，我正在导出的数据可能会发生变化，并且将来可能会添加列。我希望能够过滤掉不需要的列并只保留上述列。

编辑:我正在使用 Excel，以前从未编写过一行代码。曾经。

Answer 1

试试这个。

以相反的顺序迭代列，检查 Select Case 中的标题，然后根据需要删除。

Sub deleteIrrelevantColumns()
    Dim currentColumn As Integer
    Dim columnHeading As String

    ActiveSheet.Columns("L").Delete

    For currentColumn = ActiveSheet.UsedRange.Columns.Count To 1 Step -1

        columnHeading = ActiveSheet.UsedRange.Cells(1, currentColumn).Value

        'CHECK WHETHER TO KEEP THE COLUMN
        Select Case columnHeading
            Case "State", "City", "Name", "Client", "Product"
                'Do nothing
            Case Else
                'Delete if the cell doesn't contain "Homer"
                If Instr(1, _
                   ActiveSheet.UsedRange.Cells(1, currentColumn).Value, _
                   "Homer",vbBinaryCompare) = 0 Then

                    ActiveSheet.Columns(currentColumn).Delete

                End If
        End Select
    Next

End Sub