Excel下拉选择复制模板工作表并重命名，隐藏工作表异常求助

问题根源 #

1. 未限定Range的所属工作表，默认使用活动工作表，导致后续赋值操作错误
2. 依赖ActiveSheet操作新复制的工作表：当工作簿最后一个工作表为隐藏状态时，新复制的工作表会被置于隐藏工作表之后并自动隐藏，此时ActiveSheet仍为触发事件的原工作表，最终错误地重命名了原工作表，新工作表则以默认名称（如Roof Top Unit (2)）隐藏存在

修改后的VBA代码 #

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    ' 仅当修改的是G7单元格时执行逻辑
    If Not Intersect(Target, Sh.Range("G7")) Is Nothing Then
        Select Case Sh.Range("G7").Value
            Case "Rooftop Unit"
                Dim Newname As String
                Newname = InputBox("PLEASE ENTER EQUIPMENT NUMBER")
                If Newname <> "" Then
                    Dim newSheet As Worksheet
                    ' 复制模板工作表到所有工作表最后
                    Sheets("Roof Top Unit").Copy After:=Sheets(Sheets.Count)
                    ' 将新复制的工作表赋值给变量，避免依赖ActiveSheet
                    Set newSheet = ActiveSheet
                    ' 重命名新工作表
                    newSheet.Name = Newname
                    ' 给新工作表的指定单元格赋值
                    newSheet.Range("B11").Value = Newname
                    ' 可选：确保新工作表可见
                    newSheet.Visible = xlSheetVisible
                End If
        End Select
    End If
End Sub

关键修改说明 #

• 新增Intersect判断，仅在修改G7单元格时触发逻辑，避免无关操作误触发
• 使用变量newSheet绑定新复制的工作表，直接通过变量操作，彻底避免ActiveSheet带来的不确定性
• 所有Range操作均显式指定所属工作表，消除歧义
• 可选添加newSheet.Visible = xlSheetVisible，确保新工作表默认可见（根据实际需求调整）

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