[已解决]多列查找指定值，并将值所在整行返回到一个新表格

nmnbb000000 · 发表于 2014-12-17 12:11

本帖最后由 nmnbb000000 于 2014-12-17 14:43 编辑

大侠们，
求助一个多列查找数值，并输出其所在行到另一指定表格的VBA，小弟新手实在搞不出来，跪谢！
大概描述如下，有以下数据，当我在SHEET2中填入：名称，经过在SHEET1中查找，在SHEET3中返回生成整行。
SHEET2 数据：
诺基亚
飞利浦

SHEET1数据：
良品       金立    30 A001
不良品    金立    10 A002
良品       诺基亚 40 A003
良品暂存诺基亚 30 A004
不良品    诺基亚 15  A005
良品       三星    10 A006
良品       飞利浦 12  A007
良品       飞利浦 11  A008
良品       飞利浦 8 A009
不良品    飞利浦 2 A010
良品暂存飞利浦 20  A011

这时，查找后需要在SHEET3内返回生成：
良品暂存诺基亚 30 A004
不良品    诺基亚 15  A005
良品       飞利浦 12  A007
良品       飞利浦 11  A008
良品       飞利浦 8 A009
不良品    飞利浦 2 A010
良品暂存飞利浦 20  A011

另，小弟已上传附件，求指导，感谢！

最佳答案

月排行榜 / 总排行榜

爱疯

2014-12-17 15:26

Sub test()
Dim Data As Range
Dim CriteriaRange As Range
Dim CopyToRange As Range
'
'高级筛选
Set Data = Sheets(1).Range("A1").CurrentRegion
Set CriteriaRange = Sheets(2).Range("A1").CurrentRegion
Set CopyToRange = Sheets(3).Range("A1")
Sheets(3).Range("A1").CurrentRegion.ClearContents
Data.AdvancedFilter xlFilterCopy, CriteriaRange, CopyToRange
'
Sheets(3).Activate
End Sub

查找返回整行2.rar (17.05 KB, 下载次数: 110)

Excel学徒123 · 发表于 2014-12-17 12:21

上传附件

qh8600 · 发表于 2014-12-17 12:21

http://www.excelpx.com/forum.php ... =%B0%EF%D6%FA%CC%F9
先看帮助贴

nmnbb000000 · 发表于 2014-12-17 14:43

qh8600 发表于 2014-12-17 12:21
http://www.excelpx.com/forum.php?mod=viewthread&tid=152349&highlight=%B0%EF%D6%FA%CC%F9
先看帮助贴
...

已上传，就指导，谢谢

爱疯 · 发表于 2014-12-17 15:26

Sub test()
Dim Data As Range
Dim CriteriaRange As Range
Dim CopyToRange As Range
'
'高级筛选
Set Data = Sheets(1).Range("A1").CurrentRegion
Set CriteriaRange = Sheets(2).Range("A1").CurrentRegion
Set CopyToRange = Sheets(3).Range("A1")
Sheets(3).Range("A1").CurrentRegion.ClearContents
Data.AdvancedFilter xlFilterCopy, CriteriaRange, CopyToRange
'
Sheets(3).Activate
End Sub

查找返回整行2.rar (17.05 KB, 下载次数: 110)

qh8600 · 发表于 2014-12-17 15:27

nmnbb000000 发表于 2014-12-17 14:43
已上传，就指导，谢谢

查找返回整行.rar (17.15 KB, 下载次数: 39)

rdss · 发表于 2017-3-22 20:24

怎么附件无法下载？

zhousteve · 发表于 2021-8-14 20:03

谢谢啦啊啊

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

[已解决]多列查找指定值，并将值所在整行返回到一个新表格

相关帖子