Sulla base di quel che ho capito prova questa macro:
- Codice: Seleziona tutto
Sub ReplicaR()
Dim oArr(), I As Long, J As Long, lastC As Long
Dim myC As String, K As Long
'
myC = "A:H" '<<< Le colonne da duplicare (deve partire a A)
'
lastC = Cells(Rows.Count, "C").End(xlUp).Row
ReDim oArr(1 To (lastC - 1) * 2, 1 To Range(myC).Columns.Count)
For I = 2 To lastC
K = (I - 2) * 2 + 1
For J = 1 To Range(myC).Columns.Count
oArr(K, J) = Cells(I, J)
oArr(K + 1, J) = oArr(K, J)
Next J
oArr(K + 1, 3) = "PAR"
Next I
Range("A2").Resize(UBound(oArr), UBound(oArr, 2)).Value = oArr
End Sub
Va messa in un "modulo standard" dell'editor delle macro; per questo, partendo da Excel:
-premi Alt-F11 per aprire l'editor delle macro
-Menu /Inserisci /Modulo
-Copia il codice e incollalo nel frame dx del modulo appena creato
Personalizza eventualmente la riga marcata <<< come da commento.
Poi torna su Excel e quando hai i dati iniziali pronti lancia la macro ReplicaR:
-premi Alt-F8
-seleziona ReplicaR dall'elenco di macro disponibili
-premi Esegui
Fai sapere...