Com base no meu entendimento da sua pergunta, sugiro uma solução de 2 etapas.
Etapa 1 - Use o recurso Text to Columns no Excel e converta o texto de uma única coluna em várias colunas. Use espaço e vírgula como delimitadores.
Step 2 - Use uma função VBA personalizada para unir apenas as células pretendidas em uma única célula delimitada por Comma.
Depois de concluir o processo Text To Columns, pressione ALT + F11 na folha para abrir o Editor do VBA. No menu Inserir, insira o módulo. Um Módulo1 deve ser criado e seu editor de código deve abrir. Se não clicar duas vezes no Módulo1 no painel esquerdo para abrir seu editor de código.
Cole o seguinte código no mesmo.
Public Function TXTJOIN(argument1 As Range) 'Accept input range
result = ""
colcounter = argument1.Columns.Count
rowcounter = argument1.Rows.Count
If rowcounter > 1 Then
TXTJOIN = CVErr(xlErrValue) 'If row counter > 1 return #VALUE! Error
Exit Function
End If
If colcounter > 255 Then
TXTJOIN = CVErr(xlErrValue) 'If col counter > 255 return #VALUE! Error
Exit Function
End If
For Each element In argument1
If Left(element, 3) = "WTS" And Len(element) > 3 Then
result = result & element & ","
End If
Next element
If result = "" Then
TXTJOIN = result
Else
TXTJOIN = Left(result, Len(result) - 1)
End If
End Function
Isso cria uma função TXTJOIN personalizada para verificar a inicialização de String como "WTS" e unir todas essas colunas delimitadas por vírgula
Salve e saia do editor do VBA. De volta à planilha, vá para a coluna extrema direita e insira essa função, especificando o intervalo da coluna aplicável. Copie ou arraste-o para baixo ao longo do comprimento das linhas aplicáveis. Você deve obter a seqüência desejada nas respectivas células. Copie apenas os valores em outro lugar e exclua o restante das colunas para limpar a planilha.
Você receberá #VALUE! Erro desta função em situações como.
-
Você passa um array multidimensional para ele. A1: D12
-
Você passa mais de 255 colunas para isso.
-
Você passa várias linhas para, por exemplo, A1: A12
Deixe-me saber se isso funciona para você.
Limitação - Isso pressupõe que os IDs do usuário sejam separados por Espaço ou Vírgula. Se dois estiverem juntos sem vírgula ou espaço, essa função não identificará os dois separadamente.