如何将文件夹中的所有工作簿的工作表中查询符合关键字的行信息筛选出来？

超越2018

在工作中想实现一个功能：通过查询关键字将文件夹中的所有工作簿的工作表中的行信息筛选出来，具体要求在附件，如何操作？？

liulang0808

Sub id()
    Set fso = CreateObject("scripting.filesystemobject")
    Application.ScreenUpdating = False
    Set sh = ActiveSheet
    sh.AutoFilterMode = False
    Application.Intersect(sh.Columns("a:u"), sh.UsedRange).Offset(3).ClearContents
    For Each f In fso.getfolder(ThisWorkbook.Path).Files
        If InStr(f.Name, ThisWorkbook.Name) = 0 Then
            With Workbooks.Open(f)
                .Sheets(1).UsedRange.Offset(3).Copy sh.Cells(Rows.Count, 1).End(3).Offset(1)
                .Close False
            End With
        End If
    Next f
    sh.Rows("3:3").AutoFilter
    sh.Range("A3:u" & sh.UsedRange.Rows.Count).AutoFilter Field:=7, Criteria1:="=" & sh.[v8].Value
    Application.ScreenUpdating = True
End Sub

liulang0808

数据都提取了，然后做了筛选，供参考。。。。

gwjkkkkk

请楼主参考附件。。。

ykcbf1100

参与一下。

超越2018

ykcbf1100 发表于 2022-12-21 11:22
参与一下。

感谢帮助，

cai2532

参考参考，学习学习。