数式のブロックをすべてのシートにコピーする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