how clean strange symbols(?þ) from Table or range

[Ali M]

Hi experts
I face dilemma when I received file by another person .
it shows after name like this :

item?þ
itemþ?
so how can I delete these from all of my table or in used range to become like this
item
is there any macro to clean the cells in table or in used range?
this symbols cause me big troubles with another macros(can't run)
thanks

 

[Ali M]

ok maybe I attach sample and use VB Project Explorer's Intermediate window, you will understand what I 'm talking about it , otherwise ignore that.
thank you for your time .

 

[MARK858]

Run the code below that prints to the Immediate window. What numbers appears next to the characters that look like the one you see?

Sub asceeee()
    Dim i As Long
    For i = 123 To 256
        Debug.Print ChrW(i) & " " & i
    Next
End Sub

 

[Ali M]

@MARK858
here is the pictures

 

[MARK858]

Odd because when I run it, there are at least 2 symbols that look like they could be it but there doesn't appear to be any in your list.

I know that the characters in the ASCII extended list vary by region but I expected it to be there somewhere.
I'm afraid that I can't do anything there.

 

[Ali M]

well my language is Arabic , I'm still surviving by searching in internet to find macro delete any ASCII symbols .
any way thanks for your trying .

 

[MARK858]

I'm still surviving by searching in internet to find macro delete any ASCII symbols

In general you use find and replace to remove ASCII characters using either Chr(ASCII number) or ChrW(ASCII number) or you use regular expressions (a bit more complicated if you aren't familiar with them)

 

[Ali M]

In general you use find and replace to remove ASCII characters using either Chr(ASCII number) or ChrW(ASCII number) or you use regular expressions (a bit more complicated if you aren't familiar with them)

so you mean it can fix my case?
if it's so . good news , bad new I don't find suitable macro to do that . I tested some macro, but does not succeed so far.

 

[MARK858]

so you mean it can fix my case?

Not unless we can find the right number and it would normally be in that range.

You could try running the macro I posted, changing the numbers up 500 at a time until you reach 9000 and might get lucky and come across it but I'm not swearing to that.

You could also see if you get a number with the formula

=CODE(RIGHT(A8,1))

or

=UNICODE(RIGHT(A8,1)

changing the A8 to a cell reference where the strange character is the last character

 

[Ali M]

I use the formulas and this is what I got

assss.xlsm
	G	H
2	254	8207
3	56	56
4	50	50
5	51	51
6	48	48
7	55	55
8	55	55
9	48	48
10	52	52
11	48	48
12	54	54
13	55	55
14	57	57
15	53	53
16	48	48
17	49	49
18	48	48
19	50	50
20	48	48
21	56	56
22	56	56
23	54	54
24	48	48
25	54	54
26	54	54
27	48	48
28	53	53
29	48	48
30	48	48
31	54	54
32	48	48
33	48	48
34	52	52
35	55	55
36	51	51
37	48	48
38	48	48
39	57	57
40	48	48
41	51	51
42	48	48
43	56	56
44	49	49
45	54	54
46	56	56
47	55	55
48	53	53
49	54	54
50	50	50
51	48	48
52	53	53
53	48	48
54	54	54
55	53	53
56	48	48
57	48	48
58	48	48
59	48	48
60	48	48
61	56	56
62	50	50
63	54	54
64	53	53
65	55	55
66	48	48
67	56	56
68	57	57
69	52	52
70	48	48
71	48	48
72	48	48
73	53	53
74	48	48
75	53	53
76	48	48
77	54	54
78	56	56
79	48	48
80	48	48
81	49	49
82	53	53
83	56	56
84	48	48
85	56	56
86	56	56
Sheet1

Cell Formulas
Range	Formula
G2:G86	G2	=CODE(RIGHT(A1,1))
H2:H86	H2	=UNICODE(RIGHT(A1,1))

You could try running the macro I posted, changing the numbers up 500 at a time until you reach 9000 and might get lucky and come across it but I'm not swearing to that.

from 131-159 , 439-500 ,8936-9000gives "?"
the rest as in pictures

 

[MARK858]

A bit odd that the 254 didn't show anything when we ran the code earlier as that is one of the umbers that appeared to match the character when I ran it.

Anyway, save a copy of your workbook then try running the code below

Sub Remove8207()
  With ActiveSheet.UsedRange
      .Replace What:=ChrW(8207), Replacement:="", LookAt:=xlPart
      .Replace What:=ChrW(254), Replacement:="", LookAt:=xlPart
  End With
End Sub