excel-extrair texto a partir de determinado caractere

[Muca Costa]

Em uma planilha inicialmente com duas colunas (A e com três macros: AConcatenaB que concatena a coluna B com critério, BExtraiPartes que extrai texto a partir do encontro da letra X e CLimpaEspaçosEsquerda que retira espaços vazios a esquerda do inicio do texto.

 

A coluna B informa, nesta ordem, nome do reclamante X Reclamado, o problema é que o X pode estar assim “X”, “ X” ou “X “, ou seja pode ter espaço a direita, esquerda ou sem espaço. Essas condições alteram o resultado desejado.

 

Será que podem me ajudar?

ConcatenarPautas.xls

[Muca Costa]

Obtive melhor resultado fazendo a seguinte alteração no procedimento BExtraiPartes():

De: posicaoInicial = InStr(1, cell.Value, "X ") + 1

Para: posicaoInicial = InStr(1, cell.Value, "CPF:") + 21