求助字典问题

kings12333

lizhipei78 发表于 2024-6-20 19:52
建议初学者用多个字典，简单易懂

大佬，你这个字典写法没有加行号....

sdytsxd991122

wps

戎马书生222

Sub vlookup()
brr = Sheets("学生信息").Range("a1").CurrentRegion
arr = Sheets("成绩处理").Range("a1").CurrentRegion
Dim i&, j&
For i = 2 To UBound(arr)
    For j = 2 To UBound(brr)
        If arr(i, 2) = brr(j, 1) Then
        arr(i, 1) = brr(j, 3)
        arr(i, 19) = brr(j, 4)
        Exit For
        End If
    Next j
Next i
[a1].Resize(UBound(arr), 19) = arr
End Sub
感谢各位朋友的帮助。已搞定。

戎马书生222

wang-way 发表于 2024-6-19 13:05

学习了。

david_jiao

17楼，18楼没有输出结果？

戎马书生222

saghj 发表于 2024-6-20 15:54

中间这个
if not d.exists(arr(i,2)) then
   d(arr(i,2)=""
直接修改为：
if not d.exists(arr(i,2)) tehn
d(arr(i,2))=s
可以吗？

明天会更好zj