excel中如何根据数据及模版批量生成多个工作簿

2024年11月16日 08:33

有5个网友回答

网友（1）：

举个例子：选中Sheet1，按住Shift键，点Sheet3，右键插入，就可以一次性插入你选中的三个工作表，你一次性选中几个表来插入就可以一次性插入几个表或者不用右键插入直接拖也可以，像楼上说的，但要注意步骤比增加一个的要复杂一点：选中Sheet1，按住Shift键，点Sheet3，放开Shift键，再次点击Sheet1，按住Ctrl键向右拖即可。

网友（2）：

仅供参考

Sub 拆分()
Dim arr
Dim wb As Workbook
Dim ws As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set ws = ThisWorkbook.Worksheets("PCR模板")
With Worksheets("数据源")
r = .Cells(.Rows.Count, 2).End(xlUp).Row
arr = .Range("a2:n" & r)
End With
For i = 1 To UBound(arr)
With ws
.Range("c2,c3,e3,g3,c6:g7,b11:g14,L11:m14,p11:Q14").ClearContents
.Range("c2") = arr(i, 14)
.Range("c3") = arr(i, 7)
.Range("e3") = arr(i, 11)
.Range("g3") = arr(i, 13)
.Range("c6") = arr(i, 3)
.Range("c7") = arr(i, 2)
.Range("b11") = arr(i, 4)
.Range("L11") = arr(i, 9)
.Range("p11") = arr(i, 10)
Set wb = Workbooks.Add
With wb
ws.Copy after:=.Worksheets(.Worksheets.Count)
.Worksheets("sheet1").Delete
.SaveAs Filename:=ThisWorkbook.Path & "\拆分信息" & arr(i, 14)
.Close False
End With
End With
Next
Application.ScreenUpdating = True
MsgBox "数据拆分完毕！"
End Sub

网友（3）：

这要用vba进行编程计算的，你可以上某宝找店铺来做
做好后，一个按钮就能出结果，非常好使
搜索关键字“表格自动生成”就有很多

网友（4）：

Excel中有个筛选功能，每项都做筛选，就可以要到你要求的了。

网友（5）：

word邮件合并吧，天生就是做这个的功能，你百度经验里看看例子就会了。