Ci scrivono:
Buongiorno,
avrei una piccola esigenza su excel.
ho un elenco di 2000 righe circa con una decina di colonne.
dovrei duplicare le righe n-volte e per ogni riga duplicata modificare i valori di alcune celle aggiungengo dei suffissi\prefissi in base alla colonna.
es.
riga base:
ColA ColB ColC ColD ColE
A B C D E
A1 B1 C1 D1 E1
queste righe dovrei duplicarle n volte creando con questa regola
ColA ColB ColC ColD ColE
A_tex B_pippo C D_miao E_sole
A1_tex B1_pippo C1 D1_miao E1_sole
ciao_A B_pluto C D_zio E
ciao_A1 B1_pluto C1 D1_zio E1
grazie mille del supporto che potrete darmi
Risposta:
Ho predisposto una macro da modificare in base alle esigenze reali del nostro lettore.
Per ogni riga dell’elenco ‘elaborato’ potrà agire su ognuna delle 10 colonne,
agendo sul seguente codice:
'Tipo di modifica 1 Sheet2.Cells(Last_Row_2 + 1, 1) = Sheet1.Cells(i, 1) & "_tex" '>>> modifica la colonna 1 Sheet2.Cells(Last_Row_2 + 1, 2) = Sheet1.Cells(i, 2) & "_pippo" '>>> modifica la colonna 2 Sheet2.Cells(Last_Row_2 + 1, 3) = Sheet1.Cells(i, 3) '>>> modifica la colonna 3 Sheet2.Cells(Last_Row_2 + 1, 4) = Sheet1.Cells(i, 4) & "_miao" '>>> modifica la colonna 4 Sheet2.Cells(Last_Row_2 + 1, 5) = Sheet1.Cells(i, 5) & "_sole" '>>> modifica la colonna 5 Sheet2.Cells(Last_Row_2 + 1, 6) = Sheet1.Cells(i, 6) & "_tex" '>>> modifica la colonna 6 Sheet2.Cells(Last_Row_2 + 1, 7) = Sheet1.Cells(i, 7) & "_pippo" '>>> modifica la colonna 7 Sheet2.Cells(Last_Row_2 + 1, 8) = Sheet1.Cells(i, 8) '>>> modifica la colonna 8 Sheet2.Cells(Last_Row_2 + 1, 9) = Sheet1.Cells(i, 9) & "_miao" '>>> modifica la colonna 9 Sheet2.Cells(Last_Row_2 + 1, 10) = Sheet1.Cells(i, 10) & "_sole" '>>> modifica la colonna 10 'etc......
A voi il file:
APRI
Riccardo Vincenti
Riccardo Vincenti
Ultimi post di Riccardo Vincenti (vedi tutti)
- 073. Duplicare righe excel modificando il contenuto - 6 Ottobre 2017
- 072. Estrazione numeri casuali - 6 Ottobre 2017
- 071. Estrazione casuale valori da un elenco - 5 Ottobre 2017
- 070. Contare dati univoci senza Pivot - 21 Settembre 2017
- 069. Aggiungere intervalli ad una data: Date Add in Excel - 21 Settembre 2017