将单元格范围的公式复制到其他工作表中的相同范围

我想弄清楚如何将一系列单元格的公式复制到所有其他或选定的工作表。

例如，我想将Sheet1.A9：B250的公式复制到所有其他图纸（SheetX.A9：B250）

我尝试了以下，但它似乎很漂亮

Sub CopyAll() Dim sht As Worksheet Sheets("Albert").Range("A9:B250").Formula.Copy For Each sht In Worksheets sht.Range("A9:B250").Formula.PasteSpecial xlPasteValues Next Application.CutCopyMode = False End Sub 

有没有一个优雅的解决scheme呢？ 先谢谢你

Answer 1

为什么不绕过复制和粘贴在一起？ 这应该做的工作

 Sheets("Sheet1").Range("A9:B250").Formula = Sheets("Sheet2").Range("A9:B250").Formula 

你的代码看起来像…

 Sub CopyAll() Dim sht As Worksheet For Each sht In Worksheets sht.Range("A9:B250").Formula = Sheets("Albert").Range("A9:B250").Formula Next End Sub 

Answer 2

使用公式的Copy >> Paste ，可以使用以下解决scheme：

 '..... Sheets("Albert").Range("A9:B250").Copy '..... sht.Range("A9:B250").PasteSpecial xlPasteFormulas '.....