VBA删除一致导出的工作表中的列

Question

我想知道是否有一些简单的代码行允许我遍历电子表格并且只保留带有某些标题的列。我想在一个宏中运行代码，该宏运行在我每天导出的导出的csv上。我知道这是可能的，只是不确定循环是如何工作的。

Answer 1

你走了！您还可以将其转换为允许您键入列的表单。我会让你自己解决这个问题。

这是代码：

Dim currentColumn As Integer
Dim columnHeading As String

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 "header1name", "header2name", "header3name"
            'The columns with these headers will be kept
        Case Else
                ActiveSheet.Columns(currentColumn).Delete
    End Select
Next

如果您愿意，我会发布表格！