Макрос для excel заполнение ячейки

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

Как известно, для полноценной работы с данными (фильтрации, сортировки, подведения итогов и т.д.) нужен непрерывный список, т.е. таблица без разрывов (пустых строк и ячеек — по возможности). На практике же часто мы имеем как раз таблицы с пропущенными пустыми ячейками — например после копирования результатов сводных таблиц или выгрузок в Excel из внешних программ. Таким образом, возникает необходимость заполнить пустые ячейки таблицы значениями из верхних ячеек, то бишь…

В общем случае, может возникнуть необходимость делать такое заполнение не только вниз, но и вверх, вправо и т.д. Давайте рассмотрим несколько способов реализовать такое.

Способ 1. Без макросов

Выделяем диапазон ячеек в первом столбце, который надо заполнить (в нашем примере, это A1:A12).

Нажимаем клавишу F5 и затем кнопку Выделить (Special) и в появившемся окне выбираем Выделить пустые ячейки (Blanks):

Не снимая выделения, вводим в первую ячейку знак «равно» и щелкаем по предыдущей ячейке или жмём стрелку вверх (т.е. создаем ссылку на предыдущую ячейку, другими словами):

И, наконец, чтобы ввести эту формулу сразу во все выделенные (пустые) ячейки нажимаем Ctrl + Enter вместо обычного Enter. И все! Просто и красиво.

В качестве завершающего мазка я советовал бы заменить все созданные формулы на значения, ибо при сортировке или добавлении/удалении строк корректность формул может быть нарушена. Выделите все ячейки в первом столбце, скопируйте и тут же вставьте обратно с помощью Специальной вставки (Paste Special) в контекстом меню, выбрав параметр Значения (Values). Так будет совсем хорошо.

Способ 2. Заполнение пустых ячеек макросом

Если подобную операцию вам приходится делать часто, то имеем смысл сделать для неё отдельный макрос, чтобы не повторять всю вышеперечисленную цепочку действий вручную. Для этого жмём Alt+F11 или кнопку Visual Basic на вкладке Разработчик (Developer), чтобы открыть редактор VBA, затем вставляем туда новый пустой модуль через меню Insert — Module и копируем или вводим туда вот такой короткий код:

Sub Fill_Blanks()
    For Each cell In Selection
        If IsEmpty(cell) Then cell.Value = cell.Offset(-1, 0).Value
    Next cell
End Sub

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

Для удобства, можно назначить этому макросу сочетание клавиш или даже поместить его в Личную Книгу Макросов (Personal Macro Workbook), чтобы этот макрос был доступен при работе в любом вашем файле Excel.

Способ 3. Power Query

Power Query — это очень мощная бесплатная надстройка для Excel от Microsoft, которая может делать с данными почти всё, что угодно — в том числе, легко может решить и нашу задачу по заполнению пустых ячеек в таблице. У этого способа два основных преимущества:

• Если данных много, то ручной способ с формулами или макросы могут заметно тормозить. Power Query сделает всё гораздо шустрее.
• При изменении исходных данных достаточно будет просто обновить запрос Power Query. В случае использования первых двух способов — всё делать заново.

Для загрузки нашего диапазона с данными в Power Query ему нужно либо дать имя (через вкладку Формулы — Диспетчер имен), либо превратить в «умную» таблицу командой Главная — Форматировать как таблицу (Home — Format as Table) или сочетанием клавиш Ctrl+T:

После этого на вкладке Данные (Data) нажмем на кнопку Из таблицы / диапазона (From Table/Range). Если у вас Excel 2010-2013 и Power Query установлена как отдельная надстройка, то вкладка будет называться, соответственно, Power Query.

В открывшемся редакторе запросов выделим столбец (или несколько столбцов, удерживая Ctrl) и на вкладке Преобразование выберем команду Заполнить — Заполнить вниз (Transform — Fill — Fill Down):

Вот и всё Осталось готовую таблицу выгрузить обратно на лист Excel командой Главная — Закрыть и загрузить — Закрыть и загрузить в… (Home — Close&Load — Close&Load to…)

В дальнейшем, при изменении исходной таблицы, можно просто обновлять запрос правой кнопкой мыши или на вкладке Данные — Обновить всё (Data — Refresh All).

