Excel VBA中用IF THEN动态选择名称可变工作表的方法

关键方案：通用工作表查找函数 + 对象化引用 #

针对工作表名不稳定（如Page1/Page1_2）的情况，不要用零散的IF语句，而是写一个通用查找函数，在宏开头一次性定位目标工作表，后续全程通过对象引用操作，既避免报错，又提升代码稳定性。

1. 添加通用查找函数 #

在VBA模块的最顶部（宏代码之外）添加这个函数，用来匹配所有以Page1开头的工作表：

Function GetTargetPageSheet() As Worksheet
    Dim ws As Worksheet
    '遍历所有工作表，匹配名称以"Page1"开头的
    For Each ws In ThisWorkbook.Sheets
        If ws.Name Like "Page1*" Then
            Set GetTargetPageSheet = ws
            Exit Function '找到第一个匹配的就返回
        End If
    Next ws
    '如果没找到，返回Nothing并提示
    MsgBox "未找到目标工作表（以Page1开头）", vbExclamation
    Set GetTargetPageSheet = Nothing
End Function

2. 改造你的宏代码 #

在宏开头获取目标工作表对象，之后所有操作直接用该对象，完全避免使用Select/Activate（这是VBA新手常见的低效易错写法）：

Sub YourMacroName()
    Dim targetWS As Worksheet
    Dim i As Integer
    
    '1. 开头获取目标工作表，找不到就退出
    Set targetWS = GetTargetPageSheet()
    If targetWS Is Nothing Then Exit Sub
    
    '2. 冻结窗格（直接操作原工作表，无需Select）
    With targetWS
        .Range("A2").Select
        .ActiveWindow.SmallScroll Down:=-6
        .ActiveWindow.FreezePanes = True
    End With
    
    '3. 批量添加10个工作表（用循环替代重复代码）
    For i = 1 To 10
        ThisWorkbook.Sheets.Add After:=ActiveSheet
    Next i
    
    '4. 重命名Sheet1（加错误处理防止Sheet1不存在）
    On Error Resume Next
    ThisWorkbook.Sheets("Sheet1").Name = "Non-var Cr sects have Cr Hr"
    On Error GoTo 0
    
    '5. 对目标工作表设置自动筛选（直接复用之前获取的对象）
    With targetWS
        .Range("$A$1:$AL$12286").AutoFilter Field:=18, _
            Criteria1:="=None", Operator:=xlOr, Criteria2:="=OR"
    End With
End Sub

3. 为什么放在宏开头？ #

• 只需要查找一次目标工作表，全程复用对象，比每次引用都判断更高效
• 代码逻辑更清晰，所有动态引用的地方都统一用同一个对象，避免重复判断

额外提示 #

• 尽量避免使用Select/Activate，直接通过工作表对象操作单元格/功能，能大幅减少宏的报错概率
• 如果需要匹配更精确的规则（比如只允许Page1或Page1_2），可以把Like "Page1*"改成ws.Name = "Page1" Or ws.Name = "Page1_2"

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