假设数据在表sheet1中,表sheet2为空表,编一个宏abc,运行一遍宏,答案在sheet2中,宏代码:Sub abc()Sheets(2).Range("A1:D65536") = ""Sheets(2).Range("A1:D2") = Sheets(1).Range("A1:D2").Valueb = 3For i = 3 To Sheets(1).Range("A65536").End(xlUp).Rowk = 1a = Sheets(1).Cells(i, "A")For j = 2 To b - 1If Sheets(2).Cells(j, "A") = a ThenSheets(2).Cells(j, "D") = Sheets(2).Cells(j, "D") + Sheets(1).Cells(i, "D")k = 0Exit ForEnd IfNext jIf k = 1 ThenSheets(2).Range("A" & b & ":D" & b) = Sheets(1).Range("A" & i & ":D" & i).Valueb = b + 1End IfNext iEnd Sub
|