Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2157|回复: 7

[已解决]数据对比,请各位老师写个代码

[复制链接]
发表于 2015-11-22 23:33 | 显示全部楼层 |阅读模式
查找总店和分店里面是否有人员里面的那些人,如果有则在比对表中列出他们的销售情况,数据很多大概有一万多行,用公式可以比对但是运行起来非常慢,VBA我是小白,希望各位老师能帮帮忙写个代码。


最佳答案
2015-11-23 11:11
请看附件。

数据对比.rar

9.5 KB, 下载次数: 13

发表于 2015-11-23 11:10 | 显示全部楼层
  1. Sub 比对()
  2.     Dim Sh As Worksheet
  3.     arr = Sheets("人员").[a1].CurrentRegion
  4.     Set d = CreateObject("scripting.dictionary")
  5.     ReDim brr(1 To UBound(arr), 1 To 3)
  6.     brr(1, 1) = "人员"
  7.     For i = 2 To UBound(arr)   '要比对的人员
  8.         brr(i, 1) = arr(i, 1)
  9.         d(arr(i, 1)) = i
  10.     Next
  11.     For k = 1 To 2          '分表比对
  12.         Set Sh = Worksheets(k)
  13.         brr(1, k + 1) = Sh.Name
  14.         crr = Sh.[a1].CurrentRegion
  15.         For kk = 2 To UBound(crr)
  16.             p = d(crr(kk, 3))
  17.             If p > 0 Then           '分表人员需比对的
  18.                 If Len(brr(p, k + 1)) = 0 Then
  19.                     brr(p, k + 1) = crr(kk, 4)
  20.                 ElseIf InStr(brr(p, k + 1), crr(kk, 4)) = 0 Then
  21.                     brr(p, k + 1) = brr(p, k + 1) & "," & crr(kk, 4)
  22.                 End If
  23.             End If
  24.         Next
  25.     Next
  26.     [a14].Resize(UBound(brr), 3) = brr
  27. End Sub
复制代码
回复

使用道具 举报

发表于 2015-11-23 11:11 | 显示全部楼层    本楼为最佳答案   
请看附件。

数据对比.rar

20.07 KB, 下载次数: 16

评分

参与人数 1 +3 收起 理由
海洋王 + 3 很给力!

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2015-11-23 21:52 | 显示全部楼层
grf1973 发表于 2015-11-23 11:11
请看附件。

太好了,谢谢老师的无私帮助,完全达到了我的要求,非常感谢。
回复

使用道具 举报

 楼主| 发表于 2015-11-23 22:49 | 显示全部楼层
数据比对.part1.rar (700 KB, 下载次数: 8)

数据比对.part2.rar

318.97 KB, 下载次数: 7

回复

使用道具 举报

发表于 2015-11-24 09:37 | 显示全部楼层
有密码,打不开
回复

使用道具 举报

发表于 2015-11-24 13:49 | 显示全部楼层
请看附件。

数据比对.rar

602.27 KB, 下载次数: 9

评分

参与人数 1 +3 收起 理由
海洋王 + 3 赞一个!

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2015-11-25 21:36 | 显示全部楼层
grf1973 发表于 2015-11-24 13:49
请看附件。

非常感谢老师的热心帮助,好人一生平安。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 10:25 , Processed in 0.663051 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表