Você pode usar o suplemento gratuito do Microsoft Excel Power Query (do Excel 2010) para filtrar e agregar seus IDs com erro.
Você pode transformar seus dados na interface do usuário. No entanto, você precisará modificar algumas etapas diretamente no Editor Avançado.
Aqui estão dois scripts (você pode colá-lo no editor avançado. Certifique-se de que a origem da sua tabela seja chamada de "Tabela1"):
O primeiro vai te dar esta saída: 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"
O segundo irá separar IDs pares e ímpares em duas filas simples:
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"
Experimente o Power Query! É IMO a inovação mais poderosa do Excel nos últimos dois anos (ao lado do Power Pivot).