Selecionar determinadas partes texto numa célula excel

[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 February 28, 2013 at 04:10 PM by RuiC.

[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 February 28, 2013 at 11:15 PM by acao