Макрос с заполнением пустых ячеек

[Kate90]

Доброе время суток!
Совсем не знаю VBA, но есть необходимость обработать большой объем информации.
Прошу помочь в написании макроса для выполнения следующего действия: необходимо заполнить в неком столбце все пустые ячейки теми значениями, которые стоят в предыдущей ячейке. Пример: ячейка А1 содержит значение "1" или какой-то текст, ячейка А5 - значение "2", ячейка А8 - "3" и т.д. Необходимо, чтобы все ячейки от А1 до А4 заполнялись значением "1" (или тем текстом, что в ячейке А1), все ячейки от А5 до А7 - значением "2" и т.д. до конца всего столбца, соответственно.
Заранее благодарю за помощь.

[GWolf]

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

[Шпец Докапыч]

Есть необходимость обработать большой объем информации.

Для начала попробуем на маленьком объёме:

• выделите ячейки "A1:A8";
• включите макрорекордер;
• выполните остальные указания в приёме "Заполнение пустых ячеек в списке".

[Kate90]

Огромное спасибо за готовность помочь!
Уже все сделала благодаря полуночным друзьям-программистам! Нужно было очень срочно.
Шпец Докапыч, Вам отдельное спасибо за ссылку!

[Evgen]

Код Выделить Развернуть

Sub Fill_Blank_Cells()

    Static rngUR As Range
    Set rngUR = ActiveWorkbook.ActiveSheet.UsedRange
    Dim rngBlank As Range
    Set rngBlank = rngUR.Find("")

    While Not rngBlank Is Nothing
        rngBlank.Value = rngBlank.Offset(-1, 0).Value
        Set rngBlank = rngUR.Find("", rngBlank)
    Wend
End Sub

[boa]

Данные действия делаются в Excel без макросов за 5 сек.

1) Выделите ячейки в нужном столбце. Например A1:A10
2) Нажимаем клавишу "F5" для открытия окна "Go To" ("Переход").
3) В появившемся окне нажимаем кнопку "Special"("Выделить")
4) В появившемся окне выбираем "Blanks" ("пустые ячейки") и нажимаем "Ок"
5) Теперь пишем формулу: ставим знак "=" и нажимаем стрелочку вверх.
6) Удерживая клавишу Ctrl нажимаем Enter.

Готово. Все пустые ячейки будут заполнены значением из ячейки сверху.