Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row >= 2 And Target.Row <= 1000 And _
Cells(Target.Row, 8) < Date Then
Application.EnableEvents = False
For i = 9 To 18
Cells(Target.Row, i) = Sheet2.Cells(Target.Row, i).Value
Next
Application.EnableEvents = True
End If
End Sub
是两个工作簿还是工作表？
两个的程序不一样
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024