打开EXCEL,按ALT+F11菜单 插入 模块,粘贴如下代码,按F5 Sub 按钮1_Click() Dim i As Integer, x As Integer, y As Integer For i = 1 To 10 Sheets.Add after:=Sheets(Sheets.Count) For x = 1 To 10 ActiveSheet.Range("A" & x) = Sheets("sheet1").Range("A" & (y + 11) - 10) y = y + 1 Next x Next i End Sub