使用带通配符的指定表头通过VBA删除Excel列

要处理季度导出的近300列Excel数据，原有的VBA代码只能精确匹配固定表头，但XML导入的表头带随机数字后缀（比如HostID154），需要改成通配符匹配来保留指定前缀的列。

修改后的VBA代码 #

Sub DeleteColumns()
    Dim LastCol As Long
    Dim i As Long
    Dim headerText As String
    
    ' 自动获取表头行的最后一列，适配实际数据范围
    LastCol = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
    i = 1
    
    Do
        headerText = ActiveSheet.Cells(1, i).Value
        ' 用Like运算符实现通配符匹配，保留符合规则的列
        If headerText Like "Name" _
            Or headerText Like "HostID*" _
            Or headerText Like "Path" _
            Or headerText Like "ID*" Then
            i = i + 1 ' 保留该列，继续检查下一列
        Else
            ActiveSheet.Cells(1, i).EntireColumn.Delete
            LastCol = LastCol - 1 ' 删除列后，最后一列序号同步减少
            ' 不递增i，因为删除操作后下一列会自动移到当前位置
        End If
    Loop Until i > LastCol
End Sub

关键改动说明 #

• 替换原代码的Select Case精确匹配逻辑，改用Like运算符支持通配符：
  • HostID*：匹配所有以HostID开头的表头（不管后续带什么数字或字符）
  • ID*：同理匹配所有以ID开头的表头
• 优化最后一列的获取方式：用Cells(1, Columns.Count).End(xlToLeft).Column代替硬编码的A1:KZ1，自动适配实际数据的列数，避免遗漏或无效处理
• 新增headerText变量存储当前表头内容，让代码逻辑更清晰易读

内容的提问来源于stack exchange，提问作者Matt R.