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

Question

如何根据考勤数据 按照模板格式 按照部门的形式生产多个表最好用 VBA执行 部门很多

Answer 1

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

部门太多，拆分打印 用VBA好些 每个月都得打印

Answer 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

Answer 3

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

Answer 4

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

部门太多，拆分打印 用VBA好些 每个月都得打印

Answer 5

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