Объединение ячеек со сдвигом вверх?

Posted by Chas under Basic, Пост-обзор

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

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

тема на форуме

Похожие статьи

• Примечание в ячейки листа со значением из другой ячейки
• Как макросом брать данные с word документов в excel?
• Как сделать, чтобы выводило сообщение «данные пользователем не заполнены», если все ячейки столбца G пустые
• Вывести сообщение, если ячейки excel не заполнены
• Как зафиксировать кнопку на экране?
• Найти совпадения ячеек столбца С и столбца Е и вывести все совпавшие ячейки в столбец G по клику кнопки
• Как сделать выпадающий список с добавлением новых элементов?
• Удалить строки таблицы по встречающимся словам
• Как написать макрос который бы по клику по ячейке скрывал столбец?
• Как сделать чтобы скрывался и открывался столбец?