【求助】如何用VBA或者函数根据已知数据在多张工作表查找数据并返回结果。

VBA萌新

图1 图2 图2
如图，图1的卡号在sheet7，卡号来自sheet1--sheet6中。想实现根据sheet7的卡号在sheet1--sheet6找到相应的位置并返回与卡号对应的数据。如图3.
小批量手动复制粘贴查找 在复制粘贴到图3里。但是大批量就很费时间。如果是有大神写了代码 能在旁边注解下每行代码意思么。不胜感激。另附表格样板。再次感激不尽。

任飘渺

Sub sds()
    Dim dic As Object, arr, sht As Worksheet
    Set dic = CreateObject("scripting.dictionary")
    For Each sht In Worksheets
        If sht.Name <> "Sheet7" Then
            arr = sht.Range("a1").CurrentRegion.Value
            For i = 1 To UBound(arr)
                dic(arr(i, 8)) = Array(arr(i, 1), arr(i, 2), arr(i, 3), arr(i, 4), arr(i, 5), arr(i, 6), arr(i, 7), arr(i, 9), arr(i, 10))
            Next i
        End If
    Next
    With Sheet9
        irow = .Cells(Rows.Count, 1).End(3).Row
        .Range("b1:j" & irow).ClearContents
        .Range("G:G").NumberFormatLocal = "@"
        For i = 1 To irow
            k = .Cells(i, 1).Value
            .Range("b" & i).Resize(1, 9).Value = dic(.Cells(i, 1).Value)
        Next i
    End With
End Sub

VBA萌新

任飘渺 发表于 2018-8-23 19:30
Sub sds()
    Dim dic As Object, arr, sht As Worksheet
    Set dic = CreateObject("scripting.dicti ...

你好，我把代码复制到新的工作表运行后，发现有一段代码没对。“irow = .Cells(Rows.Count, 1).End(3).Row”
弹出对话框“运行时错误424，要求有对象”。但是在你的字典查询里可以运行。

任飘渺

VBA萌新 发表于 2018-8-24 11:45
你好，我把代码复制到新的工作表运行后，发现有一段代码没对。“irow = .Cells(Rows.Count, 1).End(3).Ro ...

调试下吧，估计with 的表不一样吧

VBA萌新

任飘渺 发表于 2018-8-24 14:35
调试下吧，估计with 的表不一样吧

已经解决。感谢