VBA实现嵌套Select Case按工作表分支分配变量值的方法

• 嵌套Select Case的判断条件：直接使用外层循环持有的当前工作表对象ws.Name即可，不需要寻找其他特殊判断值。
• 是否可以复用Select Case ws.Name作为嵌套判断条件：完全可以，不需要额外定义专用中间变量。ws是外层For Each循环的循环变量，在整个循环块的作用域内全程有效，嵌套结构中可直接访问。
• 是否需要额外添加For Each循环：完全不需要。外层已经有遍历所有目标工作表的循环逻辑，额外加循环只会造成逻辑冗余、导致分析过程重复执行。

• 变量赋值漏加引号：原代码中variable1 = A这类写法，若A是字符串值需要写为variable1 = "A"，否则VBA会将A识别为未定义的常量/隐式变量，触发运行错误。
• 字符串闭合错误：原代码中variable3 = "Batman'前后引号类型不匹配、未正确闭合，会直接触发语法报错。
• 调用语法错误：原代码写的Call sub analyze(...)是无效写法，Call关键字后直接跟过程名即可，不需要额外加sub标识。
• 冗余操作：原代码中的ws.Activate、重复嵌套的With ws完全没必要，VBA直接引用工作表对象操作即可，不需要激活工作表。
• 分支匹配错误：原代码中Case "Sheet 3"带了多余空格，和实际工作表名Sheet3不匹配，会直接漏过这个分支的配置。
• 未定义变量风险：原代码中variable4 = X里的X没有提前定义常量/变量，会触发隐式类型的运行错误，建议提前明确X的取值与类型。

Dim ws As Worksheet
Dim variable1, variable2, variable3, variable4

' 遍历所有工作表，可按需限定遍历范围减少无关表的匹配
For Each ws In Worksheets
    ' 第一级分支：先匹配共享同组基础变量的工作表集合
    Select Case ws.Name
        Case "Sheet1", "Sheet2"
            ' 给两个表共享的公共变量赋值
            variable1 = "A"
            variable2 = "B"
            ' 第二级嵌套：直接复用ws.Name做细分判断，不需要额外变量
            Select Case ws.Name
                Case "Sheet1"
                    variable3 = "Toast"
                    variable4 = 14578
                Case "Sheet2"
                    variable3 = "Batman"
                    variable4 = "4/27/1982"
            End Select
            ' 统一调用分析过程，不需要每个分支重复写调用语句
            Call analyze(variable1, variable2, variable3, variable4)
        
        Case "Sheet3"
            ' 独立配置的工作表直接赋值即可
            variable1 = 47
            variable2 = "Triangle"
            variable3 = "Robin"
            variable4 = X ' 请提前定义X的常量取值，避免隐式变量报错
            Call analyze(variable1, variable2, variable3, variable4)
    End Select
Next

如果后续新增工作表数量较多、多表共享变量的分组变复杂，可将公共变量赋值逻辑和独立变量配置逻辑解耦，减少多层嵌套深度，同时避免重复编写调用analyze过程的代码，降低后续维护成本。

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