最佳答案
VBA代码如下:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i%, n&
i = 1: n = 0
On Error GoTo 100
Do
If Sheet2.Range("A" & i) = Target Then n = i: Exit Do
i = i + 4
Loop Until Sheet2.Range("A" & i) = ""
If n = 0 Then Exit Sub
Sheet2.Range("B" & n & ":E" & n + 3).Copy
Cells(Target.Row, Target.Column + 1).Select
ActiveSheet.Paste
Sheet2.Range("A" & n & ":A" & n + 3).Copy
Range(Target.Address).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
100 End Sub
最佳答案由网友提供