将标题复制到工作簿中除两个工作表之外的所有工作表

Question

我对VBA很新，并且一直在使用录音机。我创建了为每个销售人员创建新工作表的宏。

我需要将组合数据周的格式复制到工作簿中除2个工作表之外的所有工作表。

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

**如何粘贴到除“PipelineReport”之外的所有工作表＆amp; “原始数据”??

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