如何遍历工作簿各工作表列，仅保留指定列其余隐藏？

原代码核心问题 #

• 未指定工作表对象：循环For Each ws时，内部的ActiveSheet、Cells、Columns未绑定当前遍历的ws，导致所有操作仅作用于当前激活的工作表，而非每个工作表。
• 合并单元格取值错误：合并单元格仅左上角单元格存储值，直接取Cells(2, currentColumn).Value会让合并区域内其他单元格返回空值，无法匹配目标字符串。
• 列范围依赖ActiveSheet：ActiveSheet.UsedRange.Columns.Count未关联当前工作表，导致列数判断错误。

修正后的代码 #

Sub hideColumns()
    Dim ws As Worksheet
    Dim currentColumn As Integer
    Dim cellValue As String
    
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    
    For Each ws In ActiveWorkbook.Worksheets
        For currentColumn = ws.UsedRange.Columns.Count To 1 Step -1
            ' 处理合并单元格，获取正确值
            With ws.Cells(2, currentColumn)
                If .MergeCells Then
                    cellValue = .MergeArea.Cells(1, 1).Value
                Else
                    cellValue = .Value
                End If
            End With
            
            ' 去除首尾空格，避免格式干扰
            cellValue = Trim(cellValue)
            
            Select Case cellValue
                Case "Employee", "Non Billable", "FTO", "Total"
                    ws.Columns(currentColumn).EntireColumn.Hidden = False
                Case Else
                    ws.Columns(currentColumn).EntireColumn.Hidden = True
            End Select
        Next currentColumn
    Next ws
    
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

关键修改说明 #

• 绑定工作表对象：所有单元格、列操作均通过ws调用（如ws.Cells、ws.Columns），确保操作作用在当前遍历的工作表上。
• 合并单元格处理：通过MergeCells判断单元格是否合并，合并时取合并区域左上角的值，保证取值准确。
• 去除空格干扰：用Trim()处理单元格值，避免因内容前后空格导致匹配失败。
• 列范围修正：使用ws.UsedRange.Columns.Count获取当前工作表的已用列数，避免依赖激活表的错误。

内容的提问来源于stack exchange，提问作者Mecca Miles