Salve ho trovato questo codice che fa al caso mio, o almeno per quanto voglio realizzare, c'è un solo problema che è costruito per excel, sto tentendo di adattarlo per una tabella access ma ho grossi problemi anche perchè conosco molto poco il Vba. Mi aiutereste. Ringrazio da subito chi mi darà una mano. Ecco il codice
Sub DividiNomi()
Dim Nnomi As Long, NStep As Long
Dim i As Long, A As Long, Nriga As Long
Dim nome As String
Nnomi = Cells(Rows.Count, "O").End(xlUp).Row
NStep = Application.Ceiling(Cells(Rows.Count, "B").End(xlUp).Row / (Nnomi - 1), 1)
Nriga = 2
For i = 2 To Nnomi
nome = Cells(i, "O").Value
For A = 1 To NStep
If Nriga > Cells(Rows.Count, "B").End(xlUp).Row Then Exit For ''controllo fine record
Cells(Nriga, "A") = nome
Nriga = Nriga + 1
Next A
Next
End Sub