Вы можете использовать бесплатный Microsoft Power Add-In Power Query (из Excel 2010) для фильтрации и агрегирования ваших идентификаторов с ошибкой.
Вы можете преобразовать свои данные через пользовательский интерфейс. Однако вам нужно будет изменить некоторые шаги непосредственно в расширенном редакторе.
Вот два сценария (вы можете вставить его в расширенный редактор. Убедитесь, что ваш источник таблицы называется "Table1"):
1-й даст вам этот вывод: 004, 006, 009
let
Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
#"Changed Type" = Table.TransformColumnTypes(Source,{{"ID", type text}, {"Status", type text}}),
#"Filtered Rows" = Table.SelectRows(#"Changed Type", each ([Status] = "Error")),
#"Removed Other Columns" = Table.SelectColumns(#"Filtered Rows",{"ID"}),
#"Transposed Table" = Table.Transpose(#"Removed Other Columns"),
#"List ID" = Table.ToList(#"Transposed Table", Combiner.CombineTextByDelimiter(", "))
in
#"List ID"
Второй разделит четные и неровные идентификаторы на две строки:
009
004, 006
let
Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
#"Changed Type" = Table.TransformColumnTypes(Source,{{"ID", type text}, {"Status", type text}}),
#"Filtered Rows" = Table.SelectRows(#"Changed Type", each ([Status] = "Error")),
#"Added Custom" = Table.AddColumn(#"Filtered Rows", "IsEven", each if Number.IsEven(Number.From([ID])) = true then "even" else "uneven"),
#"Filtered Even" = Table.SelectRows(#"Added Custom", each ([IsEven] = "even")),
#"Removed Other Columns Even" = Table.SelectColumns(#"Filtered Even",{"ID"}),
#"Transposed Table Even" = Table.Transpose(#"Removed Other Columns Even"),
#"List Even" = Table.ToList(#"Transposed Table Even", Combiner.CombineTextByDelimiter(", ")),
#"Table Even" =Table.FromValue(#"List Even"),
#"Filtered Uneven" = Table.SelectRows(#"Added Custom", each ([IsEven] = "uneven")),
#"Removed Other Columns Uneven" = Table.SelectColumns(#"Filtered Uneven",{"ID"}),
#"Transposed Table Uneven" = Table.Transpose(#"Removed Other Columns Uneven"),
#"List Uneven" = Table.ToList(#"Transposed Table Uneven", Combiner.CombineTextByDelimiter(", ")),
#"Table Uneven" =Table.FromValue(#"List Uneven"),
#"Appended Query" = Table.Combine({#"Table Uneven", #"Table Even"})
in
#"Appended Query"
Попробуйте Power Query! Это IMO - самая мощная инновация в Excel за последние пару лет (помимо Power Pivot).