cccc
种子
共回答了20个问题采纳率:95% 举报
'工作表单元格变化触发事件(单元格进入编辑状态再退出编辑状态即可触发该事件)
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 Su
1年前
2