
Sub a()
LR = Cells(Rows.Count, "J").End(xlUp).Row
drow = 3
r = 3
Do While Cells(r, "J") <> ""
modello = Cells(r, "J")
colore = Cells(r, "K")
Cells(drow, "A") = modello
Cells(drow, "B") = colore
For c = 3 To 7 '12 To 16
Cells(drow, c) = Cells(drow, c) + Cells(r, c + 9)
Next
If Cells(r + 1, "J") <> modello Or Cells(r + 1, "K") <> colore Then
r = r + 1
drow = drow + 1
Else
r = r + 1
End If
Loop
End Sub |
