Se vuoi eliminarle allora modifica la modifica aggiungendo il blocco per colonne F:
- Codice: Seleziona tutto
ThisWorkbook.Activate
For Each myC In Range(Range("K7"), Range("K7").End(xlDown))
If Len(myC.Value) > 1 Then
myC.Value = Val(Trim(myC.Value))
End If
Next myC
'>>>>> BLOCCO DA AGGIUNGERE:
For Each myC In Range(Range("F7"), Range("F7").End(xlDown))
If Len(myC.Value) > 1 Then
myC.Value = Replace(myC.Value, " |", "; ", , , vbTextCompare)
End If
Next myC
'<<<< BLOCCO AGGIUNTO
Sheets("betfaire").Select
Noterai che sostituisco il carattere "|" (pipe) con ";" (punto e virgola), mi pare che rimanga meglio leggibile rispetto alla cancellazione e basta.
Ciao
