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

kak zapolnit pustye yachejki

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

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

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