[已解决]帮忙修改匹配数据代码

楚雪飞扬

请各位老师帮忙看下匹配数据代码，匹配结果出报错
表格格式不能变动，因其它列有数据 ！

最佳答案

月排行榜 / 总排行榜

sam-wang

2022-6-29 19:35

請測試看看，謝謝
Sub test()
Set d = CreateObject("scripting.dictionary")
a = Sheet1.Range(Sheet1.[a1], Sheet1.[ah65536].End(3))
For i = 1 To UBound(a)
    d(a(i, 7) & "") = a(i, 34)
Next
With Sheet2
    m = .Range("G" & Rows.Count).End(3).Row
    arr = .Range("G2:G" & m)
    ReDim brr(1 To UBound(arr), 1 To 1)
    For i = 1 To UBound(arr)
        brr(i, 1) = d(arr(i, 1) & "")
    Next
    .Range("AJ2:AJ" & m) = brr
End With
End Sub

跳转到最佳答案楼层

sam-wang

請測試看看，謝謝
Sub test()
Set d = CreateObject("scripting.dictionary")
a = Sheet1.Range(Sheet1.[a1], Sheet1.[ah65536].End(3))
For i = 1 To UBound(a)
    d(a(i, 7) & "") = a(i, 34)
Next
With Sheet2
    m = .Range("G" & Rows.Count).End(3).Row
    arr = .Range("G2:G" & m)
    ReDim brr(1 To UBound(arr), 1 To 1)
    For i = 1 To UBound(arr)
        brr(i, 1) = d(arr(i, 1) & "")
    Next
    .Range("AJ2:AJ" & m) = brr
End With
End Sub

楚雪飞扬

sam-wang 发表于 2022-6-29 19:35
請測試看看，謝謝
Sub test()
Set d = CreateObject("scripting.dictionary")

老师您好
你帮忙在看一下代码吗，执行代码后，匹配出来的结果为空

sam-wang

楚雪飞扬 发表于 2022-7-7 10:05
老师您好
你帮忙在看一下代码吗，执行代码后，匹配出来的结果为空

修改如下，謝謝
a = Sheet1.Range(Sheet1.[a1], Sheet1.Cells(Rows.Count, 13).End(3))