Vba Excel封面页，用于填充整个工作簿中的单元格

我正在尝试为excel工作簿创建封面，用户将填充这些单元格，然后宏将它们粘贴到工作簿中的所有工作表中

封面页要求在D列和I列的单元格中提供信息，这些信息可能在整个工作簿中都很常见。我正在努力使填写这本工作簿更快更容易

---

我对Excel VBA有基本的了解，但需要帮助才能编写此代码，谢谢。

您的代码使用类似的代码

Sub Main
  Dim cellsToCopy As Range
  Dim shtNames as Variant, shtName As Variant

  Set cellsToCopy = Worksheets("CoverSheet").Range("D5, D11, I3, I12") '<--| change both "CoverSheet" name and its cells address list to fit your needs

  shtNames = Array("firstSheet", "secondSheet", "thirdSheet") '<--| change sheets names to paste cellsToCopy values into

  For Each shtName in shtNames
     Worksheets(shtName).Range(cellsToCopy.Address).Value = cellsToCopy.Value
  Next shtName

End Sub

Sub-Main
暗室镜检范围
Dim shtNames作为变体，shtName作为变体
设置cellsToCopy=工作表（“封面”）。范围（“D5、D11、I3、I12”）非常广泛。如果您对Excel VBA有基本的了解，您肯定已经为此任务编写了一些代码了？听起来好像你只需要在纸上循环并填充一些单元格。输入数据的用户表单也可以是一种解决方案（取决于输入的数据）。很抱歉，内容太宽泛了。我从该网站获得的唯一代码，如
Set targetRange=newSheet。[A1]
ActiveWorkbook.Sheets（1）.Range（“A1:Q1”）.Copy targetRange
，因此我了解如何在活动工作表上进行复制，但我不确定如何跨多个可能不活动的工作表进行复制。您说您知道如何使用
活动工作表
，但不知道如何引用其他工作表，但您的示例包含对工作表的多个引用（不必处于活动状态）<代码>工作表（1）

和

新闻表

用于指定特定工作表上的范围，而

活动工作表

根本不使用..？我更关注的是，如果可以在不需要特定参考的情况下进行复制，工作表的标题会发生变化，因此

新闻表

名称会变得不正确。我希望一次抄写3到4张工作表，使用不同的名称，这些工作表已经存在于工作簿中。