用change事件触发，数组形式表达vlookup函数跨工作表查找

xuminglei2003

各位大佬，本人菜鸟一枚，对VBA的理解有限，请各位帮忙将我的sheet1 A列录入数据后，B列到F列引用sheet2里面对应的数据，用数组完成。
为了人性化操作，在sheet1 A列里，可以单独录入数据，也可以批量粘贴数据，都能达到引用的效果，批量删除也要达到该行后面数据的清空效果。
我自己设计的只能单元格录入和删除，不能批量粘贴和批量删除，而且是循环，反应速度很慢！

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Dim i%, yrow%
If Target.Count = 1 And Target.Column = 1 And Target.Row > 1 Then
    If Target.Value = "" Then
        Target.Offset(0, 1).Resize(1, 5) = ""
    End If
    yrow = Sheet2.[a65536].End(xlUp).Row
    For i = 2 To yrow
        If Target.Value = Sheet2.Cells(i, 1) Then
            Target.Offset(0, 1) = Sheet2.Cells(i, 2)
            Target.Offset(0, 2) = Sheet2.Cells(i, 3)
            Target.Offset(0, 3) = Sheet2.Cells(i, 4)
            Target.Offset(0, 4) = Sheet2.Cells(i, 5)
            Target.Offset(0, 5) = Sheet2.Cells(i, 6)
        End If
    Next i
End If
Application.ScreenUpdating = True
End Sub

xuminglei2003

附件已上传，请各位大佬帮忙，小弟拜谢!