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

VBA擅长从工作表复制公式并粘贴到工作表数组。 作为一个例子，我想从工作表Data！C4：CX204复制数据并粘贴到工作表Test1：Test50。 Test1：Test50的工作表将会一个接一个。 我想我可以命名一个单元格Test1和另一个testing50并链接到这些单元格，以使arrays更加灵活。

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