Sub Estraz() ur = Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To ur a = Len(Cells(i, 1)) b = "'" For j = 1 To a If IsNumeric(Mid(Cells(i, 1), j, 1)) Then b = b + Mid(Cells(i, 1), j, 1) End If Next j Cells(i, 3) = b Next i End Sub
L2018, 28/06/2021 13:21:@Joe ottima soluzione che allora puo' essere direttamente abbreviata, per esempio =SINISTRA(DESTRA(A2;5);3) peccato però che le targhe in A4 e in A20 siano diverse dalle altre Leo
Function TARGA(tg) Dim x, k For x = 1 To Len(tg) If IsNumeric(Mid(tg, x, 1)) Then k = k & Mid(tg, x, 1) Next x TARGA = k End Function