VBA excel从工作表复制公式并粘贴到多个工作表

Question

VBA excel 从工作表复制公式并粘贴到工作表数组。例如，我想从工作表 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

这是你想要的？ 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