Este fórum está sendo desativado

[kikardo]

Boa tarde pessoal, estou estudando ingles pelo excel mas esta dando muito trabalho toda vez separar o texto pelo texto para colunas manualmente.

O que eu preciso da ajuda de vcs é o seguinte:

Vou postar esse texto na celula A1

Swiss authorities began a new series of pre-dawn arrests Thursday in the broad investigation, led by United States officials, into corruption in international soccer. Sixteen people were expected to be charged by day’s end, law enforcement officials said, nearly doubling the size of an already huge case that has upended FIFA, soccer’s multibillion-dollar governing body.

Preciso de duas coisas:

Primeiro separar todas as palavras e colocar as mesmas em um linha cada.
Linha 1: Swiss
Linha 2: authorities
Linha 3: began
Linha 4: a
Linha 5:new
e assim o texto inteiro, separando apenas a palavra, eliminando . , "

O próximo passo vou fazer um Procv dessas palavras, com a minha base de dados das palavras já cadastradas, e as que não estiverem cadastradas, serão as palavras que preciso adicionar no meu banco de dados.


Pois bem, apos isso, se por exemplo a palavra authorities aparecer como não encontrada no banco de dados, queria que retorna-se a frase intera que ela pertence.
Exemplo:
Swiss authorities began a new series of pre-dawn arrests Thursday in the broad investigation, led by United States officials, into corruption in international soccer. (ou até a virgula, pois com a frase inteira irei por em um flashcard e realizarei a tradução e estudarei apenas frases que existam pelo menos uma palavra que não conheço.

Pessoal sei que parece besteira, mas aprendo muito ingles dessa forma, mas estou demorando muito para fazer toda vez manualmente, queria uma ajuda, se for em vba melhor, mas se não der não tem problema, que conseguindo fazer algumas formulas que faça isso, eu coloco em uma macro gravada e automatizo(amadorismo meu fazer isso mais funciona hehehe )

Obrigado desde já!

[alexandrevba]

Boa tarde!!

Eu só entendi a primeira parte, caso contrário poste seu arquivo compactado!!
Esse código separa o valor de A1 da guia ativa em várias linhas.

Código: Selecionar todos

Sub AleVBA_999()
Dim X As Variant
X = Split(Range("A1").Value, " ")
Range("A1").Resize(UBound(X) - LBound(X) + 1).Value = Application.Transpose(X)
End Sub

Att

[kikardo]

Obrigado Ale, a primeira parte era bem isso, só falta remover a "," e o "."
A segunda parte coloquei no arquivo em anexo!