Найти повторы, объединить и удалить

Пользователь

Сообщений: 7 Регистрация: 15.03.2014

21.03.2014 03:30:33

Все доброго время суток!

Есть задача........ в одном столбце есть данные в которых есть повторяющие данные - которые надо удалить. Но есть условия, (1)надо удалить только те повторы у которых нет цифры в начале строки, (2) перед удалением объединить с верхней ячейкой, (3) после удаления повторов - удалить пустые строки, с условием чтоб осталась одна пустая строка перед фамилией.
Все мои попытки решить задачу были такие:
выделить и переместить ячейку "При контроле ошибки не обнаружены" во второй столбик на против фамилии......
объединить по строкам столбцы без потери данных......
через найти и выделить удалить данные.........
и командой PLEX удалить пустые строки....
Вопрос? Как выделить все ячейки "При контроле ошибки не обнаружены" чтоб можно было переместить....... или скопировать, а потом вставить на одну строку выше?
P.S. Ссылки на примеры или темы приветствуются.........

Прикрепленные файлы

пример21032014.xlsx (15.37 КБ)

k61

Пользователь

Сообщений: 2443 Регистрация: 21.12.2012

21.03.2014 04:12:57

Цитата
anjik пишет: выделить и переместить ячейку "При контроле ошибки не обнаружены" во второй столбик на против фамилии......объединить по строкам столбцы без потери данных......

Код

Sub www()
For Each x In UsedRange.Columns(1).SpecialCells(xlCellTypeConstants)
  If x.Value = "При контроле ошибки не обнаружены" Then
  x.Offset(-1) = x.Offset(-1) & " " & x: x.Rows.Delete
  End If
Next x
End Sub

anjik Пользователь Сообщений: 7 Регистрация: 15.03.2014	#3 21.03.2014 15:11:11 Спасибо за макрос к61! Макросом переместил, через "найти" выделил объединенные ячейки и удалил. Пустые строки удалил с помощью PLEX. Операция одноразовая так, что макрос спас от ручной работы по удалению двойных ячеек................ P.S. В прошлый раз потребовалось два дня.