关于工资表合并的问题（求助）

meajc4u

1-12月的工资表，想合并一个总数，上面写了公式，但是计算的时候反应特别慢，现在想改成宏计算，请教怎么实现。
我直接用了里面写的公式到vb里面但是一直报错

AVEL

EH(AVEL)-年度工资汇总工具 12-07-11 06-20.rar (28.32 KB, 下载次数: 76)

2012-7-11 06:20 上传

点击文件名下载附件

AVEL

1. Option Explicit
   
2. 
   
3. Sub l()
   
4.     Dim d As Object
   
5.     Dim arr As Variant
   
6.     Dim i As Integer
   
7.     Dim j As Integer
   
8.     Dim n As Integer
   
9.     Dim k As Integer
   
10.     Dim r As Integer
    
11.     Dim jg(1 To 10000, 1 To 23)
    
12.     Set d = CreateObject("Scripting.Dictionary")
    
13.     arr = Sheet2.Range("b3:b" & Sheet2.[b65536].End(3).Row).Value
    
14.     'For i = 1 To UBound(arr)
    
15.     '    d(arr(i, 1)) = i
    
16.     'Next
    
17.     For i = 3 To 14
    
18.         arr = Sheets(i).Range("b5:y" & Sheets(i).[b65536].End(3).Row).Value
    
19.         For j = 1 To UBound(arr)
    
20.             If arr(j, 1) <> "姓名" And Len(arr(j, 1)) Then
    
21.                 If Not d.exists(arr(j, 1)) Then
    
22.                     n = n + 1
    
23.                     d(arr(j, 1)) = n
    
24.                     For k = 2 To UBound(arr, 2)
    
25.                         jg(n, k - 1) = arr(j, k)
    
26.                     Next
    
27.                 Else
    
28.                     r = d(arr(j, 1))
    
29.                     For k = 2 To UBound(arr, 2)
    
30.                         jg(r, k - 1) = jg(r, k - 1) + arr(j, k)
    
31.                     Next
    
32.                 End If
    
33.             End If
    
34.         Next
    
35.     Next
    
36.     Sheet2.[b3:b6000].ClearContents
    
37.     Sheet2.[b3].Resize(n).Value = Application.Transpose(d.keys)
    
38.     Sheet2.[e3].Resize(n, 23).Value = jg
    
39.     Set d = Nothing
    
40. End Sub

复制代码

meajc4u

太感谢了，昨晚弄到1点，不行才发来求救的，各位大侠太厉害了。

meajc4u

AVEL 发表于 2012-7-11 06:20

我把1-12个月的工资放进去，合计出来不对啊，您再帮忙看一下，谢谢啦

AVEL

meajc4u 发表于 2012-7-11 11:25
我把1-12个月的工资放进去，合计出来不对啊，您再帮忙看一下，谢谢啦

上传具体附件。

anyewuzhe

AVEL 发表于 2012-7-11 06:20

太强大了

meajc4u

AVEL 发表于 2012-7-11 06:19

您好，我想问下这个汇总时要求所有月份的工资表结构一样吗？