Объединение ячеек со сдвигом вверх удалением(макрос)

[AdvSent]

Здравствуйте, уважаемые!
Помогите с проблемой.
Имеется Выборка данных. из 9500+ строк
Нужно чтобы при совпадении номера договора в столбце NUM_D долг за 07 месяц переместился на ячейку выше к данным за предыдущие месяцы, а после перемещения вторая (полу пустая) строка удалялась.

Заранее спасибо!

[nilem]

Зеленую стрелочку нажимаем.

[IgorGO]

или выполните этот макрос:

Sub DelDoubleNum()
  Dim r As Long, fnd As Long
  r = 3: On Error Resume Next
  Do
    fnd = WorksheetFunction.Match(Cells(r, 1), Range(Cells(1, 1), Cells(r - 1, 1)), 0)
    If Err = 0 Then Cells(fnd, 12) = Cells(r, 12): Rows(r).Delete Else Err.Clear: r = r + 1
  Loop Until Cells(r, 1) = ""
End Sub

[AdvSent]

Огромное спасибо

[AdvSent]

ммм, а подскажите, почему макрос для ВКС_долг)общий работает и для некоторых других списков тоже,а для этого списка он просто удаляет строки с повторяющимися номерами.

[AdvSent]

Сообщение от IgorGO

или выполните этот макрос:

Sub DelDoubleNum()
  Dim r As Long, fnd As Long
  r = 3: On Error Resume Next
  Do
    fnd = WorksheetFunction.Match(Cells(r, 1), Range(Cells(1, 1), Cells(r - 1, 1)), 0)
    If Err = 0 Then Cells(fnd, 12) = Cells(r, 12): Rows(r).Delete Else Err.Clear: r = r + 1
  Loop Until Cells(r, 1) = ""
End Sub

Этот макрос я так понял вообще просто удаляет повторяющиеся номера?

[nilem]

Сообщение от AdvSent

ммм, а подскажите, почему макрос для ВКС_долг)общий работает и для некоторых других списков тоже,а для этого списка он просто удаляет строки с повторяющимися номерами.

Очистите ячейки S1607...X1607
Макрос складывает значения из последнего правого столбца таблицы, а в вашем файле последний столбец - Х. Поэтому с суммами ничего не происходит.

[Kacap]

nilem, подскажите, как нужно модифицировать ваш скрипт, чтобы проверка шла по столбцу F и суммировались данных в последних трех столбцах?