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

1 回答

• 1

  你编码使用这样的东西

  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
  

  回复于 2024-04-19T10:48:54+08:00