[EXCEL] Eliminare un carattere strano

[ZeroIce78]

Mandami, se puoi, un pezzo di file dove è presente il carattere e vedo se ti posso aiutare

[corvo4791]

te lo metto qui. Eccolo ---------------------> ᐧ

Comunque ho risolto, in una maniera un pò macchinosa, ma ce l'ho fatta.

Praticamente apro un file excel esterno dove, in una cella, c'è la formula: "=SOSTITUISCI(I1;"ᐧ";"-")"

copio questa cella e la incollo sotto la cella dalla quale voglio eliminare il pallino, in modo che la sostituzione la fa da excel e non da visual basic. Poi mi copio il risultato, nel quale il pallino è stato sostituito dal "-" e lo incollo nella cella sopra come speciale. Infine cancello la riga con il codice.

Praticamente faccio cos' per tutta la colonna in cui compare questo cavolo di carattere.

Ecco il codice:

Sub elimino_pallino(listinobrand)  
celle = Cells(Rows.Count, 1).End(xlUp).Row  
For iiii = 2 To celle 
If Cells(iiii, 9) <> "" Then 
Application.Workbooks.Open ("pallino.xls") 
Cells(2, 9).Select Selection.Copy 
Workbooks(listinobrand).Worksheets("listino").Activate 
Cells(iiii + 1, 9).Select 
ActiveSheet.Paste 
Cells(iiii + 1, 9).Select Selection.Copy 
Cells(iiii, 9).Select Selection.PasteSpecial Paste:=xlPasteValues 
Cells(iiii + 1, 9).Select 
Selection.Clear End If Next iiii End Sub

Comunque, se hai un metodo più semplice, sarei felice di darci un occhiata.

[ZeroIce78]

Ciao,
ho provato con questo loop e funziona

Dim Simbolo As Variant
Dim iCella_Simbolo As Long
Dim Carattere As Variant
iCella_Simbolo = 1
Do
Simbolo = Trim$(Worksheets("Foglio1").Range("a" & iCella_Simbolo).Text)
On Error Resume Next
Carattere = Asc(Simbolo)

If Carattere = 63 Then
Worksheets("Foglio1").Range("A" & iCella_Simbolo) = "-"
End If

iCella_Simbolo = iCella_Simbolo + 1
Loop While Worksheets("Foglio1").Range("a" & iCella_Simbolo).Text <> ""

' Chiaramente ricordati di cambiare il nome del Worksheets e la cella di riferimento dove si trova il simbolo Range("A"

Fammi sapere