如何在循环中使用工作表限定法动态访问编号工作表？

嘿，这个问题问得特别到位！你已经抓住了VBA里一个很重要的优化点——直接引用工作表对象确实比反复激活工作表高效太多，为你点赞👍

先纠正个小细节：你之前写的Dim 1 As Worksheet是不符合VBA语法的，变量名不能以数字开头哦，得改成类似Dim ws1 As Worksheet这样的命名才行。不过回到你的核心需求：当然可以用直接引用工作表对象的方式实现循环动态访问，完全不需要依赖激活操作，下面给你两种实用的写法：

方法1：将工作表对象存入数组，循环遍历数组 #

这种方式适合你需要多次复用这些工作表对象的场景，一次性把所有目标工作表存入数组后，后续循环直接调用数组里的对象即可：

Sub LoopWithWorksheetArray()
    Dim wsArr() As Worksheet
    Dim i As Integer
    Dim targetWsCount As Integer
    
    ' 先统计符合条件的数字命名工作表数量（可选，如果你只想处理数字命名的表）
    targetWsCount = 0
    For i = 1 To ThisWorkbook.Worksheets.Count
        If IsNumeric(ThisWorkbook.Worksheets(i).Name) Then
            targetWsCount = targetWsCount + 1
        End If
    Next i
    
    ' 重新定义数组大小
    ReDim wsArr(1 To targetWsCount)
    targetWsCount = 0 ' 重置计数器用来填充数组
    
    ' 把数字命名的工作表存入数组
    For i = 1 To ThisWorkbook.Worksheets.Count
        If IsNumeric(ThisWorkbook.Worksheets(i).Name) Then
            targetWsCount = targetWsCount + 1
            Set wsArr(targetWsCount) = ThisWorkbook.Worksheets(i)
            
            ' 在这里执行你的操作，比如读取B15的值
            Debug.Print "工作表" & wsArr(targetWsCount).Name & "的B15值：" & wsArr(targetWsCount).Range("B15").Value
        End If
    Next i
End Sub

方法2：循环内动态赋值工作表变量 #

如果不需要复用对象，直接在循环里每次给变量赋值对应的工作表对象就可以，写法更简洁：

Sub LoopWithDynamicWorksheetVar()
    Dim ws As Worksheet
    Dim i As Integer
    
    ' 循环遍历所有工作表，筛选数字命名的表
    For i = 1 To ThisWorkbook.Worksheets.Count
        ' 检查工作表名称是否为数字
        If IsNumeric(ThisWorkbook.Worksheets(i).Name) Then
            ' 将当前工作表对象赋值给变量ws
            Set ws = ThisWorkbook.Worksheets(CStr(i)) ' 这里用名称匹配，如果你确定工作表索引和名称一致，也可以用Worksheets(i)
            
            ' 执行你的业务操作，比如修改B15的值
            ws.Range("B15").Value = ws.Range("B15").Value + 1 ' 示例：给B15的值加1
        End If
    Next i
End Sub

为什么这种方式更快？ #

激活工作表（Worksheets(i).Activate）会触发Excel的屏幕刷新、上下文切换，反复执行会大幅拖慢代码速度；而直接引用工作表对象，相当于直接和目标工作表的数据区域交互，完全跳过了激活带来的额外开销，效率提升非常明显。

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