Condividi:        

Excel - Separare in una stringa elementi separati da virgola

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

Excel - Separare in una stringa elementi separati da virgola

Postdi al3ssio » 10/07/08 14:41

Qualcuno sa gentilmente dirmi come fare a separare in una stringa di testo n (variabile) parti (di lunghezza variabile) separate da una virgola? C'e' una funzione o un insieme di funzioni che possono aiutarmi?

Grazie mille, come sempre!

Alessio


Esempio:

12345,5654,234

ma anche

23,2343,1234567543,1
al3ssio
Utente Senior
 
Post: 238
Iscritto il: 08/05/04 15:59

Sponsor
 

Re: Excel - Separare in una stringa elementi separati da virgola

Postdi Anthony47 » 11/07/08 09:10

Si tratta di dati in formato "csv" (Comma Separated Values), che suddividi su piu' colonne tramite il comando Testo in colonne. Selezioni tutte le celle che devi convertire, Menu /Dati /Testo in colonne; nel primo pannello specificherai "Delimitati", Avanti; spunti "Virgola", Avanti; scegli eventuali formati e altre opzioni avanzate; Fine.

Ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Excel - Separare in una stringa elementi separati da virgola

Postdi al3ssio » 11/07/08 09:33

Merci Anthony, tu sei il mio oracolo!!!
al3ssio
Utente Senior
 
Post: 238
Iscritto il: 08/05/04 15:59

Separare in una stringa elementi separati da virgola

Postdi raimea » 29/04/13 20:46

ciao
mi servirebbe una macro che svolga la stessa cosa.

provo a descrivere:
in col AF2 , a righe alterne , ho la cella che contiene 20 numeri separati dalla virgola.

vorrei scrivere tali num in 20 celle separate partendo dalla C2:V2
poi in C3:V3 ,senza mettere la riga intermedia vuota.

provo ad allegare il file.

https://dl.dropboxusercontent.com/u/96374724/scompatta.xls

grazie
ciao
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: Excel - Separare in una stringa elementi separati da vir

Postdi wallace&gromit » 29/04/13 21:53

ciao Raimea,
deve essere per forza una macro o ti va bene questa formula (da inserire in C4 e copiare)?
Codice: Seleziona tutto
=--STRINGA.ESTRAI(INDIRETTO(INDIRIZZO(RIF.RIGA()*2-2;32));1+(RIF.COLONNA()-3)*3;2)
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: Excel - Separare in una stringa elementi separati da vir

Postdi raimea » 30/04/13 05:54

ciao
ho provato la formula e funziona
al momento mi va bene anche cosi'.
se avro bisogno x forza di una macro mi faro' risentire
quindi grazie mille
ciao
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: Excel - Separare in una stringa elementi separati da vir

Postdi raimea » 30/04/13 10:37

ciao
torno alla richiesta principale di separare i num tramite macro.
la formule mi rallenta molto il file nella quale è stata applicata, 20 colonne x 100 righe

vi ringrazio
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: Excel - Separare in una stringa elementi separati da vir

Postdi scossa » 30/04/13 11:28

raimea ha scritto:ciao
torno alla richiesta principale di separare i num tramite macro.
la formule mi rallenta molto il file nella quale è stata applicata, 20 colonne x 100 righe


Prova questo codice:

Codice: Seleziona tutto
'---------------------------------------------------------------------------------------
' Procedure : EstraiNumeri
' Author    : scossa
' Date      : 30/04/2013
'---------------------------------------------------------------------------------------
'
Public Sub EstraiNumeri()

  Dim ws As Worksheet
  Dim rng As Range
  Dim cella As Range
  Dim sVal As String
  Dim aVal As Variant
  Dim j As Long, nMax As Long, nRow As Long
  Dim bCalc As XlCalculation
 

  On Error GoTo EstraiNumeri_Error
 
  With Application
    bCalc = .Calculation
    .Calculation = xlCalculationManual
    .ScreenUpdating = False
  End With
 

  Set ws = ActiveSheet 'eventuaalmente specificare
  Set rng = Intersect(ws.UsedRange, ws.Columns("AF"))
  nRow = 2
  For Each cella In rng
    sVal = cella.Value
    If sVal <> "" Then
      aVal = Split(sVal, ",")
      nMax = UBound(aVal)
      For j = 0 To nMax
        ws.Cells(nRow, 3 + j).Value = aVal(j)
      Next
      nRow = nRow + 1
    End If
  Next
 
  On Error GoTo 0
  'Exit Sub

EstraiNumeri_Error:

  Set rng = Nothing
  Set ws = Nothing
 
  With Application
    .Calculation = bCalc
    .ScreenUpdating = True
  End With
     
  If Err.Number <> 0 Then
    MsgBox "Error: " & Err.Description, vbCritical, "ERRORE"
  End If
End Sub
Bye!
scossa

Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)
Avatar utente
scossa
Utente Senior
 
Post: 427
Iscritto il: 01/04/12 16:40
Località: Provincia di Verona

Re: Excel - Separare in una stringa elementi separati da vir

Postdi raimea » 30/04/13 18:02

:o :o :o
ottimo
tutto ok
grazie
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago


Torna a Applicazioni Office Windows


Topic correlati a "Excel - Separare in una stringa elementi separati da virgola":


Chi c’è in linea

Visitano il forum: Nessuno e 27 ospiti