ワークブック内の2つのワークシート以外のすべてにヘッダーをコピーする

Question

私はVBAにはとても新しく、レコーダーを使用しています。セールスマンごとに新しいシートを作成するマクロを作成しました。

ワークブック内の2つのワークシートを除くすべてのワークシートにコピーするには、結合データのフォーマットが必要です。私は「PipelineReport」&「生データ」を除くすべてのシートに貼り付けることができますどのように

Sub Headings() 
    'Headings Macro 
    Sheets("PipelineReport").Select 
    Range("B2:N2").Select 
    Selection.Copy 

**？

Answer 1

コードはこのようになります。

Sub test() 
    Dim Ws As Worksheet 
    Dim vDB 
    vDB = Sheets("PipelineReport").Range("b2").Resize(1, 14) 
    For Each Ws In Worksheets 
     If Ws.Name = "PipelineReport" Or Ws.Name = "Raw Data" Then 
     Else 
      Ws.Range("b2").Resize(1, 14) = vDB 
     End If 
    Next Ws 
End Sub 

または

Sub test() 
    Dim Ws As Worksheet 
    Dim rngDB As Range 
    Set rngDB = Sheets("PipelineReport").Range("b2").Resize(1, 14) 
    For Each Ws In Worksheets 
     If Ws.Name = "PipelineReport" Or Ws.Name = "Raw Data" Then 
     Else 
      rngDB.Copy Ws.Range("b2") 
     End If 
    Next Ws 
End Sub