如何将汇总工资表利用vba拆分成姓名命名的一个工作簿

chxw68

下午刚写了个类似的。

格轩

chxw68 发表于 2019-2-12 22:38
下午刚写了个类似的。

非常感谢，谢谢！

AFree123

chxw68 发表于 2019-2-12 22:37

请教老师：这一句代码
Set d(arr(i, 1)) = Union(d(arr(i, 1)), .Cells(i, 1).Resize(1, c))
是什么意思？可否解释一下，谢谢！

carlostevez1984

microyip 发表于 2019-2-11 17:35
论坛里有很多类似案例可以参考，尤其朱荣兴版主刚在除夕才发出几个样板代码，多去论坛搜索、学习，不要伸手 ...

严重支持你  这个帖子的内容  我都下载了好多代码 拿来学习  

AFree123

chis3 发表于 2019-2-11 17:57
Sub test()
    Dim arr
    Dim brr

请教老师：这几句什么意思，帮忙解释一下，谢谢！
  If Not dic.exists(arr(i, 5)) Then
             Set dic(arr(i, 5)) = Cells(i, 1).Resize(1, 44)
         Else
             Set dic(arr(i, 5)) = Union(dic(arr(i, 5)), Cells(i, 1).Resize(1, 44))

chis3

AFree123 发表于 2019-2-22 17:41
请教老师：这几句什么意思，帮忙解释一下，谢谢！
  If Not dic.exists(arr(i, 5)) Then
              ...

  If Not dic.exists(arr(i, 5)) Then   <<< 如果字典沒有 arr(i,5)
             Set dic(arr(i, 5)) = Cells(i, 1).Resize(1, 44)  <<<arr(i,5) 放入字典,它的item是  Cells(i, 1).Resize(1, 44)
         Else <<<否則
             Set dic(arr(i, 5)) = Union(dic(arr(i, 5)), Cells(i, 1).Resize(1, 44)) <<< arr(i,5)字典已有,把它的item變成 結合原有的cell