如何从工作簿内多张表中查找汇总符合条件的数据？

鹦鹉好烦猫

一个工作簿内有数十张表，需要从这些表中找出“项目名称”（C列）含“阀”或“泵”的数据行，汇总到一张新表，送出奖励，谢谢！

ykcbf1100

表的结构不统一，且有几百个表，不好做。

liulang0808

Sub 按钮1_Click()
    Application.ScreenUpdating = False
    Set sh = Sheets("汇总")
    r = 0
    sh.UsedRange.Offset(1).ClearContents
    For Each sht In Sheets
        Set Rng = sht.Columns(3).Find("项目名称", lookat:=xlWhole)
        If Not Rng Is Nothing Then
            For j = Rng.Row + 1 To sht.Cells(Rows.Count, 3).End(3).Row
                If InStr(sht.Cells(j, 3), "阀") + InStr(sht.Cells(j, 3), "泵") > 0 Then
                    r = r + 1
                    sht.Rows(j).Copy sh.Cells(r, 1)
                End If
            Next j
        End If
    Next sht
    Application.ScreenUpdating = True
End Sub


插入一张表格，名称为"汇总"，运行代码就会提取到“汇总”表内，该表未添加标题，楼主可以根据需求自行添加

鹦鹉好烦猫

liulang0808 发表于 2023-7-3 13:35
Sub 按钮1_Click()
    Application.ScreenUpdating = False
    Set sh = Sheets("汇总")

非常感谢！我运行一下看看结果，有问题再请教。