Condividi:        

Estrai testo tra simboli

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Estrai testo tra simboli

Postdi apocrimata75 » 17/10/13 12:24

Data la cella A1 contenente la stringa "W-W(OT)-W-L-W(AP)-W", vorrei poter estrarre in 6 celle distinte i valori compresi tra i segni - ed ottenere pertanto: in a2 "W", in a3 "W(OT) ecc.ecc.

Ho provato i vari stringa estrai ma non ho risolto il problema, tipo
Codice: Seleziona tutto
=SE(A1="";"";STRINGA.ESTRAI(A1;3;RICERCA("-";A1)-1))


Potreste aiutarmi? Grazie anticipatamente.
Windows 7 - Office 2010
apocrimata75
Utente Senior
 
Post: 189
Iscritto il: 28/05/11 13:22

Sponsor
 

Re: Estrai testo tra simboli

Postdi Dylan666 » 17/10/13 13:37

Ma non basta la funzione "Dividi testo in colonne" dando come separatore il trattino?
Avatar utente
Dylan666
Moderatore
 
Post: 39988
Iscritto il: 18/11/03 16:46

Re: Estrai testo tra simboli

Postdi apocrimata75 » 17/10/13 15:43

Partendo dalla risposta di Dylan666 ho creato questa macro

Codice: Seleziona tutto
Sub Macro3()
'
' Macro3 Macro
'
    Range("CJ2:CJ31").Select
    Selection.TextToColumns Destination:=Range("CN2"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="-", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1)), TrailingMinusNumbers:=True
    ActiveWindow.SmallScroll Down:=0
    Range("CM1").Select
End Sub


dove cj2:cj31 sono le celle che contengono i valori separati dal "-".

L'unico problema che la macro si ferma al momento in cui chiede di "Sostituire il contenuto delle celle di destinazione?" e bisogna premere OK, si può evitare?
Windows 7 - Office 2010
apocrimata75
Utente Senior
 
Post: 189
Iscritto il: 28/05/11 13:22

Re: Estrai testo tra simboli

Postdi Dylan666 » 17/10/13 16:16

Prova con:
APPLICATION.DISPLAYALERTS=FALSE

http://msdn.microsoft.com/en-us/library ... 39782.aspx
Avatar utente
Dylan666
Moderatore
 
Post: 39988
Iscritto il: 18/11/03 16:46

Re: Estrai testo tra simboli

Postdi apocrimata75 » 17/10/13 16:27

Spero di averla inserita correttamente

Codice: Seleziona tutto
Sub Macro3()
'
' Macro3 Macro
'

'
    Range("CJ2:CJ31").Select
    Selection.TextToColumns Destination:=Range("CN2"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="-", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1)), TrailingMinusNumbers:=True
    ActiveWindow.SmallScroll Down:=0
    Application.DisplayAlerts = False
    Range("CM1").Select
End Sub


ma non va
Windows 7 - Office 2010
apocrimata75
Utente Senior
 
Post: 189
Iscritto il: 28/05/11 13:22

Re: Estrai testo tra simboli

Postdi Dylan666 » 17/10/13 19:27

la riga che ti ho dato mettila all'inizio
Avatar utente
Dylan666
Moderatore
 
Post: 39988
Iscritto il: 18/11/03 16:46

Re: Estrai testo tra simboli

Postdi apocrimata75 » 18/10/13 10:48

Perfetto funziona, grazie mille.
Windows 7 - Office 2010
apocrimata75
Utente Senior
 
Post: 189
Iscritto il: 28/05/11 13:22


Torna a Applicazioni Office Windows


Topic correlati a "Estrai testo tra simboli":


Chi c’è in linea

Visitano il forum: Gianca532011, Marius44 e 60 ospiti