如何用VBA在Excel中隐藏非column_names指定的列？

方法一：VBA脚本（适合每日重复操作） #

这个脚本会自动读取column_names工作表第一行的所有列名，然后在数据源工作表中隐藏不在列表里的列，适合每日批量处理。

1. 打开目标Excel文件，按下Alt + F11打开VBA编辑器
2. 右键点击左侧的工作簿名称，选择「插入」→「模块」
3. 将以下代码粘贴到模块窗口，根据实际情况修改数据源工作表名称：

Sub HideUnwantedColumns()
    Dim wsSource As Worksheet
    Dim wsKeep As Worksheet
    Dim keepCols As Collection
    Dim cell As Range
    Dim col As Range
    
    ' 替换成你的数据源工作表名称
    Set wsSource = ThisWorkbook.Worksheets("数据源")
    Set wsKeep = ThisWorkbook.Worksheets("column_names")
    Set keepCols = New Collection
    
    ' 把需保留的列名存入集合（忽略大小写、自动去重）
    On Error Resume Next
    For Each cell In wsKeep.Range("A1", wsKeep.Cells(1, wsKeep.Columns.Count).End(xlToLeft))
        keepCols.Add UCase(cell.Value), Key:=UCase(cell.Value)
    Next cell
    On Error GoTo 0
    
    ' 遍历数据源列，隐藏无关列
    For Each col In wsSource.UsedRange.Columns
        On Error Resume Next
        keepCols(UCase(col.Cells(1, 1).Value))
        If Err.Number <> 0 Then
            col.Hidden = True ' 不在保留列表则隐藏
        Else
            col.Hidden = False ' 在列表则确保显示
        End If
        On Error GoTo 0
    Next col
End Sub

4. 按下F5运行脚本，或者回到Excel界面，点击「开发工具」→「宏」选择HideUnwantedColumns执行

方法二：手动操作（适合偶尔处理） #

如果不想用VBA，可以用公式标记后批量隐藏：

• 在数据源工作表第一行最右侧插入新列，比如Z1，输入公式：=COUNTIF(column_names!$1:$1,A1)
• 把公式向右填充到所有列的第一行，返回0的列就是需要隐藏的列
• 选中第一行，按下Ctrl + F，查找内容输入0，点击「查找全部」
• 按住Ctrl键选中所有查找结果对应的单元格，右键点击列标题，选择「隐藏」

内容的提问来源于stack exchange，提问作者yitzhak chocron