【求助】用VBA实现利用学号把sheet1多列数据读到sheet2（通过学号查找数据）

yongpingzhu918

【求助】用VBA实现利用学号把sheet1多列数据读到sheet2（通过学号查找数据），不用vlookup。

老骥705664849

Sub test()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
ar = Sheet1.[a1].CurrentRegion
With Sheet2
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    .Range("c2:k" & r) = Empty
    br = .Range("a1:k" & r)
    For i = 2 To UBound(br)
        If Trim(br(i, 2)) <> "" Then
            d(Trim(br(i, 2))) = i
        End If
    Next i
    For j = 3 To UBound(br, 2)
        If Trim(br(1, j)) <> "" Then
            d(Trim(br(1, j))) = j
        End If
    Next j
    For i = 2 To UBound(ar)
        If Trim(ar(i, 2)) <> "" Then
            n = d(Trim(ar(i, 2)))
            If n <> "" Then
                For j = 1 To UBound(ar, 2)
                    m = d(Trim(ar(1, j)))
                    If m <> "" Then
                        br(n, m) = ar(i, j)
                    End If
                Next j
            End If
        End If
    Next i
    .Range("a1:k" & r) = br
End With
MsgBox "ok!"
End Sub

老骥705664849

一个典型的数组+字典的案列，自己测试看看呗

yongpingzhu918

       老师，非常感谢给予回复，老师还有点问题，若改成“用VBA实现利用学号把SheetS(试卷分析大题分)多列数据读到Sheet1”则不能读取数据，请老师帮修改一下，谢谢！
        现附上附件。

老骥705664849

yongpingzhu918 发表于 2020-7-15 21:58
老师，非常感谢给予回复，老师还有点问题，若改成“用VBA实现利用学号把SheetS(试卷分析大题分)多列 ...

不是我的代码有问题，而是你在折腾人，你现在的附件，跟你一开始上传的附件根本就不一样

老骥705664849

再次测试，用你4楼的附件，代码也能正常运行，结果也是正确的呀