将数据从一个工作表复制到同一工作簿中的所有其他工作表

Question

我在Sheets("Sheet1").Range("AH17:AO25")中有一个数据。

我需要将此数据（公式）复制到所有其他工作表 （Sheet2、Sheet3、Sheet4、...） 到此相同范围 Range.("AH17:AO25")工作簿。

Public Sub Copy_Data()

Sheets("Sheet1").Select
Range("AH17").Select
ActiveCell.FormulaR1C1 = "=RC[-27]/1000"
Range("AH17").Select
Selection.Copy
Range("AH17:AO25").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Sheets("Sheet1").Range("AH17:AO25").CopyDestination:_
  =wsheet.Ranges("AH17:AO25")

End Sub

Answer 1

请尝试下一个代码：

Public Sub Copy_Data_Bis()
  Dim sh As Worksheet, Sh1 As Worksheet
   Set Sh1 = Sheets("Sheet1")
   Sh1.Range("AH17:AO25").Formula = "=RC[-27]/1000"
   For Each sh In ActiveWorkbook.Worksheets
     If sh.Name <> Sh1.Name Then
        sh.Range("AH17:AO25").Formula = Sh1.Range("AH17:AO25").Formula
     End If
   Next
End Sub

代码不需要任何选择，复制粘贴应该很快...

将数据从一个工作表复制到同一工作簿中的所有其他工作表

Copy data from one worksheet to all other worksheets in same workbook

excel

vba

copy-paste