Добро пожаловать на SO. Это все выполнимо с помощью формул Excel (согласно вашему тегу excel-formula
), но я думаю, что самый простой способ - это использовать встроенные функции Excel.
Шаг 1 - выберите ваши данные ( Я предполагаю, что ваши данные хранятся в ячейках A1: B8)
Шаг 2 - go до Home > Sort & Filter > Custom Sort...
- установите флажок «Мои данные имеют заголовки» и добавьте первый уровень ( Техник), затем используйте кнопку «Добавить уровень» и добавьте второй уровень (Задание):
Вот ваш окончательный результат:
Редактировать - для объединения всех ячеек в столбце B необходимо выполнить следующий код:
Sub UnMergeCells()
Dim lngRows As Long
Dim lngRow As Long
With Sheets("Sheet1")
lngRows = .UsedRange.Rows.Count
For lngRow = 2 To lngRows
If .Range("B" & lngRow).MergeCells Then
.Range("B" & lngRow).MergeArea.UnMerge
End If
Next lngRow
End With
End Sub
Затем вы можете выполнить три шага, которые я описал в своем первоначальном сообщении («Выборочная сортировка»). После того, как вы закончите, вы можете объединить все ячейки обратно в предыдущее состояние, запустив этот код:
Sub MergeCells()
Dim lngRows As Long
Dim lngRow As Long
With Sheets("Sheet1")
lngRows = .UsedRange.Rows.Count
For lngRow = 2 To lngRows
If .Range("B" & lngRow).Value = "CLOSED" Then
.Range("B" & lngRow & ":C" & lngRow).Merge
End If
Next lngRow
End With
End Sub