Макрос заполнения пустых строк Excel - Советы по Excel

Содержание

Спасибо Майку, который задал на этой неделе вопрос по Excel:

Я пытаюсь написать макрос и новичок в этом. У меня есть электронная таблица Excel, состоящая из сотен страниц и множества столбцов. Я хотел бы, чтобы макрос выполнял поиск только в столбце «A» для «» (нет данных), а затем использовал данные из предыдущей строки, выбирая столбцы от «A» до «CB», а затем заполнял их, пока не обнаружил данные в ячейка в столбце «А». Затем это нужно повторять, пока все не будет сделано.

Приведенный ниже макрос поможет:

Public Sub CopyDown() LastRow = Range("A65536").End(xlUp).Row For i = 1 To LastRow If Range("A" & i).Value = "" Then Range("A" & i - 1 & ":CB" & i - 1).Copy Destination:=Range("A" & i) End if Next i End Sub

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

Первый трюк - выделить все пустые ячейки в вашем выделении. Выделите от A1 до CB в последней строке ваших данных. Выберите Edit> GoTo> Special> Blanks> OK.

Затем вы хотите ввести одну и ту же формулу во все эти пустые ячейки. Для этого нажмите клавишу равенства, нажмите стрелку вверх, затем, удерживая Ctrl, нажмите Enter. Это скопирует формулу на все пустые ячейки.

Наконец, замените формулы на значения. Выделите весь диапазон данных, выберите Правка> Копировать, Правка> Специальная вставка> Значения> ОК.

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

Интересные статьи...