073. Duplicare righe excel modificando il contenuto

Download PDF

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

The following two tabs change content below.