Dal tuo esempio (tutte le celle hanno il carattere | come ultimo) puoi usare questa macro:
Option Explicit
Sub TogliCarattere()
Dim x As Long
For x = 7 To Range("F" & Rows.Count).End(xlUp).Row
Range("F" & x) = Left(Range("F" & x), Len(Range("F" & x)) - 1)
Next x
End Sub[Modificato da rollis13 03/12/2022 01:02]
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)