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

elaine_lee

工作表名称:

汇总表  (将每一个的工作表考勤明细(即108-01~108-12工作表), 目的要将同员工编号的假别统计在汇总表的各个假别栏名)

108-01 ~ 108-12 (是每个月的考勤明细)

问题:

1.  12个月的表的人数不一样，顺序不一样，有重名的, 也有新加的员工编号与人名

2.. 因此我利用公式的名称管理员, 将每一张工作表的员工考勤明细, 做为将在汇总表的各假种别栏名, 欲做统计各个明细表中的, 因人数及顺序不一, 有重名的, 有新增人员名称的, 做为它的统计来源范围

3. 如果用以定义公式名称理员将每张工作表, 处理工作表数据明细不能一致(以解决每张工作表的列数, 行数不一, 以及人员编号不能一致性)

3 要怎么用以VBA程序写法将108-01 ~ 108-12 , 12个考勤工作表, 汇总到汇总表中的各个假种别栏名的统计?

(用函数耗费资源太大)

y1983y

有重名，你以哪个关键字汇总呢？员工编号吗？

koala219

Sub KaoQinJiSuan()
Dim Arr, K, i, Brr(1 To 1000000, 1 To 17), K0, m, n
K0 = 0
For i = 2 To Sheets.Count
Arr = Sheets(i).Range("b3:r" & Sheets(i).[b65536].End(3).Row)

K = UBound(Arr, 1)
'ReDim Brr(1 To UBound(Arr, 1), 1 To 17)
  For n = 1 To K
    For m = 1 To 17
      Brr(n + K0, m) = Arr(n, m)
    Next m
  Next n
K0 = K0 + K
Erase Arr
Next i
     Set d = CreateObject("Scripting.Dictionary")
     For i = 1 To UBound(Brr)
       If d(Brr(i, 1)) = "" Then d(Brr(i, 1)) = Brr(i, 1)
     Next i
K = d.Count
[b3].Resize(K, 1) = Application.Transpose(d.KEYS)
Set d = Nothing
Dim Crr(1 To 10000, 1 To 18)

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

[a3:r61].ClearContents
[a3].Resize(K, 18) = Crr

End Sub

y1983y

应该是你要的结果

y1983y

是要这样的结果吧！正确给好评啊！

已重新上传

elaine_lee

y1983y 发表于 2020-1-15 09:18
是要这样的结果吧！正确给好评啊！

解压档好像有问题,
能否再传上?

opiona

http://club.excelhome.net/thread-1409141-1-1.html

y1983y

elaine_lee 发表于 2020-1-15 11:14
解压档好像有问题,
能否再传上?

已上传修改

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

谢谢前辈指教,
后辈及感谢, 认真学习

elaine_lee

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

谢谢前辈
开档还是有格式损毁状态