我刚接到的一个统计任务，任务量很大，想用录制宏或函数的方法解决

我叫鲁滨逊

涉及两个表，一个是作为数据源表，即第二个表里的数据是根据第一个表里的值计算得来，每个表里的每个sheet是一个人名，我尝试录制宏，可是如何让它自动找对应的标签操作啊？

香冷月寒

天啦，为什么每一个人一个表单呢？
如果你们公司上千人，你表不知道多大啊！


怎样建立基础表是exce好的运用的基本！！

sunya_0529

就事论事，用VBA做了一个，在”数据源表“中插入一个模块，添加如下代码，然后运行”创建统计表“这个宏就好了。

1. Sub 创建统计表()
   
2. Application.ScreenUpdating = False
   
3. Dim wbk As Workbook, wstDB As Worksheet, wstRT As Worksheet, i%
   
4. Set wbk = Workbooks.Add
   
5. For Each wstDB In ThisWorkbook.Worksheets
   
6.   Set wstRT = wbk.Worksheets.Add
   
7.   wstRT.Name = wstDB.Name
   
8.   With wstRT
   
9.     .[A1] = "单位名称: xxxxxxxx公司"
   
10.     .[E1] = "姓名："
    
11.     .[F1] = .Name
    
12.     .[H1] = "员工编码："
    
13.     .[K1] = "统计年度"
    
14.     .[L1] = "2011年"
    
15.     .[A2] = "项目月份"
    
16.     For i = 1 To 12
    
17.       .Cells(2, i + 1) = i & "月"
    
18.     Next
    
19.     .[N2] = "合计"
    
20.     .[A3] = "基本工资"
    
21.     .[A4] = "津贴和补贴"
    
22.     .[A5] = "各种奖金"
    
23.     .[A6] = "加班工资"
    
24.     .[A7] = "其他"
    
25.     .[A8] = "合计"
    
26.     .[A9] = "上年度月平均工资(元)"
    
27.     .[B9] = "=ROUND(N8/12,2)"
    
28.     .[D9] = "本年度月缴费基数(元)"
    
29.     .[H9] = "本年度月缴费比例(%)"
    
30.     .[K9] = "本年度月缴费额(元)"
    
31.     .[N3:N7].FormulaR1C1 = "=SUM(RC[-12]:RC[-1])"
    
32.     .[B8:N8].FormulaR1C1 = "=SUM(R[-5]C:R[-1]C)"
    
33.     wstDB.[B2:B13].Copy '基本工资
    
34.     .[B3].PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, True
    
35.     wstDB.[C2:C13].Copy '基本工资
    
36.     .[B3].PasteSpecial xlPasteValues, xlPasteSpecialOperationAdd, False, True
    
37.     wstDB.[D2:D13].Copy '津贴和补贴
    
38.     .[B4].PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, True
    
39.     wstDB.[E2:E13].Copy '津贴和补贴
    
40.     .[B4].PasteSpecial xlPasteValues, xlPasteSpecialOperationAdd, False, True
    
41.     wstDB.[F2:F13].Copy '各种奖金
    
42.     .[B5].PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, True
    
43.     wstDB.[G2:G13].Copy '各种奖金
    
44.     .[B5].PasteSpecial xlPasteValues, xlPasteSpecialOperationAdd, False, True
    
45.     wstDB.[H2:H13].Copy '各种奖金
    
46.     .[B5].PasteSpecial xlPasteValues, xlPasteSpecialOperationAdd, False, True
    
47.     wstDB.[I2:I13].Copy '加班工资
    
48.     .[B6].PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, True
    
49.     wstDB.[J2:J13].Copy '其他
    
50.     .[B7].PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, True
    
51.   End With
    
52. Next
    
53. 
    
54. wbk.SaveAs Filename:=ThisWorkbook.Path & "\统计表-" & Format(Now, "yyyymmddhhmmss"), FileFormat:=xlExcel5
    
55. wbk.Close
    
56. Set wbk = Nothing
    
57. Set wstDB = Nothing
    
58. Set wstRT = Nothing
    
59. Application.CutCopyMode = False
    
60. Application.ScreenUpdating = True
    
61. End Sub

复制代码

sunya_0529

香冷月寒 发表于 2012-2-22 15:22
天啦，为什么每一个人一个表单呢？
如果你们公司上千人，你表不知道多大啊！

说得没错，如果楼主的数据源表是一份规范的数据清单格式的话，使用SQL查询，不代代码可以简洁好多，而且运行效率也要高很多。

上面的这段宏，处理90个表的话，估计需要一点时间的。

香冷月寒

你可以看看，这个也是多工作簿的多工作表汇总的

http://club.excelhome.net/thread-829023-1-1.html