1122111
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Есть такой код можно ли его как-нибудь ускорить для большого количества строк и добавить сумму еще для 11 строк(по месяцам)? Код Visual Basic Sub optimize() For Each rr In Selection.Rows cikl: If Cells(rr.Row, 1).Value = Cells(rr.Row + 1, 1).Value Then Cells(rr.Row, 6).Value = Cells(rr.Row, 6).Value + Cells(rr.Row + 1, 6).Value Rows(rr.Row + 1).EntireRow.Delete Shift:=xlUp GoTo cikl End If Next Cells(1, 1).Select End Sub |