網友提供的 Sub AutoCopy()Application.ScreenUpdating = FalseFor i = 1 To 30Sheets("Sheet1").Copy After:=Sheets(Sheets.Count)ActiveSheet.
確定! 回上一頁