將單元格範圍的公式複製到其他工作表中的相同範圍

我想知道如何將一系列單元格的公式複製到所有其他或選定的工作表。將單元格範圍的公式複製到其他工作表中的相同範圍

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

是有一個優雅的解決方案呢？預先感謝您

來源

2015-06-10 user2857795

要將所有其他工作簿或所有其他工作表？你的代碼似乎是處理表單的，如果你想複製到所有其他工作簿，你需要一些代碼來決定哪些工作簿應該包含在內。 – eirikdaude

表，抱歉的混淆 – user2857795

爲什麼不繞過複製和粘貼在一起？這應該做的工作

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

來源

2015-06-10 12:24:51 99moorem

當公式您可以採用如下方案的Copy >> Paste工作：

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

來源

2015-06-10 12:29:56

將單元格範圍的公式複製到其他工作表中的相同範圍

回答

相關問題