查询另放

gwjkkkkk

Option Explicit
Sub TEST6()
    Dim ar, br, i&, j&, r&, n&, dic As Object, strInput$, iPosCol&, wks As Worksheet

    Application.ScreenUpdating = False
    strInput = InputBox("请输入关键字：", "名称", "华为")
    If strInput = "" Then Exit Sub
    Set dic = CreateObject("Scripting.Dictionary")
   
    With [A1].CurrentRegion
        .Offset(1).Clear
        ar = .Resize(10 ^ 3)
        For i = 1 To UBound(ar, 2): dic(ar(1, i)) = i: Next
        r = 1
    End With
    For Each wks In Sheets
        If wks.Name <> ActiveSheet.Name Then
            With wks
                br = .[A1].CurrentRegion
                For i = 2 To UBound(br)
                    n = 0
                    For j = 1 To UBound(br, 2)
                        If br(i, j) = strInput Then
                             n = i: Exit For
                        End If
                    Next j
                    If n <> 0 Then
                        r = r + 1
                        For j = 1 To UBound(br, 2)
                            If dic.exists(br(1, j)) Then
                                iPosCol = dic(br(1, j))
                                ar(r, iPosCol) = br(i, j)
                            End If
                        Next j
                        ar(r, UBound(ar, 2)) = .Name
                    End If
                Next i
            End With
        End If
    Next wks
   
    With [A1].Resize(r, UBound(ar, 2))
        .Columns(1).NumberFormatLocal = "00"
        .Columns(2).NumberFormatLocal = "yyyy-m-d"
        .Columns(5).NumberFormatLocal = "000"
        .Columns("F:I").NumberFormatLocal = "0.00"
        .Value = ar
        .HorizontalAlignment = xlCenter
        .Borders.LineStyle = xlContinuous
        .Font.Size = 10
    End With
    Set dic = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

参与 一下。。。

xing_chen

gwjkkkkk 发表于 2023-3-24 20:06
参与 一下。。。

谢谢老师！运行如愿！

cjc209

你的表头太随意了 字段名与汇总表里不一  字段顺序到还无所谓 但字段名应该一致啊 这是基础 不然非常麻烦

cjc209

xing_chen 发表于 2023-3-24 20:08
谢谢老师！运行如愿！

11楼的也是把你的原表和汇总表的字段名统一改为了一致的才会有这种效果 不然要出错 知道吗? 顺序可以不一样 但字段名要匹配 这是基础表的关键一步

xing_chen

cjc209 发表于 2023-3-24 20:24
11楼的也是把你的原表和汇总表的字段名统一改为了一致的才会有这种效果 不然要出错 知道吗? 顺序可以不一 ...

谢谢老师的教诲！铭记在心

cjc209

11楼就是正解

xing_chen

cjc209 发表于 2023-3-24 21:14
11楼就是正解

谢谢老师的指点。我信任你！