恳请大神们帮忙看下这个要咋对应填上

qiongmei6

我希望在附件内求得一个代码，当他执行时候，他根据j列内容与e列内容如果一致的情况下，那么k列内容对应的填入c列中，目前的c列就是我希望代码执行后的结果，谢谢各位大神的帮忙。

明天会更好zj

哈哈

fzxba

2003版函数
=IF(ISERROR(VLOOKUP(E3,$J$3:$K$6,2,)),"",VLOOKUP(E3,$J$3:$K$6,2,))

gwjkkkkk

Option Explicit
Sub TEST5()
    Dim ar, i&, dic As Object
   
    Set dic = CreateObject("Scripting.Dictionary")
   
    ar = [I3].CurrentRegion.Value
    For i = 1 To UBound(ar)
        dic(ar(i, 2)) = ar(i, 3)
    Next i
   
    With [A1].CurrentRegion
        ar = .Value
        For i = 3 To UBound(ar)
            ar(i, 3) = dic(ar(i, 5))
        Next
        .Value = ar
    End With
    Set dic = Nothing
    Beep
End Sub

gwjkkkkk

请参考。。。

qiongmei6

谢谢gwjkkkkk师傅的回答，我h列是有其他数据的，因此您这个代码在h列有其他数据的情况下c列数据是空白的，能否不要用到h列，能否麻烦您再次修改下，再次谢谢您的帮忙

gwjkkkkk

qiongmei6 发表于 2024-3-3 10:56
谢谢gwjkkkkk师傅的回答，我h列是有其他数据的，因此您这个代码在h列有其他数据的情况下c列数据是空白的， ...

请参考。。。