各位大大，为什么宏搜索出来数据不齐全？

onitf

各位大大好，我的工作需要在一大堆工作表格目录里搜索出某个员工一共做了多少工作，所以弄了一个“工作内容搜索.xls”，输入员工姓名后，可以把同个文件夹下多个表格内搜索出某个人的全部工作内容，搜索方式为模糊搜索，如输入“刘s",可以搜出”刘S“和”刘ss“，但是发现搜索出来的结果不齐全，附件里两个表里一共有48项”刘s“相关的内容，为何用“工作内容搜索.xls”只搜出了5项”刘s“相关内容呢？各位大大，能不能帮我检查是什么问题？

魂断蓝桥

你这个代码是查找每一个工作表的第一个符合条件的数据。

Private Sub CommandButton1_Click()
    Dim firadd$, a%
    str1 = "刘s"
    Dim rng As Range
    If Len(str1) > 0 Then
        a = 3
        Set sh = ThisWorkbook.Sheets(1)
        Range("a3:j9999").ClearContents
        Application.ScreenUpdating = False
        Set fso = CreateObject("scripting.filesystemobject")
        Set ff = fso.getfolder(ThisWorkbook.Path) '
        For Each f In ff.Files
            If f.Name <> ThisWorkbook.Name Then
                Set wb = Workbooks.Open(f)
                For j = 1 To wb.Sheets.Count
                    Set rng = wb.Sheets(j).Columns(8).Find(What:=str1, LookAt:=2)
                    If Not rng Is Nothing Then
                         firadd = rng.Address
                            Do
                                Set rng = wb.Sheets(j).Columns(8).FindNext(rng)
                                rng.EntireRow.Copy sh.Cells(a, 1)
                                a = a + 1
                            Loop While Not rng Is Nothing And rng.Address <> firadd
                        
                    End If
                Next j
                wb.Close
            End If
        Next f
        Application.ScreenUpdating = True
    Else
        Exit Sub
    End If
End Sub

onitf

魂断蓝桥 发表于 2016-7-26 14:18
你这个代码是查找每一个工作表的第一个符合条件的数据。

Private Sub CommandButton1_Click()

原来是这样，果然顺利解决啦哈哈！谢谢！！