Ciao a tutti
Celle A1:A10 inserisci i caratteri
vb
Sub stringa()
Dim b, c, d, e, f, Rr
Rr = 1
For b = 2 To 6
For c = b + 1 To 7
For d = c + 1 To 8
For e = d + 1 To 9
For f = e + 1 To 10
Cells(Rr, 2) = Cells(1, 1) & Cells(b, 1) & Cells(c, 1) & Cells(d, 1) & Cells(e, 1) & Cells(f, 1)
Rr = Rr + 1
Next
Next
Next
Next
Next
End SubExcel 2013