Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

RuiC.

Selecionar determinadas partes texto numa célula excel

Recommended Posts

RuiC.

Bom dia Amigos,

Não sei se será aqui o local apropriado para colocar esta questão, se não o é peço desculpa por isso. :)

Que tenho o seguinte problema numa folha excel, pretendia extrair partes de texto de uma célula e as devolver em células separadas, obedecendo a determinados critérios, mas não sei como o fazer.

Agradecia a Vossa ajuda.

Rui

Aqui vai um exemplo:

A B C D E

Taça dos Libertadores - São Paulo x Strongest Taça dos Libertadores São Paulo Strongest

Futebol Costa Rica - Costa Rican - Limon FC v AD Santos Futebol Costa Rica Costa Rican Limon FC AD Santos

Futebol Checo - Czech U19 - FC Hlucin v Slovacko Futebol Checo Czech U19 FC Hlucin Slovacko

Edited by RuiC.

Share this post


Link to post
Share on other sites
acao

boas

dá outro exemplo, porque este não dá para perceber. deve ter havido alteração ao colocares.

os separadores são fixos?

indica situações fixas para fazer a separação.

edit colocar cod.

Private Sub CommandButton1_Click()
Dim i As Integer
Dim vetor As Variant
Dim texto As String
Dim contador As Byte
Dim vSeparador As Boolean
vetor = Split(Range("F1")) 'colocar o texto na celula F1
For i = LBound(vetor) To UBound(vetor)
If vetor(i) = "-" Or vetor(i) = "x" Then '- e x são os separadores
vSeparador = True
Else
texto = texto & " " & Trim(vetor(i))
End If
If vSeparador = True Or i = UBound(vetor) Then
contador = contador + 1
Application.Cells(1, contador).Value = texto
texto = ""
vSeparador = False
End If
Next
End Sub

é um exemplo altere de acordo as sua necesidades.

cumps

acao

Edited by acao

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.