提取部分数据

lgzxmlg

我想从总表中提取给定条件的数据，不知如何提取，请老师帮忙。 求助.zip (9.96 KB, 下载次数: 21)

2019-12-2 10:14 上传

点击文件名下载附件

microyip

http://club.excelhome.net/thread-1310803-1-1.html 多表多工作簿汇总，参考变通一下

月关

microyip 发表于 2019-12-2 10:24
http://club.excelhome.net/thread-1310803-1-1.html 多表多工作簿汇总，参考变通一下

还能再糊弄一点人家不

microyip

月关 发表于 2019-12-2 10:26
还能再糊弄一点人家不

跟我给的案例有很大区别吗？变通修改一下不就可以了？

月关

我是无聊至极才下载附件看了看，他的需求是最最基础的东西，就要一勺水，你给人扔过来一条大江大河的不是害人么

ggmmlol

月关 发表于 2019-12-2 10:36
我是无聊至极才下载附件看了看，他的需求是最最基础的东西，就要一勺水，你给人扔过来一条大江大河的不是害 ...

糊弄和不糊弄，要因人而异。
新手求助，如果想帮，就不要糊弄；
但如果是求助了几十个主题的老人，还要为“一勺水”而求助，不妨糊弄一下。

月关

ggmmlol 发表于 2019-12-2 10:51
糊弄和不糊弄，要因人而异。
新手求助，如果想帮，就不要糊弄；
但如果是求助了几十个主题的老人，还要 ...

立场和观点上我其实差不多。只是，我觉得他这个压根就不算汇总… microyip老师再把他汇总的家伙事拿出来就有了糊弄的嫌疑了

月关

我说跟汇总无关是因为我看第一眼就觉得只是个简单的筛选问题。思量了一下为了避免被人说在旁边说风凉话，还是回来简单划拉两下

1. Sub test()
   
2. s = Application.Transpose(Sheets("名单").[a2:a8])
   
3. With Sheets("数据").[a1].CurrentRegion
   
4. .AutoFilter 1, s, 7
   
5. .Copy Sheets("结果").[a1]
   
6. End With
   
7. End Sub

复制代码

lgzxmlg

朱荣兴 发表于 2019-12-2 10:47
Sub test()
Set d = CreateObject("scripting.dictionary")
ar = Sheets("名单").[a1].CurrentRegion

谢谢帮忙。问题解决