关于匹配写值

sampsonpon

如图

z865593849

文件损坏的，这个用xlookup函数就可以了

sampsonpon

z865593849 发表于 2024-12-7 11:53
文件损坏的，这个用xlookup函数就可以了

想要代码，附件重新上传了一次

z865593849

实现XLOOKUP 匹配

z865593849

字典法

sampsonpon

z865593849 发表于 2024-12-7 14:19
字典法

这个好像有点问题：
如果把按钮放到WTYOR里，就对WTYOR的E列写值
如果把按钮放到MasterD里，就对MasterD的E列写值

我要的是固定的最后对WTYOR里E列写值

z865593849

sampsonpon 发表于 2024-12-9 17:36
这个好像有点问题：
如果把按钮放到WTYOR里，就对WTYOR的E列写值
如果把按钮放到MasterD里，就对Master ...

单元格前面引用下表就可以了

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar, br, i&, j&, r&
   
    Application.ScreenUpdating = False
   
    With Worksheets(1)
        r = .Cells(.Rows.Count, "F").End(xlUp).Row
        ar = Range("E1:F" & r).Value
        br = Worksheets(2).[A1].CurrentRegion.Value
        For i = 2 To UBound(ar)
            ar(i, 1) = Empty
            For j = 2 To UBound(br)
                If br(j, 1) = ar(i, 2) Then ar(i, 1) = br(j, 12): Exit For
            Next j
        Next i
        .[E1].Resize(UBound(ar), 2) = ar
        .Activate
    End With
        
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

参与一下。。。

lizhipei78

用JSA写一个