RuiC. Posted February 28, 2013 at 10:53 AM Report #497349 Posted February 28, 2013 at 10:53 AM (edited) 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 Posted February 28, 2013 at 07:18 PM Report #497423 Posted February 28, 2013 at 07:18 PM (edited) 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
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now