跪求：如何在总表中根据姓名汇总各个分表的总分

playboy80

在工作中遇到一个问题，希望高手能帮忙解答！
我希望在总表中根据员工姓名汇总各个分表的员工业绩总分，一年12月12张表一个一个统计比较麻烦，而且可能每个月的员工不固定，怎样才能在年末时汇总成一张总表统计业绩分数，具体举例如下：
表1-1月                         表2-2月                                          表3-汇总        
姓名        业绩分数          姓名        业绩分数                      姓名        业绩分数
赵大            80                赵大        94                                赵大        ？
钱二            95                钱二        90                                钱二        ？
孙三            93                李四        89                                孙三        ？
                                                                                          李四        ？
P.rar (18.02 KB, 下载次数: 24)

2015-1-10 21:53 上传

点击文件名下载附件
例子

gi5ban19

Sub 按钮1_单击()
   Dim myPath$, myFile$, AK As Workbook, aRow%, tRow%, i As Integer
   Application.ScreenUpdating = False        '冻结屏幕，以防屏幕抖动
   myPath = ThisWorkbook.Path & "\分表\"          '把文件路径定义给变量
   
   myFile = Dir(myPath & "*.xls")            '依次找寻指定路径中的*.xls文件
   Do While myFile <> ""                     '当指定路径中有文件时进行循环
      If myFile <> ThisWorkbook.Name Then
         Set AK = Workbooks.Open(myPath & myFile)          '打开符合要求的文件
          For i = 1 To AK.Sheets.Count
         aRow = AK.Sheets(i).Range("a65536").End(xlUp).Row
         tRow = ThisWorkbook.Sheets(1).Range("a65536").End(xlUp).Row + 1

            'AK.Sheets(i).Select
         AK.Sheets(i).Range("a2:k" & aRow).Copy ThisWorkbook.Sheets(1).Range("a" & tRow)
         Next
         Workbooks(myFile).Close False               '关闭源工作簿,并不作修改
      End If
      myFile = Dir                                   '找寻下一个*.xls文件
   Loop
      
   Application.ScreenUpdating = True                 '冻结屏幕,此类语句一般成对使用
   MsgBox "汇总完成，请查看！", 64, "提示"


End Sub

mjjsum

使用合并计算，当数据增加时，在汇总表 A1，再点击 合并计算按钮  即可

playboy80

gi5ban19 发表于 2015-1-10 22:33
Sub 按钮1_单击()
   Dim myPath$, myFile$, AK As Workbook, aRow%, tRow%, i As Integer
   Applicatio ...

能帮忙在附件中做好吗？我VBA不懂，万分感谢！

playboy80

mjjsum 发表于 2015-1-10 22:42
使用合并计算，当数据增加时，在汇总表 A1，再点击 合并计算按钮  即可

这个的确可以，不过每次都要去合并计算一个，能自动更新吗？比如我在2月的表里改动了，打开汇总就是更新完的数据了。

gi5ban19

playboy80 发表于 2015-1-11 11:35
能帮忙在附件中做好吗？我VBA不懂，万分感谢！

参考下……

mjjsum

playboy80 发表于 2015-1-11 11:36
这个的确可以，不过每次都要去合并计算一个，能自动更新吗？比如我在2月的表里改动了，打开汇总就是更新完 ...

这个仿佛没有自动更新

playboy80

gi5ban19 发表于 2015-1-11 11:47
参考下……

谢谢！看来这个比较复杂。

夜伊

自动更新的话。。应该可以。。总表用VLOOKUP就可以了。。之后再合并计算一下就可以了。。

夜伊

总表数据可以自动更新汇总了。。