in caso prova questo codice (dovrai forse modificare il nome del foglio nel codice (dove vedi la scritta verde), devi aprire l'editor vba (alt + F11) dal tuo foglio di excel e lo incolli, chiudi l'editor e da excel premi ALT + F8, seleziona la macro INSERISCI_CARATTERE_INIZIO_FINE_CELLA e premi esegui.
codice:Public Sub INSERISCI_CARATTERE_INIZIO_FINE_CELLA() Dim MyRiga As Integer, MyCarattere As String MyRiga = InputBox("INSERIRE IL NUMERO DI RIGA DA CUI INIZIANO I VALORI DA MODIFICARE", "inserisci il Dato") 'chiede la riga da cui iniziare l'inserimento MyCarattere = InputBox("INSERIRE IL CARATTERE DA INSERIRE", "inserisci il Dato") 'chiede il carattere da inserire MyRiga = MyRiga - 1 'tolgo uno al valore richiesto per poter iniziar dalla riga corretta INIZIO_CONTROLLO: MyRiga = MyRiga + 1 'valorizzo la variabile che identifica la riga Sheets("FOGLIO1").Select 'seleziono il foglio di lavoro 'tramire if verifico che se la cella è vuota, se vero messaggio e uscita dalla routine If Range("A" & MyRiga).Value = "" Then MsgBox "FINITO" Exit Sub End If Range("A" & MyRiga).Value = MyCarattere & Range("A" & MyRiga).Value & MyCarattere 'modifico la cella GoTo INIZIO_CONTROLLO 'torno a inizio_controllo End Sub