[已解决][求助]如何用VBA查找符合条件的区域

baiqghd

如何用VBA查找符合条件的区域

如图:当单击查询按钮后,在SHEET2工作表中查找到ID等于D2单元格的值的区域后复制到A2这个区域,如图2为结果

 

XI5MU7Bw.rar (2.35 KB, 下载次数: 20)

2009-11-6 09:34 上传

点击文件名下载附件
[求助]如何用VBA查找符合条件的区域

最佳答案

月排行榜 / 总排行榜

搁浅2008

2009-11-6 10:10

aE7U1hZR.rar (9.09 KB, 下载次数: 162)

2009-11-6 10:10 上传

点击文件名下载附件
[求助]如何用VBA查找符合条件的区域
想提速 用数组

跳转到最佳答案楼层

青城山苦丁茶

录了个高级筛选的宏（暂时将结果放到F1起的单元格中）：

Application.CutCopyMode = False
    Sheets("Sheet2").Range("A1:B50").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Sheet1").Range( _
        "D1:D2"), CopyToRange:=Sheets("Sheet1").Range("F1"), Unique:=False

yaoxuejian

[em01]看看

baiqghd

QUOTE:

以下是引用青城山苦丁茶在2009-11-6 9:43:00的发言：

录了个高级筛选的宏（暂时将结果放到F1起的单元格中）：

Application.CutCopyMode = False
    Sheets("Sheet2").Range("A1:B50").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Sheet1").Range( _
        "D1:D2"), CopyToRange:=Sheets("Sheet1").Range("F1"), Unique:=False

这样的话要先知道SHEET2的区域呀,还有高级筛选的话要D1:D2连在一起,如果只有D2那就选不了了

搁浅2008

aE7U1hZR.rar (9.09 KB, 下载次数: 162)

2009-11-6 10:10 上传

点击文件名下载附件
[求助]如何用VBA查找符合条件的区域
想提速 用数组

baiqghd

QUOTE:

以下是引用搁浅2008在2009-11-6 10:10:00的发言：

想提速 用数组

不好意思,刚才看错了,你这个就是我想要的,真是太谢谢你了

[此贴子已经被作者于2009-11-6 12:26:05编辑过]

xdwy81129

QUOTE:

以下是引用青城山苦丁茶在2009-11-6 9:43:00的发言：

录了个高级筛选的宏（暂时将结果放到F1起的单元格中）：

Application.CutCopyMode = False
    Sheets("Sheet2").Range("A1:B50").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Sheet1").Range( _
        "D1:D2"), CopyToRange:=Sheets("Sheet1").Range("F1"), Unique:=False

好久没有看见高手来论坛了，原来还在。哈哈[em01]