用VBA吧，按alt+F11进入VBA界面，然后双击右边的sheet1，把以下代码放进去，相应的改动下面代码里面已经说了
Sub ts() For i = 1 To 100 '你要复制多少个表，这个100就改成多少Sheets("sheet1").Copy after:=Sheets(Sheets.Count) '要复制那个表，把括号里面sheet1换成你的工作表名Next iEnd Sub
