Excel VBA删除一致导出图纸中的列

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

给你！您还可以将其制作成允许您键入列的表单。不过我会让你自己弄明白的

代码如下：

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

---

如果你愿意，我会把表格寄出去的

太好了，正是我需要的。谢谢你的快速回复！可能重复的