你这样的想法 只能使用VBA了……别的没有什么办法……你确定要这样做?Private Sub Worksheet_Change(ByVal Target As Range)n = Target.RowIf n > 1 And Target.Column = 1 Then For i = 1 To n - 1 If Cells(i, 1) = Cells(n, 1) Then
Range(Cells(i, 2), Cells(i, 5)).Select
Selection.Copy
Cells(n, 2).Select
ActiveSheet.Paste End If NextEnd I...
|