题目

请帮我分句翻译一下下面一段VBA代码的意思.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column > 1 Then Exit Sub
Dim c As Range
Application.EnableEvents = False
Set c = [d:e].Find(Target.Value, , , xlWhole)
If Not c Is Nothing Then Target.Value = Cells(c.Row, 5)
Application.EnableEvents = True
End Sub

提问时间：2020-11-05

答案

'工作表单元格变化触发事件(单元格进入编辑状态再退出编辑状态即可触发该事件)
Private Sub Worksheet_Change(ByVal Target As Range)
'如果目标单元格的总数大于1 就退出该过程
If Target.Count > 1 Then Exit Sub
'如果目标单元格的列号大于1就退出该过程
If Target.Column > 1 Then Exit Sub
'声明c变量为range变量
Dim c As Range
'关闭工作表事件触发
Application.EnableEvents = False
'给c变量赋值,内容为在d列到e列查找等于目标单元格的内容的单元格
Set c = [d:e].Find(Target.Value,,,xlWhole)
'如果c变量非空就执行目标单元格的值等于上一句查找到单元格同行第5列的数据(也就是E列)
If Not c Is Nothing Then Target.Value = Cells(c.Row,5)
'开启工作表事件触发
Application.EnableEvents = True
'结束该过程
End Sub