单元格内选择或者输入完一个内容后，后面三格自动查找到其他三项的值

yiyaozjk

希望能用VBA  Target.Value  工作表事件实现 ：单元格内选择或者输入完一个内容后，后面三格自动查找到其他三项的值，公式太多了容易引起错误。。。 谢

liyizhe000

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
For i = 2 To Sheet4.Range("b65536").End(xlUp).Row
    If Target.Value = Sheet4.Range("b" & i) Then
    Target.Offset(0, 1).Value = Sheet4.Range("c" & i)
    Target.Offset(0, 2).Value = Sheet4.Range("d" & i)
    Target.Offset(0, 3).Value = Sheet4.Range("e" & i)
    End If
Next
End Sub