关键字匹配查询文件夹下所有的excel文件

luckcsz

1        关键字查询这(F)列：    协议、权证、结算、身份证......可以增添或减少
2        请帮忙做个按件小窗关键字可自己修改，增加或减少
3        查出来有关键字的行复制到成果表这边
4        在成果表这边按PDF文件这里名称到（比如示例）文件夹下拷贝对应的名字到（筛选后文件夹）这个文件夹下
5        假如找不到PDF文件请提示:    请转看sheet2（成果）这里
只传了一个示例，请路过的老师看看能否实现，谢谢~！

luckcsz

Sub yy()
Range("a2:f65536").ClearContents
Application.ScreenUpdating = False '
Dim arr, s&, i&, j%, bb
arr = Sheet2.Range("a2:f" & Sheet2.Range("a65536").End(3).Row)
ReDim brr(1 To UBound(arr), 1 To 6)
bb = [i1] ’这里能不能改成多个关键字
    For i = 1 To UBound(arr)
        If InStr(arr(i, 6), bb) > 0 Then
           s = s + 1
           For j = 1 To 6
               brr(s, j) = arr(i, j)
           Next
        End If
    Next
  
[a2].Resize(s, 6) = brr
Application.ScreenUpdating = True
End Sub

请版主看下关键字能不能多点

luckcsz

版主有时间请帮忙看下，谢谢~！代码是以前写在这个平台，查过来的。

lsc900707

luckcsz 发表于 2018-8-3 15:53
Sub yy()
Range("a2:f65536").ClearContents
Application.ScreenUpdating = False '

这里有个近似案例可以参考：
同时筛选多个数据
http://club.excelhome.net/thread-1427957-1-1.html
(出处: ExcelHome技术论坛)

luckcsz

谢谢版主帮忙~！

luckcsz

测试成功，谢谢版主~！