Как автоматически заполнять формулы при вставке строк в Excel?

Когда вы вставляете пустые строки между существующими строками данных, формула не копируется и не вставляется в новую строку — вам нужно перетаскивать или заполнять её вручную. Однако иногда требуется, чтобы формула автоматически заполнялась при вставке пустых строк в диапазоне данных, как показано на следующем скриншоте. В этой статье я расскажу о некоторых быстрых способах решения этой задачи.

Автоматическое заполнение формулы при вставке пустых строк с помощью создания таблицы

Автоматическое заполнение формулы при вставке пустых строк с использованием кода VBA

Автоматическое заполнение формулы при вставке пустых строк с помощью создания таблицы

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

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

2. В диалоговом окне Создать таблицу установите флажок Мои данные содержат заголовки, если в ваших данных есть заголовки, см. скриншот:

3. Затем нажмите кнопку ОК, и таблица будет создана. Теперь, когда вы вставляете пустую строку, указанная выше формула будет автоматически вставлена в новую строку, см. скриншот:

Автоматическое заполнение формулы при вставке пустых строк с использованием кода VBA

Если вы не хотите преобразовывать данные в таблицу, следующий код VBA также поможет вам решить эту проблему.

1. Выберите вкладку рабочего листа, содержащую формулы, которые вы хотите автоматически заполнить, щелкните правой кнопкой мыши и выберите Просмотр кода из контекстного меню, чтобы перейти в окно Microsoft Visual Basic for Applications, а затем скопируйте и вставьте следующий код в модуль:

Код VBA: Автоматическое заполнение формулы при вставке пустых строк

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice 20160725
    Cancel = True
    Target.Offset(1).EntireRow.Insert
    Target.EntireRow.Copy Target.Offset(1).EntireRow
    On Error Resume Next
    Target.Offset(1).EntireRow.SpecialCells(xlConstants).ClearContents
End Sub

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

Демонстрация: Автоматическое заполнение формулы при вставке пустых строк