修改Excel宏/VBA 实现跨表填充时自动包含新增工作表

你的问题很典型——原宏硬编码了固定的工作表列表，所以新增工作表后自然不会被纳入更新范围。咱们直接修改代码，让它自动检测并覆盖工作簿里的所有工作表，不用再手动维护表名列表。

修改后的VBA代码 #

Sub FillAllSheets()
' 
' FillAllSheets Macro
' 自动将Sheet1的A5:D12区域（含公式）填充到所有工作表
' 快捷键: Ctrl+Shift+Q
' 
    Dim sourceRange As Range
    ' 定义要复制的源区域（Sheet1的A5:D12），避免使用Select提升效率
    Set sourceRange = ThisWorkbook.Sheets("Sheet1").Range("A5:D12")
    
    ' 对工作簿中所有工作表执行跨表填充
    ThisWorkbook.Sheets.FillAcrossSheets _
        Range:=sourceRange, _
        Type:=xlAll
    
    ' 回到Sheet1，保持和原宏一致的收尾
    ThisWorkbook.Sheets("Sheet1").Activate
End Sub

代码说明 #

• 去掉了原代码里的Select操作：VBA里尽量避免使用Select/Activate，不仅运行效率更高，还能减少因选中对象变化导致的错误
• 用ThisWorkbook.Sheets替代固定数组：直接获取当前工作簿的所有工作表，不管后续新增多少表，都会自动被包含进来
• 明确指定源区域：直接从Sheet1获取要复制的区域，逻辑更清晰

为什么原宏失效？ #

原宏里的Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4"))是固定的工作表名称数组，新增工作表后不会自动加入这个数组，所以运行宏时新表不会被更新。修改后的代码完全规避了这个问题，动态获取所有工作表。

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