我有一个包含许多（可变总数）表的工作簿，这些工作表都具有相同的列 Headers 和可变行数 . 在主工作表（“Sheet1”）上有一大块公式，我需要将格式复制到所有其他工作表 . 这些工作表已经具有唯一的 Headers ，因此无法将其基于工作表编号 .
我知道对公式进行硬编码会更容易，但这是另一天的主要任务（这是非常非常多的公式） .
我基本上必须将公式块从一个完全独立的工作簿复制并粘贴到“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 - 认为这将是一个简单的修复，但它打破了那条线 . 有什么想法或帮助吗？
谢谢！
1 回答
这是工作代码：