Ссылки по теме

• Объединение двух столбцов с данными
• Быстрое выделение всех ячеек с формулами или константами
• Быстрое заполнение пустых ячеек макросом из надстройки PLEX

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

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

Заполнение пустых ячеек значениями ячеек, предшествующих пустым, можно быстро осуществить при помощи простой процедуры (макроса). Процедура проверяет значения ячеек в выделенном диапазоне и если встречает пустую ячейку, то заполняет её значением предыдущей ячейки.

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

Option Explicit
Sub ZapolneniePustyhYacheek()
 'Процедура заполнения пустых ячеек предыдущим значением в выделенном диапазоне
 Dim r As Long
 Dim c As Long
    c = 2 'номер столбца в котором необходимо заполнить ячейки (здесь необходимо поставить свое значение)
        For r = Selection.Cells(1).Row To Selection.Cells.Count - 1
            If Cells(r + 1, c) = "" Then Cells(r + 1, c).Value = Cells(r, c).Value
        Next r
End Sub

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

Надстройка для программного заполнения пустых ячеек

Быстро заполнить пустые ячейки верхними, нижними, правыми или левыми значениями можно также при помощи надстройки для Excel. Надстройка проста в использовании, достаточно лишь выделить диапазон ячеек и способ заполнения пустых ячеек.

 надстройка для быстрого заполнения пустых ячеек 

Добрый день, фоурмчане!
Необходима ваша неоценимая помощь и подсказ, как разобраться с заданием:

«В произвольные клетки текущего листа введены натуральные числа. При двойном щелчке по любой заполненной клетке происходит запуск макроса и заполнение ячеек вниз и вправо.» Более подробно во вложении.

Расскажу немного, как я это вижу. Необходимо, чтобы от числа шел массив. Соответственно задаем пустой массив, который будет назначаться в процессе макроса и при этом он будет натуральным числом(Integer). Далее мы задаем начало этого массива от выбранной ячейки. Дальше начинается цикл For Each, далее задаем значение целевой ячейки, а именно наш массив с помощью функции ubound — это функция которая создает ряд значений, и n, 1, мы задаем координаты в таблице, то есть n — значение в столбце, 1 — значение строки. Далее идет n = n — 1 и переход на след клетку, необходимо ряд свести к еденице. Затем происходит переход на соседнюю справа клетку. Для этого возвращаемся к первоначальной ячейке и используем функцию: ActiveCell.Offset(0, 1).Select (происходит переход вправо на одну ячейку). Повторяем ряд. Исполнение хромает. Вот что начеркал

1
2
3
4
5
6

Dim arraydata(), n As Integer
arraydata = Selection
For Each cell In Selection
cell.Value = arraydata(UBound(arraydata) - n, 1)
n = n + 1
Next cell

Заранее спасибо за помощь.

После заполнения таблицы Excel определенными значениями (чаще всего при добавлении массива информации) очень часто остаются свободные места. Они не будут мешать рассмотрению самого рабочего файла, однако будут усложнять функции сортировки, вычисления данных, фильтрации определенных чисел, формул, функций. Чтобы программа работала без затруднений, необходимо научиться заполнять пустоты значениями из соседних клеток.

Как выделить пустые клетки в рабочей таблице

Перед тем, как начинать рассматривать способы заполнения пустых клеток в рабочей таблице Excel, необходимо нужно научиться выделять их. Это просто сделать только в том случае, если таблица небольшая. Однако, если документ включает в себя огромное количество клеток, пустые места могут быть расположены в произвольных местах. Ручное выделение отдельных клеток займет много времени, при этом некоторые пустые места можно пропустить. Чтобы сэкономить время, рекомендуется автоматизировать данный процесс через встроенные инструменты программы:

1. В первую очередь нужно отметить все ячейки рабочей таблицы. Для этого можно использовать только мышку или добавить клавиши SHIFT, CTRL для выделения.
2. После этого нажать комбинацию клавиш на клавиатуре CTRL+G (еще один способ – F5).
3. На экране должно появиться небольшое окошко под названием Go To.
4. Нажать на кнопку “Выделить”.

