如何用VBA遍历工作簿所有工作表批量设置内容与格式

你的循环代码没有给Range操作指定所属工作表，VBA默认会将未指定父对象的Range、ActiveCell指向当前活动工作表，最终效果是循环全程只修改运行代码时处于激活状态的那一张表，其余工作表不会有任何改动。另外代码中冗余的Select选中单元格、CutCopyMode清空剪贴板操作完全没必要，还会拖慢批量操作的运行速度。

Sub 批量设置所有工作表格式()
    Dim ws As Worksheet
    ' 关闭屏幕刷新，大幅提升上百个表的批量操作速度
    Application.ScreenUpdating = False
    For Each ws In ThisWorkbook.Worksheets
        ' 直接通过循环变量ws指定操作对象，无需选中单元格
        ws.Range("A1").Value = "Balance Sheet"
        ws.Range("Q1").Value = "Cash Flow"
        
        ' 后续要加其他统一格式，直接带ws.前缀即可，示例：
        ' ws.Range("A1:Q1").Font.Bold = True ' 表头行加粗
        ' ws.Range("A1:Q100").Borders.LineStyle = xlContinuous ' 加边框
        ' ws.Columns("A:Q").AutoFit ' 自动适配列宽
    Next ws
    Application.ScreenUpdating = True
End Sub

• 遍历工作表做批量操作时，所有单元格、行列操作都要加ws.前缀，明确绑定到当前循环到的工作表，不要依赖Select、ActiveCell这类和当前激活表绑定的写法，稳定性差、运行效率低
• 如果需要跳过个别不需要修改的工作表，可以在循环内加判断，例如If ws.Name <> "汇总说明" Then，把要跳过的表排除在操作逻辑外
• 工作表数量较多时，除了关闭屏幕刷新，还可以搭配Application.Calculation = xlCalculationManual临时把公式改成手动计算，操作完再改回自动计算，进一步提升运行速度

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