Find replace macro signle byte with double byte

[bizpioneer]

So I am trying find replace macro to replace any % "single byte" to ％ double byte but looks like macro doesnt recogize double bytes

So here is my macro

Range("A1").Select
columns("K:N").Select
Selection.Replace What:="%", Replacement:="％", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("H1").Select
Range("A1").Select

When I run it just replace the single byte sign with a single byte sign, anyway I can fix that so it replaces it with the double byte?

Thanks,

 

[pgc01]

Hi

First of all: all characters in excel vba are, by default, double byte characters.

I think what you want is to replace the character with code H0025 (the default Percent "%" sign, from the ascii table) by the character HFF05 (Unicode Fullwidth Percent Sign).

In vba you can specify a character given its code with ChrW()

I don't understand what the Select's are doing in your code. Using Select in vba is bad practice, it makes the code less efficient and more difficult to read.

If I understand correctly you want:

Columns("K:N").Replace What:="%", Replacement:=ChrW(&HFF05), LookAt:=xlPart, _
    SearchOrder:=xlByRows, SearchFormat:=False, ReplaceFormat:=False

Please try

 

[bizpioneer]

It worked! thanks a million. To answer your question the selects are there because I simply suck :D I will take them out in the future! Thanks again

 

[pgc01]

I'm glad it helped. Thanks for the feedback.

 

[bizpioneer]

Hey, it's me again. I would like to do the same thing, this time replacing the following signs " & ® with the double byte alternatives, any idea how to get the code for these? is there some kind of library that has all the codes for the double byte characters?

 

[Jonmo1]

To get the ascii code for a specific character, you can just type that character in a cell (say A1)
Then this formula in another cell will tell you it's code

=CODE(A1)

 

[bizpioneer]

In this case ％ should show HFF05 but the formula is showing it as 63 any ideas?

 

[Jonmo1]

Oh, differnet standard....

It's still valid, but in vba use
Replacement:=Chr(63)
instead of
Replacement:=ChrW(&HFF05)

 

[bizpioneer]

didn't work when I used =Chr(63) it replaced the sign with a question mark, while ChrW(&HFF05) worked perfectly here is the formula that I used

Range("A1").Select
Cells.Replace What:="%", Replacement:=Chr(63), LookAt:=xlPart, SearchOrder _
:=xlByRows, SearchFormat:=False, ReplaceFormat:=False

 

[pgc01]

In this case ％ should show HFF05 but the formula is showing it as 63 any ideas?

Hi

％

is a Unicode character.

Place it in A1 and use:

MsgBox Hex(AscW(Range("A1").Value))