更新时间:2022-12-11 23:30:40
根据您发布的代码,您可能想要这样的东西:
Based on the code you posted, you probably want something like this:
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