VBA concatena stringa

Hai un problema con Excel?

Nuova discussione

VBA concatena stringa
di lorenzo (utente non iscritto) data: 18/12/2013 11:29:48
ciao a tutti, non riesco a creare una macro che mi permetta di concatenare i valori delle celle in base ad un determinato valore:
ecco i dati

colonna A colonna B colonna C ( sequenza) colonna D ( risultato atteso)
0000010200 Caratteristiche DSL-4 8 1
0000010200 Rif. Pollution Zero 2
0000010200 mod. 5800/1 3 Caratteristiche DSL-4 8 Rif. Pollution Zero mod. 5800/1
0000010201 Caratteristiche 123 1
0000010201 Prova 1234 2 Caratteristiche 123 Prova 1234

vorrei UNIRE nella colonna D le stringhe inserite nella colonna B, in base alla stessa corrispondenza di valori nella colonna A.
dovrei inoltre unire le celle della colonna B sono nell'ultima sequenza valida per lo stesso codice (colonna C)
spero di essere stato chiaro

0000010201
di Grograman (utente non iscritto) data: 18/12/2013 11:41:02
Io vorrei un file di esempio su come hai i dati e come li vuoi perchè non ci ho capito una fava ^_^
di lorenzo (utente non iscritto) data: 18/12/2013 11:42:20
ciao
il file è allegato nel precedente POST

fammi sapere se non ti è chiaro

di patel data: 18/12/2013 13:33:06
prova questa macro

Sub a()
LR = Cells(Rows.Count, "A").End(xlUp).Row
r = LR
Do While r > 0
 ris = ""
  seq = Cells(r, 3)
  If seq < 2 Or WorksheetFunction.IsNumber(seq) = False Then Exit Do
  For r1 = r To r - seq + 1 Step -1
    ris = " " & Cells(r1, 2) & ris
  Next
  Cells(r, 4) = ris
  r = r - seq
Loop
End Sub

di lorenzo (utente non iscritto) data: 18/12/2013 14:04:20
grande patel
funziona grazie mille.....

Vuoi Approfondire?