实现多表合并

湘西农民

chxw68 发表于 2014-4-3 21:15

若有51列数据，1-3行是表头，4行开始是数据，怎么改代码啊？

湘西农民

dajiahaoxinku12 发表于 2014-4-3 22:11
Sub 求和()
    ReDim brr(1 To 10000, 1 To 16)
    ReDim crr(1 To 10000, 1 To 16)

若有51列数据，1-3行是表头，4行开始是数据，怎么改代码啊？

cbtaja

湘西农民 发表于 2014-4-4 22:03
若有51列数据，1-3行是表头，4行开始是数据，怎么改代码啊？

按7楼代码，作简化而得，并修正合并依据为姓名、部门的双条件。可根据情况修改代码中前3句的数值。 Const bths = 4 '表头行数

1. Const bths = 4 '表头行数
   
2. Const btls = 4 '表头列数
   
3. Const bgzls = 16 '表格总列数
   
4. Sub 求和()
   
5. ReDim brr(1 To 10000, 1 To bgzls)
   
6. Set d = CreateObject("scripting.dictionary")
   
7. For Each sht In Worksheets
   
8. If sht.Name <> "汇总" Then
   
9. i = sht.Range("b65536").End(3).Row
   
10. arr = sht.[a1].Offset(bths, 0).Resize(i - bths, bgzls)
    
11. For y = 1 To UBound(arr)
    
12. If d.Exists(arr(y, 2) & arr(y, 4)) Then
    
13. Z = d(arr(y, 2) & arr(y, 4))
    
14. For p = btls + 1 To bgzls
    
15. brr(Z, p) = brr(Z, p) + arr(y, p)
    
16. Next
    
17. Else
    
18. m = m + 1
    
19. d(arr(y, 2) & arr(y, 4)) = m
    
20. brr(m, 1) = m
    
21. For p = 2 To bgzls
    
22. brr(m, p) = arr(y, p)
    
23. Next
    
24. End If
    
25. Next
    
26. End If
    
27. Next
    
28. Me.UsedRange.Offset(bths, 0).Clear
    
29. With [a1].Offset(bths, 0).Resize(m, bgzls)
    
30. .Value = brr
    
31. .Borders.LineStyle = xlContinuous
    
32. End With
    
33. End Sub
    

复制代码

cbtaja

这个是上面代码对应的附件： 工资表.rar (17.57 KB, 下载次数: 158)

2014-4-5 20:02 上传

点击文件名下载附件

湘西农民

cbtaja 发表于 2014-4-5 18:45
按7楼代码，作简化而得，并修正合并依据为姓名、部门的双条件。可根据情况修改代码中前3句的数值。 Con ...

你好，能不能把每条语句什么意思写一下，便于我们这些新手学习

湘西农民

cbtaja 发表于 2014-4-5 20:02
这个是上面代码对应的附件：

我适当修改了一下，我从第四行开始是数据，总共51列，运行出现无效ME关键字

cbtaja

湘西农民 发表于 2014-4-11 22:10
我适当修改了一下，我从第四行开始是数据，总共51列，运行出现无效ME关键字

你要是不懂怎么改，就把一个模拟表格发上来（其中的人名用AAA1、AAA2、AAA3之类的代替，模拟10来人的数据即可），关键是与你实际表格的格式要保持相同。

湘西农民

cbtaja 发表于 2014-4-11 22:24
你要是不懂怎么改，就把一个模拟表格发上来（其中的人名用AAA1、AAA2、AAA3之类的代替，模拟10来人的数 ...

发来了，你看看 我增加四列 和一行

湘西农民

坐等你的修改信息

cbtaja

湘西农民 发表于 2014-4-11 22:39
坐等你的修改信息

只需改一个字——把代码中第一句的4改成5即可：
Const bths = 4 '表头行数
改成：
Const bths = 5 '表头行数