汇总不同工作表资料-每张工作表明细人数不一样, 顺序不一样

elaine_lee

opiona 发表于 2020-1-15 11:15
http://club.excelhome.net/thread-1409141-1-1.html

谢谢前辈
获得知识了

elaine_lee

koala219 发表于 2020-1-14 16:56
Sub KaoQinJiSuan()
Dim Arr, K, i, Brr(1 To 1000000, 1 To 17), K0, m, n
K0 = 0

前辈

能否再请教?
因[汇总表]表格是累计12个月的员工考勤的工作表, 而每一个月的人数有增有减,
[汇总表]中的累计笔数因12张工作表内的人员自动往下递增资料列数,
就我原先的附檔中, 的制式表格来说, 它在最下面有着TOTAL的统计数字,
请问在VBA程序, 是否只能需以清单明细数据显示, 无法加上它在最后笔数的资料下方做统计?
若是需要在这样的做法做, 是否只能再自行加统计上去?
无法在最后一笔数据的下一列, 因为在每新增一月统计汇总资料时, 做自动统计数字吗?

elaine_lee

koala219 发表于 2020-1-14 16:56
Sub KaoQinJiSuan()
Dim Arr, K, i, Brr(1 To 1000000, 1 To 17), K0, m, n
K0 = 0

koala219先进
这是一个很棒的作品, 非常感谢您的帮忙.
但求能否再加上批注, 让后辈们增加vba语法用意上的理解?
感谢了

elaine_lee

y1983y 发表于 2020-1-15 11:18
已上传修改

感谢前辈先进, 已解缩出来了, 真是好作品

elaine_lee

koala219 发表于 2020-1-14 16:56
Sub KaoQinJiSuan()
Dim Arr, K, i, Brr(1 To 1000000, 1 To 17), K0, m, n
K0 = 0

前辈, 请教问题
因为以员工编号为主, 将进行12个月的各种假别汇总到汇总表(即汇总表工作表的E栏至R栏
程序计算到9月份时就发生问题.
请问是因为9月份后的工作表产生格式问题导致的吗?

For i = 1 To K
   Crr(i, 1) = i
   Crr(i, 2) = Cells(i + 2, 2)
   For n = 1 To UBound(Brr, 1)
   If Crr(i, 2) = Brr(n, 1) Then
   Crr(i, 3) = Brr(n, 2)
   Crr(i, 4) = Brr(n, 3)
     For m = 4 To 17
     Crr(i, m + 1) = Crr(i, m + 1) + Brr(n, m)
     Next m
    End If
   Next n
Next i

15803191982

各位大神，请帮我看一下写的程序。具体思路利用数组和字典去重汇总，但执行过程中总是报错。谢谢大家！

Sub test()
Dim i, j, k, m, arr(1 To 10000, 1 To 19), brr, d
Set d = CreateObject("scripting.dictionary")
For i = 2 To Worksheets.Count
brr = Sheets(i).Range("a3:s" & [a65536].End(xlUp).Row)
    For j = 1 To UBound(brr)
        If d.exists(brr(j, 3)) Then
            For k = 5 To 19
            arr(j, k) = brr(j, k) + arr(j, k)
            Next
        Else
        m = m + 1
        d(brr(j, 3)) = j
            For k = 1 To 19
            arr(m, k) = brr(j, k)
            Next
        End If
    Next
Next
Sheets("汇总表").Range("a3").Resize(UBound(arr), 19) = arr
End Sub