[已解决]VBA怎么实现这样的模糊查找？

cxzfy12758

各位VBA高手老师，VBA能实现这样的模糊查找吗？

ZEn98fjR.rar (14.62 KB, 下载次数: 9)

2010-11-27 13:00 上传

点击文件名下载附件
VBA怎么实现这样的模糊查找？

最佳答案

月排行榜 / 总排行榜

liuguansky

2010-11-27 19:30

Sub justtest()
    Application.ScreenUpdating = False
    Range("a3:al3").Copy Range("a1")
    Range("a3:al" & Rows.Count).ClearContents
    With Sheets("数据")
        .Range("A3:AL36").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets _
        ("查询").Range("A1:AL2"), CopyToRange:=Range("A3"), Unique:=False
    End With
    Range("1:1").ClearContents
    Application.ScreenUpdating = True
End Sub
cygekBbe.rar (22.63 KB, 下载次数: 92)

2010-11-27 19:30 上传

点击文件名下载附件
VBA怎么实现这样的模糊查找？

跳转到最佳答案楼层

cxzfy12758

[em03][em03][em03][em03]

snrvgbb

可以

fjmxwrs

你所说的输入相应数据是指什么数据？？

[此贴子已经被作者于2010-11-27 17:06:48编辑过]

fjmxwrs

看看这是否是你想要的？

UEU8Lbbj.rar (21.4 KB, 下载次数: 35)

2010-11-27 17:25 上传

点击文件名下载附件
VBA怎么实现这样的模糊查找？

无聊的疯子

楼主的条件还真是模糊

liuguansky

Sub justtest()
    Application.ScreenUpdating = False
    Range("a3:al3").Copy Range("a1")
    Range("a3:al" & Rows.Count).ClearContents
    With Sheets("数据")
        .Range("A3:AL36").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets _
        ("查询").Range("A1:AL2"), CopyToRange:=Range("A3"), Unique:=False
    End With
    Range("1:1").ClearContents
    Application.ScreenUpdating = True
End Sub
cygekBbe.rar (22.63 KB, 下载次数: 92)

2010-11-27 19:30 上传

点击文件名下载附件
VBA怎么实现这样的模糊查找？

cxzfy12758

QUOTE:

以下是引用liuguansky在2010-11-27 19:30:00的发言：
Sub justtest()
    Application.ScreenUpdating = False
    Range("a3:al3").Copy Range("a1")
    Range("a3:al" & Rows.Count).ClearContents
    With Sheets("数据")
        .Range("A3:AL36").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets _
        ("查询").Range("A1:AL2"), CopyToRange:=Range("A3"), Unique:=False
    End With
    Range("1:1").ClearContents
    Application.ScreenUpdating = True
End Sub

非常感谢你。但是我想把格式也一起查询出来，怎么办呢。再次感谢你。

cxzfy12758

QUOTE:

以下是引用liuguansky在2010-11-27 19:30:00的发言：
Sub justtest()
    Application.ScreenUpdating = False
    Range("a3:al3").Copy Range("a1")
    Range("a3:al" & Rows.Count).ClearContents
    With Sheets("数据")
        .Range("A3:AL36").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets _
        ("查询").Range("A1:AL2"), CopyToRange:=Range("A3"), Unique:=False
    End With
    Range("1:1").ClearContents
    Application.ScreenUpdating = True
End Sub

万分感谢

liuguansky

，谢谢你用心帮忙。问题已解决。[em17][em17][em17][em17]

liuguansky

介意给个最佳吗？[em02]