Question

我试图弄清楚如何将一系列细胞的公式复制到所有其他或选定的图纸。

例如，我想将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

这有一个优雅的解决方案吗？提前谢谢

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时，您可以使用以下解决方案：

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

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

2 个答案: