根据指定数据提取另一张表的数据！

hmc530

根据【提取区】表格A列的数据，查找【数据区 】表格内A列数据是否存在，如果不存在，在“扫描输入区”内显示错误；

如果存在，继续判断 “v”列是否显示 “已扫描”，如果V列对应单元格为空，忽略，继续下一行判断；如果显示“已扫描”，将扫描时间、扫描人、状态提取到

【提取区】表格A列对应的编号单元格内，重复的只提取一个。

帮我看看这个问题吧！！急！！


查询并赋值.zip (23.17 KB, 下载次数: 4)

2023-3-4 13:02 上传

点击文件名下载附件

gwjkkkkk

Sub TEST5()
    Dim ar, br, i&, j&, r&, dic As Object, strKey$
   
    Set dic = CreateObject("Scripting.Dictionary")
   
    ar = Sheets(2).[A1].CurrentRegion
    For i = 2 To UBound(ar)
        strKey = ar(i, 1)
        If Not dic.exists(strKey) Then
            dic(strKey) = Array(strKey, ar(i, 23), ar(i, 24), ar(i, 22))
        End If
    Next i
   
    With [A3].CurrentRegion
        .Offset(1, 1).ClearContents
        ar = .Value
        For i = 2 To UBound(ar)
            strKey = ar(i, 1)
            If dic.exists(strKey) Then
                MsgBox dic(strKey)(3)
                If dic(strKey)(3) = "已扫描" Then
                    .Cells(i, 4).Resize(, 4) = dic(strKey)
                End If
            End If
        Next i
    End With
    Set dic = Nothing
    Beep
End Sub

gwjkkkkk

请参考。。。

洋务德雷

参考看看吧

无聊的黑猫

=IFERROR(INDEX(数据区!$A$2:$X$33,MATCH($A4&"已扫描",数据区!$A$2:$A$33&数据区!$V$2:$V$33,0),MATCH(IF(D$3="扫描输入区","编号",D$3),数据区!$A$1:$X$1,0)),"")三键 右拉 下拉 时间格式改下