Как автоматически вставить значения строк на основе значения другой ячейки

Сначала, пожалуйста, посмотрите на этот Excel-таблицу:

Таблица месяцев содержит данные за весь год. Если я выбираю любой месяц из таблицы, вводя его вручную или выбирая из выпадающего меню (например, “Выбранный”), то только те строки будут появляться после определенных строк. Например, я хочу, чтобы выбранные строки отображались только после 14 строки и далее (то есть строки не должны появляться до 15 строки). Как это сделать?

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

Есть ли идеи, как это реализовать?

Я, вероятно, воспользовался бы сводной таблицей. Месяцы будут в СТОЛБЦАХ, а B, C и D — в ЗНАЧЕНИЯХ (это должно сделать таблицу более-менее похожей на вашу). Параметр выбора необходимо будет поместить в ФИЛЬТРЫ, чтобы показывать только нужные значения.

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

Шаг 1 – Список

Сначала вы можете добавить часть “Выбранный” с выпадающим списком.
Выбрав E1, перейдите на вкладку Данные и выберите Проверка данных. Выберите Список и введите Выбранный в качестве Источник.
Теперь протяните E1 вниз до E12, чтобы получить список во всех ячейках.

Шаг 2 – Код

Добавление строк
Чтобы отслеживать изменения этих ячеек, отлично подходит процедура Worksheet_Change.
Щелкните правой кнопкой мыши на “Sheet1” (или аналогичном) и выберите Показать код.

Чтобы отслеживать и копировать выбранные строки, мы можем сделать что-то вроде этого:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer, r As Integer
On Error GoTo EndM
If Target.Value = "Выбранный" And Target.Column = 5 And Target.Row < 13 Then
    For r = 15 To 30
        If Cells(r, 1).Value = "" Then
            Range("A" & r & ":D" & r).Cells.Value = Range("A" & Target.Row & ":D" & Target.Row).Cells.Value
            i = 1
        End If
        If i > 0 Then GoTo EndM
    Next r
End If
EndM:
End Sub

Этот код ищет изменения на листе. И если в любой ячейке от E1 до E12 происходит изменение на “выбранный”, тогда он копирует столбцы A до D той же строки в первую пустую строку, начиная с 15 строки.
Примечание
Это не помешает вам дважды выбирать один и тот же элемент, т.е. получать две строки января. Также ограничено до 30 строки. После 30 строки будут добавлены новые записи. Это можно изменить, изменив значение 30 в For r = 15 To 30.

Удаление строк
Мы можем использовать практически тот же метод, чтобы снова удалить строки, когда мы удаляем значение “Выбранный”, добавив

If Target.Column = 5 And Target.Row < 13 And Target.Value = "" Then
    For r = 15 To 30
        If Cells(r, 1).Value = Cells(Target.Row, 1) Then
            Range("A" & r & ":D" & r).Cells.Delete
        End If
    Next r
End If

Между End If и EndM: в предыдущем примере.

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

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

            ElseIf Cells(r, 1).Value = Cells(.Row, 1).Value Then
            MsgBox ("Множественные записи не допускаются!")
            GoTo EndM

Между i = 1 и End If в части добавления.
Удачи!