Excel фильтры с объединенными ячейками

Добрый день всем присутствующим

Есть задача (мне кажется не выполнимая), в таблице при применении обычного фильтра выводятся ВСЕ строки которые содержат данное значение, но нужно сделать так чтобы при применении фильтра выводились не только строки имеющие данное значение но и так сказать виртуально объединенные между собой строки,

т.е. в данной таблице к каждому сотруднику присвоено 6 строк, и так называемая карточка сотрудника состоит из 6 строк, но при применении фильтра выводится только одна строка и остальная информация о сотруднике обрубается, но нужно чтоб выводилась все строки по каждому сотрдунику по которому есть совпадения в том или ином столбце.

Не уверен что смог все понятно объяснить, поэтому прилагаю картинки:
Исходная таблица:

Вот как выглядит таблица если применить стандартный фильтр (сортирую по столбцу ВУЗ — значение ТЕХНИКУМ) тут мы видим что при применении фильтра уже нельзя увидеть информацию о работе сотрудника (их минимум 3, в данном примере они обозначены как ПЕРВАЯ, ВТОРАЯ, ТРЕТЬЯ)

Вот как хочу чтобы работало — при сортировке по значению ВУЗ — техникум, все сотрудники и полные их карточки (6 строк относящихся к этому сотруднику) будут отображаться полностью.

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

Отфильтровать все связанные данные из объединенных ячеек в Excel

Чтобы решить эту задачу, вам необходимо шаг за шагом проделать следующие операции.

1. Скопируйте данные объединенных ячеек в другой пустой столбец, чтобы сохранить исходное форматирование объединенных ячеек.

2. Выберите исходную объединенную ячейку (A2: A15), а затем щелкните Главная > Объединенный и центр чтобы отменить объединенные ячейки, см. скриншоты:

3. Сохраните статус выбора A2: A15, затем перейдите на вкладку «Главная» и нажмите Найти и выбрать > Перейти к специальному, В Перейти к специальному диалоговое окно, выберите Пробелы вариант под Выберите раздел, см. снимок экрана:

4. Все пустые ячейки выбраны, затем введите = и нажмите Up клавишу со стрелкой на клавиатуре, а затем нажмите Ctrl + Enter клавиши, чтобы заполнить все выбранные пустые ячейки значением выше, см. снимок экрана:

5. Затем вам нужно применить форматирование ваших вставленных объединенных ячеек на шаге 1, выбрать объединенные ячейки E2: E15 и нажать Главная > Формат Painter, см. снимок экрана:

6. А затем перетащите Формат Painter для заполнения от A2 до A15, чтобы применить исходное объединенное форматирование к этому диапазону.

7. Наконец, вы можете применить Фильтр функция, чтобы отфильтровать нужный элемент, нажмите Данные > Фильтр, и выберите необходимые критерии фильтрации, нажмите OK чтобы отфильтровать объединенные ячейки со всеми связанными с ними данными, см. снимок экрана:

Отфильтруйте все связанные данные из объединенных ячеек в Excel с помощью Kutools for Excel

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

После установки Kutools for Excel, пожалуйста, сделайте так:

1. Выберите столбец, который вы хотите отфильтровать для конкретной объединенной ячейки, а затем щелкните Кутулс Плюс > Специальный фильтр > Специальный фильтр, см. снимок экрана:

2. В Специальный фильтр диалоговое окно, выберите Формат , затем выберите Объединить ячейки из раскрывающегося списка, а затем введите текстовое значение, которое вы хотите отфильтровать, или щелкните  для выбора нужного значения ячейки, см. снимок экрана:

3. Затем нажмите Ok и появится окно подсказки, чтобы напомнить вам, сколько ячеек соответствует критериям, см. снимок экрана:

4, Затем нажмите OK Кнопка, все относительные ячейки определенной объединенной ячейки были отфильтрованы, как показано на следующем снимке экрана:

Нажмите, чтобы скачать Kutools for Excel и бесплатная пробная версия прямо сейчас!

Демонстрация: фильтрация всех связанных данных из объединенных ячеек в Excel

Научитесь: Excel + Google Таблицы с нуля до PRO
Узнать больше

If you have a Merged Cell, and you attempt to Filter for it, you will only get the first row:

To fix this, you first need to start by creating your Merged Cells somewhere else, unmerge your filter-cells, and fill the values into all cells:

Then, you can Copy the merged cells, and Paste Special > Formats over the cells you want to merge:

You can now delete your temporary merged cells, and when you filter you will get all rows for the merged cell:

{EDIT} Here is a macro that will automatically apply the changes above to a specified range:

Public Sub FilterableMergedCells()
    Dim WorkingRange As Range
SelectRange:
    Set WorkingRange = Nothing
    On Error Resume Next
    Set WorkingRange = Application.InputBox("Select a range", "Get Range", Type:=8)
    On Error GoTo 0
    'If you click Cancel
    If WorkingRange Is Nothing Then Exit Sub
    'If you select multiple Ranges
    If WorkingRange.Areas.Count > 1 Then
        MsgBox "Please select 1 continuous range only", vbCritical
        GoTo SelectRange
    End If

    Dim ScreenUpdating As Boolean, DisplayAlerts As Boolean, Calculation As XlCalculation
    ScreenUpdating = Application.ScreenUpdating
    DisplayAlerts = Application.DisplayAlerts
    Calculation = Application.Calculation

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.Calculation = xlCalculationManual

    Dim WorkingCell As Range, MergeCell As Range, MergeRange As Range, OffsetX As Long, OffsetY As Long
    OffsetX = WorkingRange.Cells(1, 1).Column - 1
    OffsetY = WorkingRange.Cells(1, 1).Row - 1
    'Create temporary sheet to work with
    With Worksheets.Add
        WorkingRange.Copy .Cells(1, 1)
        'Loop through cells in Range
        For Each WorkingCell In WorkingRange.Cells
            'If is a merged cell
            If WorkingCell.MergeCells Then
                'If is the top/left merged cell in a range
                If Not Intersect(WorkingCell, WorkingCell.MergeArea.Cells(1, 1)) Is Nothing Then
                    Set MergeRange = WorkingCell.MergeArea
                    'Unmerge cells
                    MergeRange.MergeCells = False
                    'Replicate value to all cells in formerly merged area
                    For Each MergeCell In MergeRange.Cells
                        If WorkingCell.FormulaArray = vbNull Then
                            MergeCell.Formula = WorkingCell.Formula
                        Else
                            MergeCell.FormulaArray = WorkingCell.FormulaArray
                        End If
                    Next MergeCell
                    'Copy merge-formatting over old Merged area
                    .Cells(WorkingCell.Row - OffsetY, WorkingCell.Column - OffsetX).MergeArea.Copy
                    WorkingCell.PasteSpecial xlPasteFormats
                End If
            End If
        Next WorkingCell
        .Delete
    End With

    Set MergeRange = Nothing
    Set WorkingRange = Nothing

    Application.ScreenUpdating = ScreenUpdating
    Application.DisplayAlerts = DisplayAlerts
    Application.Calculation = Calculation
End Sub