'工作表單元格變化觸發(fā)事件(單元格進(jìn)入編輯狀態(tài)再退出編輯狀態(tài)即可觸發(fā)該事件)
Private Sub Worksheet_Change(ByVal Target As Range)
'如果目標(biāo)單元格的總數(shù)大于1 就退出該過程
If Target.Count > 1 Then Exit Sub
'如果目標(biāo)單元格的列號大于1就退出該過程
If Target.Column > 1 Then Exit Sub
'聲明c變量為range變量
Dim c As Range
'關(guān)閉工作表事件觸發(fā)
Application.EnableEvents = False
'給c變量賦值,內(nèi)容為在d列到e列查找等于目標(biāo)單元格的內(nèi)容的單元格
Set c = [d:e].Find(Target.Value,,,xlWhole)
'如果c變量非空就執(zhí)行目標(biāo)單元格的值等于上一句查找到單元格同行第5列的數(shù)據(jù)(也就是E列)
If Not c Is Nothing Then Target.Value = Cells(c.Row,5)
'開啟工作表事件觸發(fā)
Application.EnableEvents = True
'結(jié)束該過程
End Sub