Всем Добрый день!
третий час бьюс над мелочью.
помогите доработать макрос по расстановке сумм по каждой позции.
Приложил файл с тремя вкладками указал стрелками где происходит заплет, в остальных случаях код работает хорошо.
Когда позиции идут сплошняком без состаляющих
файл почти на 7 тыс позиций и на 220 тыс. заполненных строк
спасибо за участие.
третий час бьюс над мелочью.
помогите доработать макрос по расстановке сумм по каждой позции.
Скрытый текст |
---|
Sub PasteSums() 'ScreenUpdating = False For i = 1 To 25 k = i If Cells(i, 5).Value <> "" And Cells(i, 8 ) .Value <> "" Then Do k = k + 1 If k > 25 Then GoTo finish Loop Until Cells(k, 5).Value <> "" Cells(i, 15).FormulaR1C1 = "=SUM(R[1]C[3]:R[" & k - i - 1 & "]C[3])" i = k - 1 End If Next i finish: ScreenUpdating = True End Sub |
Когда позиции идут сплошняком без состаляющих
файл почти на 7 тыс позиций и на 220 тыс. заполненных строк
спасибо за участие.