Удаление строк со сдвигом вверх

[Lyrical]

Доброго времени суток!

Помогите, пожалуйста. Нужно обработать большой файл, по типу приложенного, а с VBA никогда дело не имел.

Файл содержит список сотрудников. Мне нужно пробежаться по сотрудникам и удалять строку с сотрудником, если "Дата Уволнения" не пуста. Потом нужно убрать образовавшиеся пустые строки. И в заключении, если у сотрудника поле "Должность" пусто, вписать туда "Специалист".

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

[IgorGO]

Sub Start()
For r = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
If Cells(r, 1).Value > 0 Then
Rows(r).Delete Shift:=xlUp
Else
If Cells(r, 3) = "" Then Cells(r, 3) = "Специалист"
End If
Next
End Sub

[SAS888]

Можно и не "бегать" по ячейкам:

Sub Main()
    Dim i As Long: Application.ScreenUpdating = False: On Error Resume Next
    i = Cells(Rows.Count, 2).End(xlUp).Row
    Range("A2:A" & i).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
    Range("A2:A" & i).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    Rows.Hidden = False: i = Cells(Rows.Count, 2).End(xlUp).Row
    Range("C2:C" & i).SpecialCells(xlCellTypeBlanks) = "Специалист"
End Sub

Пример во вложении. Запустите макрос "Main".

[alexvav]

Lyrical
в крайнем случае всё это можно сделать без макросов, просто включив "автофильтр"

[dead_rat]

Здравствуйте, уважаемые форумчане. Подскажите, пожалуйста, пути решения такой задачи:

Есть:
- массив (1 колонка), до 10 000 значений,
- тип данных - текстовый,
- значения могут повторятся,
- среди значений есть пустые ячейки,
- пустых ячеек может быть несколько подряд (до 5 шт.)
- массив динамический, периодически появляются новые пустые ячейки,
- ячейки влияют на другие (посторонние) ячейки,
- посторонние ячейки на эти не влияют.

Задача:
- убрать пустые ячейки,
- поскольку к ячейкам "пристегнуты" формулы, желательно не удаление строк, а сдвиг вверх,
- последовательность непустых ячеек должна сохранится,
- повторяющиеся ячейки не должны исчезнуть, даже если повторяются несколько раз подряд.
- метод фильтрации - очень желательно не макрос, так как возможно документ потом будет открыт в Libre Office.
- процедура будет повторятся десятки раз, значит желательна максимальная автоматизация и быстродействие.

Пробовал:
- все темы, найденные по словам "удалить пустые ячейки" в этом форуме, в гугле и на форуме "Планета Екзель".
- к сожалению, почти все способы, обнаруженные здесь, основаны на удалении строк, что есть неприемлимо.
- единственный 100%работающий способ, обнаруженный на Планете Екзель (способ №2), очень ресурсо- и времязатратный, занимает около 5 минут.

Короче, подскажите пожалуйста, возможно ли вообще решить подобную вещь без макросов?
Если да, подскажите направление плиз.

р.s. я гуглил перед тем, как задать вопрос, чесное слово.

[Hugo121]

Такой вариант попробуйте (без макросов! ):
1. нумеруем строки где-то в пустом столбце (это можно делать раз в неделю с запасом)
2. сортируем по столбцу с пустыми строками
3. удаляем вручную нумерацию у пустых строк сразу всему блоку
4. сортируем назад по нумерации.

Так даже не будет удаления строк - просто они переместятся вниз (или наверх ).

[dead_rat]

спасибо, но боюсь не подойдет, - они просто будут отображены без пустых ячеек, благодаря сортировке. А нужно физическое перемещение содержимого вверх по списку, потому что на этот список завязаны формулы.

[Hugo121]

Т.е. "физически" ячейки остаются на местах, просто в них меняются данные, и формулы привязаны не к данным, а к ячейкам.
Тогда я макросом делал бы так - взял данные в массив, создал аналогичный пустой массив, циклом переложил существующие данные в новый массив (без пустых "ячеек"), выгрузил новый массив на место.
Быстро - доли секунды.
Но это только макросом. И все существующие в этих ячейках формулы "умирают", форматирование не переносится (т.е. если нужно сохранить форматирование, то нужно код сильно усложнять, и работать будет намного (!) дольше.)

Без макросов - копируете весь диапазон в новую книгу, затем сортируете так, как я написал постом выше, затем копируете полученный результат как значения назад.
Остатки/хвосты внизу просто удаляете (ну или копируйте диапазон такого же размера, как и исходный).

[kuklp]

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

Но это только макросом. И все существующие в этих ячейках формулы "умирают".

Не обязательно.
Тут сегодня делал похожее:
http://www.cyberforum.ru/vba/thread645651.html
Вместо:
a = r.Formula
можно написать:
a = r.Formular1c1
И будет счастье

[Hugo121]

Да, что-то я не использую эту возможность - взять в массив формулы.
Видел пару раз, но не запомнил.
Спасибо Сергей
Т.е. формулы сохранить можно (обычные, с массивными сложнее, но если повозиться, то и их в принципе тоже можно).