Последние записи
- Как запустить программу указанную в Edit.Text
- Скачать файл с использованием потока
- Поиск слова в Memo
- Распаковщик формата .img из GTA San Andreas
- Подсчет количества повторяющихся букв в файле
- Простейший скрипт загрузки картинки с помощью php
- Рассылка. Выпуск 154
- Получение картинки с веб-камеры
- Скопировать определённый кусок image
- Сделать printscreen экрана и сохранить
19th
Авг
Объединение ячеек со сдвигом вверх?
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