汇总工资表

1lanyf

各位大侠，请问怎么汇总这几张表呢？谢谢

jsgj2023

1. Sub 合并多工作簿()
   
2.     Dim MyPath$, MyFile$, Wb As Workbook, x&, k&, y1&, y&
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     MyPath = ThisWorkbook.Path & "\分表"
   
6.     MyFile = Dir(MyPath & "\*.*")
   
7.     ThisWorkbook.Sheets("多工作簿合并").Cells = ""
   
8.     Do
   
9.        Workbooks.Open Filename:=MyPath & "" & MyFile
   
10.        Set Wb = ActiveWorkbook
    
11.        With Wb
    
12.             For x = 1 To .Sheets.Count
    
13.                 k = k + 1
    
14.                 If k = 1 Then
    
15.                     .Sheets(x).Range("A1").CurrentRegion.Copy
    
16.                     ThisWorkbook.Sheets("多工作簿合并").Range("a1").PasteSpecial xlPasteAll
    
17.                     y1 = ThisWorkbook.Sheets("多工作簿合并").Cells(Rows.Count, 2).End(xlUp).Row
    
18.                 Else
    
19.                      y = ThisWorkbook.Sheets("多工作簿合并").Cells(Rows.Count, 2).End(xlUp).Row
    
20.                       .Sheets(x).Range("A1").CurrentRegion.Offset(3, 0).Copy
    
21.                       ThisWorkbook.Sheets("多工作簿合并").Range("a" & y + 1).PasteSpecial xlPasteAll
    
22.                     y1 = ThisWorkbook.Sheets("多工作簿合并").Cells(Rows.Count, 2).End(xlUp).Row
    
23.                 End If
    
24.             Next x
    
25.             .Close
    
26.        End With
    
27.     MyFile = Dir
    
28.     Loop While MyFile <> ""
    
29.     ThisWorkbook.Sheets("多工作簿合并").Cells.EntireColumn.AutoFit
    
30.     Application.DisplayAlerts = True
    
31.     Application.ScreenUpdating = True
    
32. End Sub

复制代码

jsgj2023

详见附件，看看是否帮到你？

1lanyf

jsgj2023 发表于 2016-5-30 14:56
详见附件，看看是否帮到你？

太强了，可以汇总吗？ 也就是说3个表，A的工资合计到一行，B的也一样，可以吗？ 谢谢还有您2楼的公式可以设置成通用的吗，只要我将那些需要合并的文件放到一个文件夹，在外面新建一个表，只要运行VBA,它就可以自动汇总，可以吗？excel设置是不是有要求？ 谢谢风雪

jsgj2023

2楼的代码是通用的，按你说的步骤做就可以自动汇总。你是说要分类汇总吗？

1lanyf

jsgj2023 发表于 2016-5-30 16:45
2楼的代码是通用的，按你说的步骤做就可以自动汇总。你是说要分类汇总吗？

对呢，是分类汇总呢，2楼代码 是不是要将明细表放到一个文件夹，然后将汇总表放在明细表文件夹外面的文件夹里面呢？ 然后执行语句，就可以自动汇总了吗? 我拿另外几个表做了下测试，提示行数不够，是不是对明细表有要求行数呢？ 谢谢

jsgj2023

1lanyf 发表于 2016-5-31 08:05
对呢，是分类汇总呢，2楼代码 是不是要将明细表放到一个文件夹，然后将汇总表放在明细表文件夹外面的文件 ...

是的。你传附件看看。

1lanyf

就是这个表，如何将每个人的汇总到一张表里面，可以吗？也就是说每个人每个月都汇总到一张表里面，这样就知道每个人这几个月每项的汇总数，谢谢

1lanyf

jsgj2023 发表于 2016-5-30 14:52

http://club.excelhome.net/thread-1355803-1-1.html
可以指导下吗？谢谢

xiaoxiaojing338

jsgj2023 发表于 2016-5-30 14:52

复制代码去哪里？、不懂