unione paragrafi

Hai un problema con Excel?

Nuova discussione

unione paragrafi
di Traniwebdesign data: 22/01/2015 17:57:33
ciao a tutti, h oun mega problema...
ho un file csv con degli articoli...ora il file csv è cosi composto. ( sempio di 1 prodotto )
cellaA B C D E
200550 it 1 1 Ancora galleggiante per lance di salvataggio,completa di cavi,approvata solas 74
200550 it 1 2 . Art. 0200550 lunghezza mm. 560, per scafi inferiori a mt. 5,5, Art. 0200551 lu
200550 it 1 3 nghezza mm. 700, per scafi inferiori a mt. 7,5, Art. 0200552 lunghezza mm. 800,
200550 it 1 4 per scafi inferiori a mt. 7,5
202462 it 1 0 .

praticamente dovrei concatenare le celle E1/E2/E3/E4 cosi da farmi uscire un testo tutto unito e non spezzato su piu celle.
poi per il prodotto successivo ripetero la formula o la funzione.
il concatenamento lo dovrei fare su una ipotetica cella F1 cosi poi vado a filtrare il tutto e sono ok..
esiste un modo in visual basic o qulche funziona concatena con variante ?
grazi mille a tutti..
di Mister_x (utente non iscritto) data: 22/01/2015 18:30:20
ciao

in questo caso era meglio avere a disposizione il file con piu' dati
comunque se i valori si trovano sempre su 4 righe e il codice in A determina le scritte la funzione da inserire in F1 puo' essere questa

=SE(E(A1=A1;A2=A1;A3=A1;A4=A1);E1&E2&E3&E4;"")

allego il file di prova

ciao
di Traniwebdesign data: 22/01/2015 18:37:11
n, purtroppo non sono sempre 4.possono essere 3 righe, 2 o anche 6 dipende dal prodotto...
di Traniwebdesign data: 22/01/2015 18:41:58
e poi sono 4000 prodotti........

di Mister_x (utente non iscritto) data: 22/01/2015 19:14:01
ciao

da inserire nel foglio di lavoro

allego sempre il file di prova

ciao

Sub UnioneCelle()
Dim i, Nrig As Long
Dim Stringa As String
Dim valRA As Variant
Stringa = ""
Range("F1:F10000").ClearContents
Nrig = 1
valRA = Cells(1, 1)
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
      Stringa = Stringa & Cells(i - 1, "E")
  If Cells(i, 1) < > valRA Then
    Cells(Nrig, "F") = Stringa
    Stringa = ""
    Nrig = i
    valRA = Cells(i, 1)
  End If
Next i
End Sub

Vuoi Approfondire?