Профессиональные приемы работы в Microsoft Excel

Пожалуйста, войдите или зарегистрируйтесь.


Расширенный поиск  

Новости:

Новая редакция правил форума: 2.4. Если вопрос или ответ содержится во вложенном файле, все-равно кратко описывайте в сообщении вопрос или суть решения. Это необходимо, чтобы тему можно было найти через поиск.

Автор Тема: Макрос с заполнением пустых ячеек  (Прочитано 5447 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Kate90

  • Пользователь
  • **
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 19

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

GWolf

  • Старожил
  • ****
  • Уважение: +50/-0
  • Оффлайн Оффлайн
  • Сообщений: 908
Re: Макрос с заполнением пустых ячеек
« Ответ #1 : 11.11.2008, 07:34:44 »

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

Шпец Докапыч

  • Ветеран
  • *****
  • Уважение: +189/-4
  • Оффлайн Оффлайн
  • Сообщений: 1 919
  • ОБЛАДАТЕЛЬ УНИКАЛЬНЫХ НАВЫКОВ!!! :)
Re: Макрос с заполнением пустых ячеек
« Ответ #2 : 11.11.2008, 10:20:48 »

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

Для начала попробуем на маленьком объёме:
Записан
Знания недостаточно, необходимо применение. Желания недостаточно, необходимо действие. (с) Брюс Ли

Kate90

  • Пользователь
  • **
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 19
Re: Макрос с заполнением пустых ячеек
« Ответ #3 : 11.11.2008, 12:17:40 »

Огромное спасибо за готовность помочь!
Уже все сделала благодаря полуночным друзьям-программистам! Нужно было очень срочно.
Шпец Докапыч, Вам отдельное спасибо за ссылку!
« Последнее редактирование: 11.11.2008, 12:20:53 от Kate90 »
Записан

Evgen

  • Новичок
  • *
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 1
Re: Макрос с заполнением пустых ячеек
« Ответ #4 : 16.01.2018, 23:10:37 »

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
« Последнее редактирование: 17.01.2018, 11:54:42 от Serge 007 »
Записан

boa

  • Глобальный модератор
  • Постоялец
  • *****
  • Уважение: +22/-0
  • Оффлайн Оффлайн
  • Сообщений: 431
  • Доброта спасет мир...
Re: Макрос с заполнением пустых ячеек
« Ответ #5 : 17.01.2018, 11:55:42 »

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

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

Готово. Все пустые ячейки будут заполнены значением из ячейки сверху.
Записан
Ничто не обходится нам так дешево и не ценится так дорого, как вежливость...  Мигель Сервантес де Сааведра
 



Темы без ответов

14.02.2018 10:11 Подготовить читабельную отчетность по платежам 73
23.01.2018 13:46 Найти вероятность повторной покупки 178
12.01.2018 23:56 Сделать отчет на Power BI (Dashboard) 256
06.09.2017 10:43 Solver VBA не решает гиперболическое уравнение, но при этом решает гармоническое 493
17.08.2017 12:15 Гиперссылка и фильтр одновременно макрос 657
23.05.2017 11:20 Копирование данных из одной таблицы в умную таблицу по условию 1819
15.03.2017 15:45 автозамена картинок PowerPoint 1220
11.03.2017 13:43 Изменить нумерацию страниц 1419
18.02.2017 11:31 Изменить ввод данных помогите...из столбца в таблицу. 1489
07.02.2017 18:43 Блокировка ячеек по наступлению даты 1696





Яндекс цитирования msexcel.ru Яндекс.Метрика

Страница сгенерирована за 0.116 секунд. Запросов: 94.