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

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

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

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

Ниже приведен программный код макроса, который сэкономит время, сохранит силы и заполнит пустые ячейки предыдущими значениями. Перед запуском макроса необходимо предварительно выделить диапазон ячеек на рабочем листе книги 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. Надстройка проста в использовании, достаточно лишь выделить диапазон ячеек и способ заполнения пустых ячеек.

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