Moderatori: Anthony47, Flash30005
Sub Cambinaz()
UR = Range("A" & Rows.Count).End(xlUp).Row
URE = Range("A" & Rows.Count).End(xlUp).Row
Range("E1:E" & URE).ClearContents
For RRA = 1 To UR
AV = Range("A" & RRA).Value
For RRB = 1 To UR
BV = Range("B" & RRB).Value
For RRC = 1 To UR
CV = Range("C" & RRC).Value
Cells(Rows.Count, 5).End(xlUp).Offset(1, 0).Value = AV & BV & CV
Next RRC
Next RRB
Next RRA
End Sub
Torna a Applicazioni Office Windows
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Trasformare celle con formattazioni in html Autore: servicedynergy |
Forum: Applicazioni Office Windows Risposte: 5 |
Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 4 |
confrontare e evidenziare 2 fogli excel Autore: niccia |
Forum: Applicazioni Office Windows Risposte: 7 |
Visitano il forum: Nessuno e 74 ospiti