Prova con questa macro:
- Codice: Seleziona tutto
Sub byN()
Dim mySt As Long, myPath As String
'
mySt = 10 '<<< Quante righe per file
myPath = "C:\Users\UTENTE1\Documents\" '<<< Il Path (con \ finale)
'
For I = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step mySt
NextF = FreeFile
Open myPath & I & "-" & (I + mySt - 1) & ".csv" For Output As #NextF
For j = 0 To mySt - 1
Print #NextF, Cells(I + j, 1)
Next j
Close
Next I
End Sub
Le righe marcate <<< vanno personalizzate con le tue informazioni; il Path (percorso) deve gia' esistere.
Poiche' il file contiene un solo campo, piu' che un "csv" sara' un puro testo.
Ti raccomando di provare prima con poche decine di nominativi...
Ciao