将多行相同相合并求和

Sub xx()
Tk}boQ A0i1 = Cells(1, 1).CurrentRegion.Rows.CountMSCBSC | 移动通信网 |I8@tV
aO
j = 1
A M8a
COy0For i = 3 To 2 * i1
{(akK1m2g,K'z@0If Cells(i, 2) = "" Then

*c.K|!H[d*bY+o0 GoTo xydMSCBSC | 移动通信网k2afNvUS

RLi~1H!Ud0ElseIf Cells(i, 2) = Cells(i - 1, 2) ThenMSCBSC | 移动通信网8SCK_"aq
j = j + 1MSCBSC | 移动通信网}[.zY"Y%Q#J@5o)|1I
x
ElseMSCBSC | 移动通信网.y#Y"m f2I DH7| v
Rows(i).Select
E|ZJnkF0    Selection.Insert Shift:=xlDownMSCBSC | 移动通信网 Cs mg-Sa
Cells(i, 2) = Cells(i - 1, 2)
Y&?is@ `#K:c,}0Cells(i, 4) = Cells(i - 1, 4)MSCBSC | 移动通信网i#D,}~O9|9?4o-tJ:l*P

9M7z9u3h3y.y0For m = 1 To jMSCBSC | 移动通信网Pm Prg*K
}(h
Cells(i, 7) = Cells(i, 7) + Cells(i - m, 7)
$x*]/sjm0Cells(i, 6) = Cells(i, 6) & Cells(i - j + m - 1, 6)MSCBSC | 移动通信网ZFGJeHx9M|
Cells(i, 10) = Cells(i, 10) & Cells(i - j + m - 1, 10)
m-It
R:pP"N;P0Next m
-q(o4psK0a{J.t0j = 1MSCBSC | 移动通信网0Yn;x;Zf6~u}2~`
i = i + 1
Pg r\(J0End IfMSCBSC | 移动通信网6S4L^Lt"Lr

Next i

xyd: End SubMSCBSC | 移动通信网,Gl3l!Cs} V)d

v2Kh(Z1cG t5Dg0 MSCBSC | 移动通信网2F:u0Qc-OC(K,I