VBA显示隐藏工作表代码：编辑器运行正常，按钮触发切换工作表问题

问题场景 #

我制作了一个简化示例来展示问题：

• Sheet1的A、B列存有数据，C列部分行记录了隐藏工作表的名称；
• 编写的VBA代码需实现：将C列复制到F列、去除重复值、将F列中记录的隐藏工作表设置为可见。

异常表现 #

• 从VBA编辑器运行代码：功能正常，且始终停留在Sheet1；
• 通过按钮触发运行：功能正常，但会激活Sheet2，希望执行完代码后始终停留在Sheet1；
• 特殊现象：首次通过按钮运行会激活Sheet2，再次运行则正常；若重新隐藏工作表后首次运行按钮，仍会激活Sheet2。

原代码 #

Sub showSheets()
Dim LastRowC As Integer
Dim ListOne As Range
Dim LastRowF As Integer
Dim ListTwo As Range
Dim ListThree As Range
Dim Cell As Range
Dim LastRowFF As Integer

LastRowC = Cells(Rows.Count, "C").End(xlUp).Row
Set ReCategorizationList = Range(Cells(2, "C"), Cells(LastRowC, "C"))

ReCategorizationList.Copy Range("F2")

LastRowF = Cells(Rows.Count, "F").End(xlUp).Row
Set ListTwo = Range(Cells(2, "F"), Cells(LastRowF, "F"))

ListTwo.RemoveDuplicates Columns:=1, Header:=xlNo

LastRowFF = Cells(Rows.Count, "F").End(xlUp).Row
Set ListThree = Range(Cells(2, "F"), Cells(LastRowFF, "F"))

    For Each Cell In ListThree
        If Cell.Value > 0 Then
            Sheets(Cell.Value).Visible = True
        End If
    Next
        
End Sub

问题原因 #

1. 代码中Cells、Range等方法未指定父工作表对象，默认会使用当前激活的工作表，可能导致操作对象混乱；
2. Excel默认会激活刚从隐藏状态设置为可见的工作表，这就是首次运行按钮时切换到Sheet2的直接原因。

修正后的代码 #

Sub showSheets()
Dim LastRowC As Integer
Dim ReCategorizationList As Range
Dim LastRowF As Integer
Dim ListTwo As Range
Dim ListThree As Range
Dim Cell As Range
Dim LastRowFF As Integer
Dim targetSheet As Worksheet

' 明确指定操作的工作表为Sheet1
Set targetSheet = ThisWorkbook.Sheets("Sheet1")

With targetSheet
    ' 获取C列最后一行行号
    LastRowC = .Cells(.Rows.Count, "C").End(xlUp).Row
    ' 定义C列数据范围
    Set ReCategorizationList = .Range(.Cells(2, "C"), .Cells(LastRowC, "C"))
    
    ' 复制到F列
    ReCategorizationList.Copy .Range("F2")
    
    ' 获取F列复制后的最后一行行号
    LastRowF = .Cells(.Rows.Count, "F").End(xlUp).Row
    Set ListTwo = .Range(.Cells(2, "F"), .Cells(LastRowF, "F"))
    
    ' 去除重复值
    ListTwo.RemoveDuplicates Columns:=1, Header:=xlNo
    
    ' 获取去重后F列的最后一行行号
    LastRowFF = .Cells(.Rows.Count, "F").End(xlUp).Row
    Set ListThree = .Range(.Cells(2, "F"), .Cells(LastRowFF, "F"))
End With

' 遍历F列，设置工作表可见，不自动激活
For Each Cell In ListThree
    If Cell.Value <> "" Then ' 修正判断条件，避免非工作表名称的数值干扰
        ' 设置可见时禁止自动激活该工作表（Excel 2013+支持Activate参数）
        ThisWorkbook.Sheets(Cell.Value).Visible = xlSheetVisible
    End If
Next

' 强制激活Sheet1，确保停留在当前工作表
targetSheet.Activate
End Sub

关键改动说明 #

1. 明确指定父工作表：用targetSheet变量绑定Sheet1，所有单元格和范围操作都通过With targetSheet实现，避免依赖激活状态；
2. 禁止自动激活可见工作表：设置工作表可见时，通过后续手动激活Sheet1覆盖Excel默认激活行为（Excel 2013+可直接在设置可见时添加Activate:=False参数）；
3. 修正判断条件：把原代码的Cell.Value > 0改为Cell.Value <> ""，避免非工作表名称的数值导致错误；
4. 强制激活Sheet1：代码末尾手动激活Sheet1，确保执行完成后停留在目标工作表。

内容的提问来源于stack exchange，提问作者Francisco Augusto Varela Aguir