(excel) funzione concatena

[abadan]

Ciao a tutti , ho un piccolo grande problema mi aiutate a risolverlo?
ho una colonna con più di 2000 righe; ho la necessità di concatenare tutte le righe in un'unica cella.
come si fa?

grazie in anticipo

[abadan]

......il contenuto della cella lo devo copiare in una query di un programma per la ricerca in un database....

secondo la vostra esperienza si può fare?

[ricky53]

Ciao,
si può fare ma ... con tanti dati tutti insieme potresti avere qualche problema e perdere dei dati.

Che separatore ci deve essere tra un dato ed un altro?


Che versione di "Office" utilizzi?
A tal fine ti ricordo la Campagna Versione Office

[abadan]

grazie per l'interessamento!!!

ho già creato un concatena tra celle per avere il seguente risultato:
'dato','dato',etc etc
pertanto nella colonna A ho già il dato finale mi serve la funzione che concatena un intervallo di celle A2:A200

[abadan]

....Office 2010....

[ricky53]

Ciao,
gli apici devono esserci?

Le righe sono 2.000 oppure 200 ?

[abadan]

gli apici sono necessari ..... i dati possono variare ho gestito fino a 2000 record ma di solito sono circa 500

[abadan]

gli apici sono necessari ..... i dati possono variare ho gestito fino a 2000 record ma di solito sono circa 500

[ricky53]

Ciao,
prova con questo codice

Codice: Seleziona tutto

Sub Concatena_Celle()
    Dim UR As Long
    UR = Range("A" & Rows.Count).End(xlUp).Row
    [A1] = "'"
    Application.ScreenUpdating = False
   
    For I = 2 To UR
        [A1] = [A1] + "','" + Cells(I, 1)
    Next I
    [A1] = [A1] + "'"
   
    Application.ScreenUpdating = True
    MsgBox "Effettuato il Concatenamento di  " & UR - 1 & "  celle"
End Sub

In "A1" viene riportato il concatenamento delle celle che partono da "A2" ed arrivano fino al valore della variabile "UR"

[abadan]

grazie 1000 ci provo

[ricky53]

Buone prove e ...
ma poi con quello stringone ci fai una query?

Sono curioso di sapere su cosa fai la query!

[abadan]

FUNZIONAAAAAAAAAAAAAAAAAAA
sei un mostro!!!!!!
grazie 1000 - mi hai salvato

[ricky53]

Ciao,
di bravura ovviamente, altrimenti mi offendo. Eh, Eh !!!

Alla aprossima