将公式块复制到所有工作表Excel VBA

Question

我有一本包含许多（可变总数）工作表的工作簿，这些工作表都有相同的列标题和可变的行数。 在主表（“ Sheet1”）上，我需要复制大量公式并将其格式化到所有其他表。 这些工作表已经具有唯一的标题，因此无法将其用于工作表编号。

我知道对公式进行硬编码比较容易，但这是另一天的主要任务（这是非常非常多的公式）。

我基本上必须将完全独立的工作簿中的公式块复制并粘贴到“ Sheet1”中，然后从中复制它。 这是我到目前为止的内容：

Windows("Step Formula Base.xlsx").Activate
Columns("AK:BP").Select
Application.CutCopyMode = False
Selection.Copy
Windows("NA - Sourcing - HR-IT-SLS Candidate Data %28All Candidates%29.xlsx"). _
    Activate
 Range("AK1").Select
 ActiveSheet.Paste
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")
Sheets.FillAcrossSheets_
    ws.Range ("AK:BP")

我不太了解FillAcrossSheets-认为这是一个简单的解决方法，但在该行上会中断。 有什么想法或帮助吗？

谢谢！

Answer 1

这是工作代码：

Windows("Step Formula Base.xlsx").Activate
Columns("AK:BP").Select
Application.CutCopyMode = False
Selection.Copy
Windows("NA - Sourcing - HR-IT-SLS Candidate Data %28All Candidates%29.xlsx"). _
    Activate
 Sheets.Select
 Range("AK1").Select
 ActiveSheet.Paste