Excel隐藏/取消隐藏列VBA代码仅单步执行或单独运行时生效

你的宏出现这种情况，核心是两个关键问题导致的：

1. 未明确指定操作的工作表 #

代码中Cells、Columns这类对象没有绑定具体工作表，直接运行宏时，Excel会默认操作当前激活的工作表，如果不是WIP表，就会导致代码看似“无反应”。而单步执行时，你大概率手动选中了WIP表，所以操作生效。

2. 模块级变量被跨过程修改 #

lastColumn、iColumn是模块级变量，UnhideAllColumns执行时会修改它们的值，直接运行宏时，两个Sub快速执行，变量值的变化会干扰HideSpecificColumnsCAM的循环逻辑；单步执行时因为速度慢，变量值的变化不会影响后续流程。

修改后的完整代码 #

Option Explicit

Sub HideSpecificColumnsCAM()
    ' 声明过程级变量，避免跨过程污染
    Dim iColumn As Long
    Dim lastColumn As Long
    Dim i As Long
    Dim hdr As String
    Dim columnsToHide() As Variant
    Dim ws As Worksheet
    
    ' 明确指定要操作的工作表
    Set ws = ThisWorkbook.Worksheets("WIP")
    
    UnhideAllColumns ws
   
    columnsToHide = Array("Part Number", "Description")

    lastColumn = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column

    For iColumn = 1 To lastColumn
        For i = LBound(columnsToHide) To UBound(columnsToHide)
            hdr = columnsToHide(i)
            If ws.Cells(1, iColumn).Value = hdr Then
                ws.Cells(1, iColumn).EntireColumn.Hidden = True
                Exit For
            End If
        Next i
    Next iColumn
End Sub

Sub UnhideAllColumns(ws As Worksheet)
    ' 简化取消隐藏逻辑，无需逐个列循环
    ws.Columns.Hidden = False
End Sub

关键修改点说明 #

• 给UnhideAllColumns添加工作表参数，确保始终操作指定的WIP表，不再依赖激活状态
• 所有单元格/列操作都绑定到ws对象，消除操作目标的歧义
• 将模块级变量移到HideSpecificColumnsCAM内部作为过程级变量，避免跨过程的变量值干扰
• 简化取消列隐藏的逻辑，直接使用ws.Columns.Hidden = False，比循环更高效且不易出错

内容的提问来源于stack exchange，提问作者Luke Kirby