excel快速创建多个表

发布网友发布时间：2022-02-25 02:19

共3个回答

热心网友时间：2022-02-25 03:48

试试这个代码

Sub 插入工作表()
For i = 1 To 5 '插入5个，如果是500个，则改为500，不知道你每个表格中要什么数据，因此，这里只插入表格，不带数据。
    s = Cells(i, 1) & Cells(i, 2)
    Set shta = Sheets.Add
  ActiveSheet.Name = s
Next i
End Sub

热心网友时间：2022-02-25 05:06

插入数据透视表，将城市字段拖入”报表筛选“栏中

点击工具栏选项-选项-显示报表筛选页

追问这样只能分页，无法创建多个xls文件

热心网友时间：2022-02-25 06:41

建EXCEL可以用VBA，里面的数据没办法，除非你有数据追问vba如何编写

追答Sub 新建工作簿()
Dim gzb As Workbook
i =1
while cells(i,1)""
Set gzb = Workbooks.Add
gzb.SaveAs "d:\"&cells(i,1)&cells(i,2)&".xls"
Set gzb = Nothing
i=i+1
End Sub

试试，看看能生成么？
生成的路径在D盘根目录下，也可以自己改

首页

文章

excel快速创建多个表