又要来求助个人大神了

谢谢我插个队

各位大神！下午好！
      又需要忙烦你们了，惭愧惭愧~！用个窗口查询能得到规格和库位编号，因为存货名称很多都是重复的需要一一对应，谢谢大神们帮忙！

谢谢我插个队

mikezhan 发表于 2018-8-19 16:08
是要达到这样的效果吗？

直接用 数组函数就行。

麻烦大神能弄好的文件压缩了发一下吗？万分感谢！

谢谢我插个队

谢谢我插个队 发表于 2018-8-19 16:16
麻烦大神能弄好的文件压缩了发一下吗？万分感谢！

查询的时候选择存货名称最好有个下拉箭头，点任何一个重复的名称都能看到规格和库位编号，麻烦了

谢谢我插个队

mikezhan 发表于 2018-8-19 16:26
这是用数组函数解决。简单，但是，大数据时，运行很卡。

我会好好学习的，谢谢，刚刚接触啥都不懂谢谢了

任飘渺

Sub kk()
    Dim cn As Object, rs As Object, strCondition As String, sql As String
    Set cn = CreateObject("Adodb.Connection")
    With cn
        If Val(Application.Version) < 12 Then
            .provider = "Microsoft.Jet.Oledb.4.0;Extended Properties=Excel 8.0"
            .Open ThisWorkbook.FullName
        Else
            .provider = "Microsoft.Ace.Oledb.12.0;Extended Properties=Excel 12.0"
            .Open ThisWorkbook.FullName
        End If
    End With
   
        With Worksheets("信息台账")
            For i = 2 To 4
                If .Cells(i, 2) <> "" Then
                    strCondition = strCondition & .Cells(i, 1).Value & " Like '%" & .Cells(i, 2).Value & "%' and "
                     
                End If
            Next i
            
            If strCondition = "" Then
                sql = "select 序号,库位编号,存货名称,规格,单位 from [数据源$]"
            Else
                strCondition = " where " & Left(strCondition, Len(strCondition) - 5)
                sql = "select 序号,库位编号,存货名称,规格,单位 from [数据源$]" & strCondition
            End If
            Set rs = cn.Execute(sql)
            .Range("a7:e65536").Clear
            .Range("a7").CopyFromRecordset rs
        End With
        cn.Close
        Set cn = Nothing
        Set rs = Nothing
End Sub

谢谢我插个队

mikezhan 发表于 2018-8-19 16:26
这是用数组函数解决。简单，但是，大数据时，运行很卡。

如果后续需要添加内容我需要什么做呢？谢谢指点

谢谢我插个队

mikezhan 发表于 2018-8-20 09:21
建议用VBA，大数据真的会很卡。

VBA看不懂，本人新手渣渣一个