PrivateSub Worksheet_Change(ByVal Target As Range) Application.EnableEvents= False IfTarget.Column = 1 Then Dims, i&, j&, n$ n= Target.Value i= Sheets("订单明细").Range("a"& Cells.Rows.Count).End(3).Row s= Sheets("订单明细").Range("a1:j"& i) Fori = 2 To UBound(s) Ifs(i, 1) = n And n <> "" Then Forj = 1 To 6 Ifj > 4 Then Cells(Target.Row,j + 1) = s(i, j + 3) Else Cells(Target.Row,j + 1) = s(i, j + 1) EndIf Range("b"& Target.Row & ":j" & Target.Row) = Sheets("订单明细").Range("b" & i & ":j" &i).Value Nextj i= UBound(s) EndIf Next EndIf Application.EnableEvents= True EndSub
这是我在论坛上看到一个帖子里的 试了一下 老是提醒我 变量未定义 target 什么情况啊 本人菜鸟 求解释
|