遍历所有工作表提取关键字对应数据

feixiangye · 发表于 2018-7-10 15:35

如附件想要以G1单元格内容为关键字,遍历所有工作表B列与关键字相同的,对应B\E\C\F列的内容，输出到活动工作表A-D列,
结果输出时不知道该怎么写,谢谢！

Sub Query()
Dim d As Object, arr, brr, i&, j&, k&, t%
Dim sht As Worksheet
On Error Resume Next
Set d = CreateObject("scripting.dictionary")
For Each sht In Worksheets
If sht.Name <> ActiveSheet.Name Then
      arr = sht.UsedRange
      For i = 1 To UBound(arr)
         d(arr(i, 2)) = Array(arr(i, 2), arr(i, 5), arr(i, 3), arr(i, 6))
      Next
End If
Next

Set d = Nothing
End Sub

chaohuahch · 发表于 2018-7-10 15:53

你要达到这个目的，根本不需要用字典。字典是用来去重的。而你要筛选出来的数据，都是重复的。特别是作为key的值，建议你用数组就可以了。

朱荣兴 · 发表于 2018-7-10 16:04

提示: 作者被禁止或删除内容自动屏蔽

feixiangye · 发表于 2018-7-10 17:22

chaohuahch 发表于 2018-7-10 15:53
你要达到这个目的，根本不需要用字典。字典是用来去重的。而你要筛选出来的数据，都是重复的。特别是作为ke ...

数组还不太会用，谢谢！

zopey · 发表于 2018-7-10 18:00

test.zip (88.86 KB, 下载次数: 21)

feixiangye · 发表于 2018-7-10 18:54

朱荣兴发表于 2018-7-10 16:04
这个问题，没必要字典的
Sub Query()
Dim d As Object, arr, brr, i&, j&, k&, t%

正是想要的结果，还在学习数组中，谢谢版主

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

[求助] 遍历所有工作表提取关键字对应数据

评分

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-7-10 16:04 \| 显示全部楼层 [广告] ★ ReportLite:表哥表姐早下班神器，专治各种报表不服，拒绝无意义的重复劳动 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报