如何批量对除summary外的多个工作表同时运行多个VBA过程

• 遍历工作表的循环中未指定操作对象：你写的所有子过程如果没有显式指定工作表，默认只会操作当前激活的活动表，循环遍历ws变量只是读取了工作表属性，没有让后续过程作用到ws上，跨表操作找不到对应对象就会触发各类不固定报错。
• 调用逻辑缺失：你在runAll里只调用了Formatting单个过程，你列出的包含DeleteDetails/addSummary等步骤的完整流程是写在oracleCogsUniversal过程里的，runAll根本没有触发完整流程，运行逻辑本身就不完整。
• 子过程嵌套调用本身不会导致报错，只要操作对象明确就可以正常运行。

Option Explicit
Sub runAll()
    Dim ws As Worksheet
    ' 关闭屏幕刷新，提升运行速度、避免表切换闪烁
    Application.ScreenUpdating = False
    For Each ws In ThisWorkbook.Worksheets
        ' 用小写匹配表名，避免大小写不一致导致的匹配失效
        If LCase(ws.Name) <> "summary" Then
            ws.Activate ' 激活当前循环到的工作表，让后续无明确指定对象的操作作用于该表
            Call oracleCogsUniversal ' 调用完整处理流程，不要只调用单个Formatting
        End If
    Next ws
    Application.ScreenUpdating = True
    MsgBox "处理完成"
End Sub

上面的写法依赖Activate激活工作表，如果过程里有其他跳转激活表的操作，还是容易出问题。最稳妥的写法是把工作表对象作为参数传递给所有子过程，全程不依赖活动表：

1. 给所有子过程增加工作表类型的入参，所有操作前都显式绑定传入的工作表对象，示例：

   Sub Formatting(ws As Worksheet)
       ' 所有范围操作前都加ws. 明确指定操作的表
       ws.UsedRange.Font.Name = "等线"
       ws.Columns.AutoFit
   End Sub
   
   Sub DeleteDetails(ws As Worksheet)
       ws.Rows("1:3").Delete
   End Sub
   ' 其余addSummary/pasteID/moveUp/formatFile过程都按这个逻辑修改
   

2. 修改oracleCogsUniversal过程，接收传入的工作表参数并透传给所有子过程：

   Sub oracleCogsUniversal(ws As Worksheet)
       Call Formatting(ws)
       Call DeleteDetails(ws)
       Call addSummary(ws)
       Call pasteID(ws)
       Call moveUp(ws)
       Call formatFile(ws)
   End Sub
   

3. 此时runAll里不需要再激活工作表，直接传参即可：

   Sub runAll()
       Dim ws As Worksheet
       Application.ScreenUpdating = False
       For Each ws In ThisWorkbook.Worksheets
           If LCase(ws.Name) <> "summary" Then
               Call oracleCogsUniversal(ws)
           End If
       Next ws
       Application.ScreenUpdating = True
   End Sub
   

注意：如果子过程里本身就有操作其他固定工作表（比如summary表）的代码，不要给这部分代码加ws前缀，保留原有表引用即可。

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