Ir para o conteúdo
  • 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

Mensagens Recomendadas

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

Editado por RuiC.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros 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

Editado por acao

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.