小红包求助VBA跨表匹配难题

我是个大包1 · 发表于 2018-4-25 14:22

怎么用字典或者数组把数据表中的数据匹配到汇总表中，请大神指点。

liulang0808 · 发表于 2018-4-25 14:24

http://club.excelhome.net/thread-1385473-1-1.html
这个字典的帖子可以参考下

lsc900707 · 发表于 2018-4-25 14:42

本帖最后由 lsc900707 于 2018-4-25 14:46 编辑

你不是一个大包吗？怎么发个小包呢？
Sub gj23w98()
Set wb = GetObject(ThisWorkbook.Path & "\" & "数据.xlsx")
Set d = CreateObject("scripting.dictionary")
With wb
      For k = 1 To .Sheets.Count
         arr = .Sheets(k).[a1].CurrentRegion
         For i = 2 To UBound(arr)
            s = arr(i, 1) & arr(1, 2)
            d(s) = arr(i, 2)
         Next
      Next
End With
brr = [a1].CurrentRegion
For i = 2 To UBound(brr)
      For j = 2 To UBound(brr, 2)
         s = brr(i, 1) & brr(1, j)
         brr(i, j) = d(s)
      Next
Next
[a1].CurrentRegion = brr
Set wb = Nothing
Set d = Nothing
End Sub

看见星光 · 发表于 2018-4-25 14:43

求助.rar (28.53 KB, 下载次数: 19)

xyxcc177 · 发表于 2018-4-25 14:48

本帖最后由 xyxcc177 于 2018-4-25 15:07 编辑

这个很简单

lsc900707 · 发表于 2018-4-25 14:57

附件仅供参考：

jiangxiaoyun · 发表于 2018-4-25 15:01

求助.zip (28.58 KB, 下载次数: 11)

C重复了，只会输出数据在最后一个C。

我是个大包1 · 发表于 2018-4-25 15:49

jiangxiaoyun 发表于 2018-4-25 15:01
C重复了，只会输出数据在最后一个C。

嗯嗯，多谢@jiangxiaoyun

我是个大包1 · 发表于 2018-4-25 16:01

liulang0808 发表于 2018-4-25 14:24
http://club.excelhome.net/thread-1385473-1-1.html
这个字典的帖子可以参考下

谢谢，很有用！！！

我是个大包1 · 发表于 2018-4-25 16:02

lsc900707 发表于 2018-4-25 14:57
附件仅供参考：

非常感谢！！！很有用

		自动登录	找回密码
密码			免费注册

[已解决] 小红包求助VBA跨表匹配难题

评分

评分

评分

评分

最新热点 /1