vba - Excel 宏修改(或者可能是 VBA)以更新最后包含的工作表

Question

情况
尝试将包含公式的单元格范围从名为“Sheet1”的工作表复制到其他工作表的其余部分，我发现我可以执行“跨工作表填充”。它工作得很好，所以我的下一步是录制一个宏，以使其更高效并且工作得也很好。
问题
问题是当我包含一个新工作表并运行宏时，宏不会考虑新工作表，因此最后一个工作表不会得到更新。
我在下面包含宏创建的代码。在其中我可以看到它只包括我现在在工作簿中的工作表，所以这是我需要帮助的地方。
(我的 excel 是西类牙语，所以当您阅读 Ctrl+Mayus+Q 时，Mayus 表示 Shiftkey )
帮助
我需要的是一种修改此宏的方法，因此当它运行时它将检查并更新所有工作表。或者，也许是因为宏无法做到这一点，我可能需要 VBA 代码？如果这个 VBA 是解决它的方法，你能帮我解决这个问题吗？
我感谢所有帮助
谢谢
哈维尔

Sub Macro2()
'
' Macro2 Macro
'
' Acceso directo: Ctrl+Mayús+Q
'
    Range("A5:D12").Select
    Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4")).Select
    Sheets("Sheet1").Activate
    ActiveWindow.SelectedSheets.FillAcrossSheets Range:=Selection, 
Type:=xlAll
    Sheets("Sheet1").Select
End Sub

Answer 1

这是一种解决方法，涉及您希望所有工作表的第一个工作表的值在 A5:D12 范围内。 :

Sub TestMe()

    Dim ws As Worksheet
    Dim selAddress As String
    selAddress = "A5:D12"

    For Each ws In Worksheets
        'ws.Range(selAddress).Value2 = Worksheets(1).Range(selAddress).Value2
        ws.Range(selAddress).Formula = Worksheets(1).Range(selAddress).Formula
    Next ws

 End Sub

见 How to avoid using Select in Excel VBA .