第5行自动判断Sheet2 B列相同数据相对应

cmo9020

请教导师一下，Sheet1表格第5行B5单元格开始
当我贴上Slot 5 Slot 4......等数据
能不能自动判断Sheet2 B列相同数据，自动变成Sheet2工作表相对应的A列数据?

如果没有对应到的部份或空白处则保留原样不变


Test.rar (20.48 KB, 下载次数: 9)

2024-3-3 17:32 上传

点击文件名下载附件

shiruiqiang

机台代号. 做字典就行

gwjkkkkk

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ar, rngCel As Range, dic As Object
   
    Set dic = CreateObject("Scripting.Dictionary")
   
    If Not Intersect(Target, [B5,N5]) Is Nothing Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        ar = Sheets(2).[A1].CurrentRegion.Value
        For i = 2 To UBound(ar)
            dic(ar(i, 2)) = ar(i, 1)
        Next i
        For Each rngCel In Intersect(Target, [B5,N5])
            If dic.exists(rngCel.Value) Then
                rngCel.Value = dic(rngCel.Value)
            End If
        Next
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
   
    Set dic = Nothing
End Sub

gwjkkkkk

请参考。。。

cmo9020

gwjkkkkk 发表于 2024-3-3 18:21
请参考。。。

谢谢大佬