设为首页收藏本站

开启辅助访问

Excel精英培训网»论坛 › Excel 求助区 › Excel VBA开发 › 自动加载别表对应数据

数据透视表40+个常用小技巧，让你一次学会！

发新帖

查看: 2556|回复: 4

[已解决]自动加载别表对应数据

发表于 2014-5-3 21:49 | 显示全部楼层 |阅读模式

工作中常用的Excel函数公式，全印在一张超大鼠标垫上

我想在“显示”表中点击按钮自动加载汇总表中的数值，条件是有3个，刚学不知道如何实现，还请各位大大们帮忙整个，不甚感谢，宿舍灯要关了，谢谢，具体说明在文件里说了，希望能得到帮助，正在学习中...

最佳答案

月排行榜 / 总排行榜

dsmch

2014-5-4 06:30

Sub Macro1()
Dim arr, brr, i&, j%, d, d2, zf$
Set d = CreateObject("scripting.dictionary")
Set d2 = CreateObject("scripting.dictionary")
brr = Sheet2.Range("a1").CurrentRegion
bh = [g7] '编号
bm = [g8] '部门
For i = 2 To UBound(brr)
If brr(i, 2) = bh And brr(i, 3) = bm Then
zf = bh & "," & bm
d2(zf & "," & brr(i, 1)) = d2(zf & "," & brr(i, 1)) & "," & i
If Not d.exists(zf) Then
d(zf) = i
Else
If brr(i, 1) > brr(d(zf), 1) Then d(zf) = i '最新日期
End If
End If
Next
x = Split(d2(zf & "," & brr(d(zf), 1)), ",")
ReDim arr(1 To UBound(x), 1 To 5)
For i = 1 To UBound(x)
For j = 5 To 9
arr(i, j - 4) = brr(x(i), j)
Next
Next
Range("f10:j20000").ClearContents
Range("f10").Resize(UBound(arr), 5) = arr
End Sub

复制代码

跳转到最佳答案楼层

自动加载别表对应数据.rar

5 KB, 下载次数: 8

请教大大们了

相关帖子

回复

使用道具举报

工作中最常用的函数公式，全印在一张超大的鼠标垫上

发表于 2014-5-4 06:30 | 显示全部楼层本楼为最佳答案

工作中常用的Excel函数公式，全印在一张超大鼠标垫上

这个最佳答案由 dsmch 给出，感谢 dsmch 的回答。

单击隐藏图章

Sub Macro1()
Dim arr, brr, i&, j%, d, d2, zf$
Set d = CreateObject("scripting.dictionary")
Set d2 = CreateObject("scripting.dictionary")
brr = Sheet2.Range("a1").CurrentRegion
bh = [g7] '编号
bm = [g8] '部门
For i = 2 To UBound(brr)
If brr(i, 2) = bh And brr(i, 3) = bm Then
zf = bh & "," & bm
d2(zf & "," & brr(i, 1)) = d2(zf & "," & brr(i, 1)) & "," & i
If Not d.exists(zf) Then
d(zf) = i
Else
If brr(i, 1) > brr(d(zf), 1) Then d(zf) = i '最新日期
End If
End If
Next
x = Split(d2(zf & "," & brr(d(zf), 1)), ",")
ReDim arr(1 To UBound(x), 1 To 5)
For i = 1 To UBound(x)
For j = 5 To 9
arr(i, j - 4) = brr(x(i), j)
Next
Next
Range("f10:j20000").ClearContents
Range("f10").Resize(UBound(arr), 5) = arr
End Sub

复制代码

回复

使用道具举报

发表于 2014-5-4 06:31 | 显示全部楼层

工作中最常用的Excel函数公式，全印在一张鼠标垫上

………………

自动加载别表对应数据.zip

11.52 KB, 下载次数: 12

回复

使用道具举报

楼主| 发表于 2014-5-4 08:35 | 显示全部楼层

谢谢啦，不甚感激了，可以实现我要的功能，我再研究下哈

回复

使用道具举报

发表于 2014-5-4 10:05 | 显示全部楼层

学习了。

回复

使用道具举报

发新帖

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

GMT+8, 2024-4-19 18:36 , Processed in 0.431555 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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