| | Post: 1 | Registrato il: 27/11/2010
| Città: MILANO | Età: 28 | Utente Junior | 2013 | | OFFLINE | |
|
26/12/2015 19:22 | |
Ciao a tutti,
ho un file di testo copiato su excel con dei dati organizzati su righe in questo modo:
Riga 1: testo
Riga 2: testo
Riga 3: spazio
Riga 4: testo
Riga 5: testo
Riga 6: spazio
Riga 7: testo
Riga 8: testo
Riga 9: spazio
Riga 10: testo
Riga 11: testo
etc.
Avrei la necessità di invertire la riga 4 con la 2, la 10 con la 8 e così avanti per tutto il testo.
Esiste qualche automatismo ad hoc che permetta di farlo?
Grazie |
|
| | Post: 151 | Registrato il: 24/06/2015
| Città: CATANIA | Età: 80 | Utente Junior | Excel2019 | | ONLINE |
|
26/12/2015 21:11 | |
Ho ipotizzato che i dati siano nella colonna A
Vedi se ti va bene questo codice (da inserire in un Modulo e da associare ad un pulsante Modulo, no ActiveX)
Option Explicit
Sub inverti()
Dim uRg As Long, i As Long
Dim a As String, b As String
uRg = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 4 To uRg Step 6
a = Cells(i, 1).Text: b = Cells(i - 2, 1).Text
Cells(i - 2, 1) = a: Cells(i, 1) = b
Next i
End Sub
Prova e fai sapere. Ciao,
Mario |
| | Post: 1 | Registrato il: 27/11/2010
| Città: MILANO | Età: 28 | Utente Junior | 2013 | | OFFLINE | |
|
26/12/2015 21:48 | |
funziona perfettamente, grazie mille! |
| | Post: 152 | Registrato il: 24/06/2015
| Città: CATANIA | Età: 80 | Utente Junior | Excel2019 | | ONLINE |
|
27/12/2015 07:44 | |
Grazie a te per il cortese riscontro.
Ciao,
Mario |
|
|