多条件查询；提取表中指定列至另一个表中

hnjz6700

小白的求助，麻烦大神。
1、根据多列条件查询

2、将一表中部分内容提定提取至另一个表中。

3190496160

Sub 匹配()
Application.ScreenUpdating = False
Dim ar As Variant, br As Variant
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("设备与参数")
    rs = .Cells(Rows.Count, 1).End(xlUp).Row
    br = .Range("a1:i" & rs)
End With
For i = 2 To UBound(br)
    If Trim(br(i, 2)) <> "" And Trim(br(i, 3)) <> "" And Trim(br(i, 5)) <> "" Then
        zf = Trim(br(i, 2)) & "|" & Trim(br(i, 3)) & "|" & Trim(br(i, 5))
        d(zf) = i
    End If
Next i
With Sheets("sheet1")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r < 2 Then MsgBox "sheet1为空！": End
    .Range("o2:q" & r) = Empty
    ar = .Range("a1:q" & r)
    For i = 2 To UBound(ar)
        If Trim(ar(i, 6)) <> "" And Trim(ar(i, 9)) <> "" And Trim(ar(i, 10)) <> "" Then
            zf = Trim(ar(i, 6)) & "|" & Trim(ar(i, 9)) & "|" & Trim(ar(i, 10))
            xh = d(zf)
            If xh <> "" Then
                For j = 6 To 8
                    ar(i, j + 9) = br(xh, j)
                Next j
            End If
        End If
    Next i
    .Range("a1:q" & r) = ar
End With
Set d = Nothing
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

单元格拆分 - 增加多条件查询.rar (232.42 KB, 下载次数: 23)

2022-12-5 09:50 上传

点击文件名下载附件

3190496160

第二个问题，自己录制一段宏应该就可以解决了吧，没写代码

hnjz6700

3190496160 发表于 2022-12-5 09:51
第二个问题，自己录制一段宏应该就可以解决了吧，没写代码

能帮我把查询的三列的标题带上吗，

3190496160

hnjz6700 发表于 2022-12-5 11:14
能帮我把查询的三列的标题带上吗，

先送花，说句感谢的话，再谈其他的吧

hnjz6700

3190496160 发表于 2022-12-5 11:21
先送花，说句感谢的话，再谈其他的吧

这个怪小白没礼貌，在这里跪谢大神

3190496160

hnjz6700

3190496160 发表于 2022-12-5 12:22

第2个问题想用VBA帮我写一下，谢了

Hontyu

现在求助都先说自己是小白,好像小白与求助是理所当然的因果关系,但谁不是从小白过来的,有需求还得靠自己学习