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

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

1 个答案: