[已解决]如何一次性生成多张内容相同的工作表

bbboooaaaiii

Sheet1:Sheet100 如何一次性生成,生成的工作表内容要与Sheet1完全相同，如同复制粘贴一样，有快捷键可操作吗？

[此贴子已经被作者于2010-4-26 9:38:46编辑过]

最佳答案

月排行榜 / 总排行榜

Zipall

2010-4-26 09:58

楼主似乎修改了原来的问题。

还是用vba

Sub test()
    For i = 2 To 100
        Sheets("sheet1").Copy after:=Sheets(i - 1)
        ActiveSheet.Name = "Sheet" & i
    Next
End Sub

跳转到最佳答案楼层

Zipall

如果不想按住SHIFT+F11等，可以用VBA生成。

Sub test()
    Sheets.Add Count:=100
End Sub

另外一种方法是在工具》选项》常规中设置新工作簿中的工作表数为100，然后新建一个工作簿。

htcaiwuke

按F4重复操作也可以，就是不能一次加100个。

hwsh1002

QUOTE:

以下是引用Zipall在2010-4-26 9:29:00的发言：

如果不想按住SHIFT+F11等，可以用VBA生成。

Sub test()
    Sheets.Add Count:=100
End Sub

另外一种方法是在工具》选项》常规中设置新工作簿中的工作表数为100，然后新建一个工作簿。

学习了

[em01]

Zipall

楼主似乎修改了原来的问题。

还是用vba

Sub test()
    For i = 2 To 100
        Sheets("sheet1").Copy after:=Sheets(i - 1)
        ActiveSheet.Name = "Sheet" & i
    Next
End Sub

bbboooaaaiii

不用VBA还有什么简单的操作方法，快捷方式操作有没有这个可能？

按住Shift同时选择多个工作表》编辑》移动或复制工作表》勾选“建立副本”》在“工作簿”栏选择复制去向位置》......

方法虽笨，生成的工作表却可以以几何级数成倍增加。

[此贴子已经被作者于2010-4-26 12:20:20编辑过]

爱学若渴

学习

爱学若渴

学习

古朴

学习

北极牛

学习了。