Question

excel里如何一次性批量添加表格?

。

Answer 1

操作步骤

1、打开Excel表格，按“Alt+F11”打开“Microsoft Visual Basic”点击“插入”→“模块”。

2、复制下列代码粘贴到“模块”中，粘贴完成后关闭“模块窗口”和“Microsoft Visual Basic”窗口。

Sub 宏1()

For i = 1 To 50

Selection.EntireRow.Insert

ActiveCell.Offset(2, 0).Range("A1").Select

Next i

End Sub

3、回到Excel表格中点击菜单栏“工具”→“宏(M)”→“宏(M)”如图红框所示。

4、选择“宏1”在点击“执行”即可。

5、用“宏”执行后的Excel表格已在内容中插入多列行。

Answer 2

工具－选项－常规，修改“新工作簿内的工作表数”为需要的数值。
然后退出EXCEL，再打开。
另一种方法是。在工作表标签上选中所有工作表，先选择Sheet1，然后按住Shift键单击Sheet4，然后再按住Ctrl键，用鼠标赂右拖。如此操作几次即可。

Answer 3

Public Sub AddSheet()
Dim num$, i
num = InputBox("请输入需要添加工作表的数量：")
If num = "" Or Not (IsNumeric(num)) Then Exit Sub
For i = 1 To num * 1
Worksheets.Add after:=Sheets(Sheets.Count)
Next
End Sub
--------
按ALT + F11打开代码窗口，将上面的代码复制入其中，按F5运行

Answer 4

你把制作好的表格选成工作组，然后按住ctrl拖动标签，可以一次增加工作个数的表格，
如需要更多，可以把刚加的表格又选成工作组，添加的速度更快