VBA excel從工作表中復制公式並將其粘貼到多個工作表中

Question

VBA擅長從工作表復制公式並將其粘貼到工作表數組中。 例如，我要從工作表Data！C4：CX204復制數據並將其粘貼到工作表Test1：Test50。 來自Test1：Test50的工作表將緊接彼此。 我當時想我可以命名一個單元格Test1和另一個Test 50，並鏈接到那些單元格，以使陣列更靈活。

Sub Button4_Click() 
Dim WS_Count As Integer 
Dim I As Integer 

WS_Count = ActiveWorkbook.Worksheets.Count 

Dim Source As Range 
Set Source = ThisWorkbook.Worksheets(1).Range("C10") 

' Begin the loop. 
For I = 1 To WS_Count 
    ThisWorkbook.worksheets(i).Select ' just select the sheet 
    Source.Copy Range("C11:C300").Select 
    ActiveSheet.Paste 
Next I 

End Sub

Answer 1

根據您發布的代碼，您可能想要這樣的東西：

Sub Button4_Click()
Dim src As Range, sel As Range
Dim i as long

Set sel = Selection
Set src = ActiveWorkbook.Sheets("Data").Range("C10")

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

For i = 1 to 50
    src.Copy ActiveWorkbook.Sheets("Test" & i).Range("C11:C300")
Next i

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

Application.Goto sel, False

End Sub

Answer 2

這是你想要的？ 可以將i = 1更改為工作表數量。 復制/粘貼的第二部分是目的地。

Sub Button4_Click()
Dim I As Integer

' Begin the loop.
For I = 1 To ActiveWorkbook.Worksheets.Count - 1
Worksheets(1).Range("C11:C300").Copy Worksheets("Test" & I).Range("C11:C300")
Next I

End Sub