一个excel里有sheet1到sheet10，如何用宏来实现：点击按钮将sheet2到sheet

方法太笨 等巧方法 Sub 复制工作表() For i = 2 To 5 ThisWorkbook.Sheets("Sheet" & i).Copy Set bok = ActiveWorkbook bok.Sheets(1).Cells.Copy bok.Sheets(1).Cells.PasteSpecial Paste:=xlPasteValues bok.SaveAs ThisWorkbook.Path & &