Для того чтобы отмечать клетки в таблице, на основной панели с инструментами необходимо найти функцию “Найти и выделить”. После этого появится контекстное меню, из которого нужно выбрать выделение определенных значений – формулы, ячейки, константы, примечания, свободные клетки. Выбрать функцию “Выделить группу ячеек. Далее откроется окно настройки, в котором необходимо поставить галочку напротив параметра “Пустые ячейки”. Чтобы сохранить настройки, нужно нажать кнопку “ОК”.

Способ заполнения пустых ячеек вручную

Самый простой способ наполнения пустых клеток рабочей таблицы значениями из верхних ячеек – через функцию “Заполнить пустые ячейки”, которая находится на панели XLTools. Порядок действий:

1. Нажать на кнопку активация функции “Заполнить пустые ячейки”.
2. Должно открыться окно с настройками. После этого необходимо отметить диапазон ячеек, среди которых необходимо заполнить пустые места.
3. Определиться со способом заполнения – из доступных вариантов нужно выбрать: влево, вправо, вверх, вниз.
4. Поставить флажок напротив пункта “Отменить объединение ячеек”.

Останется нажать кнопку “ОК” чтобы пустые клетки заполнились требуемой информацией.

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

Доступные значения для заполнения пустых клеток

Существует несколько вариантов заполнения пустых клеток в рабочей таблице Excel:

1. Заполнение влево. После активирования данной функции, пустые ячейки будут заполнены данными из клеток справа.
2. Заполнение вправо. После нажатия на данного значение пустые клетки будут заполнены информацией из клеток слева.
3. Заполнение вверх. Ячейки, расположенные сверху, будут заполнены данными из клеток, которые находится снизу.
4. Заполнение вниз. Наиболее популярный вариант заполнения пустых клеток. Информация из ячеек сверху переносится в клетки таблицы, расположенные внизу.

Функция “Заполнить пустые ячейки” точно копирует те значения (числовые, буквенные), которые расположены в заполненных клетках. При этом здесь есть некоторые особенности:

1. Даже при сокрытии или блокировке заполненной клетки, информация из нее будет перенесена в свободную ячейку после активации данной функции.
2. Очень часто случаются ситуации, что значением для переноса является функция, формула, ссылка на другие клетки в рабочей таблице. В этом случае пустая клетка будет заполнена выбранным значением без его изменения.

Важно! Прежде чем активировать функцию “Заполнить пустые ячейки”, необходимо зайти в настройки рабочего листа, посмотреть наличие защиты. Если она активирована, информация перенесена не будет.

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

Более простой и быстрый способ заполнения ячеек в таблице данных из соседних клеток – через использование специальной формулы. Порядок действий:

1. Отметить все пустые ячейки способом, который был описан выше.
2. Выбрать строку для ввода формул ЛКМ или нажать на кнопку F
3. Ввести символ “=”.

1. После этого указать ячейку, расположенную выше. Формула должна обозначить ту клетку, из которой будет скопирована информация в свободную ячейку.

Последним действием нажать комбинацию клавиш “CTRL+Enter”, чтобы формула сработала для всех свободных клеток.

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

Заполнение пустых ячеек с помощью макроса

В том случае, если приходится регулярно заполнять пустые ячейки в рабочих таблицах, рекомендуется добавить макрос в программу, использовать его в дальнейшем для автоматизации процесса выделения, заполнения пустых клеток. Код заполнения для макроса:

Sub Fill_Blanks()

    For Each cell In Selection

        If IsEmpty(cell) Then cell.Value = cell.Offset(-1, 0).Value

    Next cell

End Sub

Для добавления макроса нужно выполнить несколько действий:

1. Нажать комбинацию клавиш ALT+F
2. После этого откроется редактор VBA. В свободное окно нужно вставить представленный выше код.

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

Заключение

Среди описанных выше способов нужно выбрать тот, который подходит лучше всего для определенной ситуации. Ручной способ добавления данных в свободные места рабочей таблицы подойдет для общего ознакомления, разового применения. В дальнейшем рекомендуется освоить формулу или же прописать макрос (при очень частом выполнении одной и той же процедуры).