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]

is there some kind of library that has all the codes for the double byte characters?

An easy way is to look through the available characters list

Ribbon->Insert->Symbol

Choose, for ex., the font Arial Unicode and scroll to find the available characters.

 

[bizpioneer]

Hi

％

is a Unicode character.

Place it in A1 and use:

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

Genius!! thanks a lot

 

[pgc01]

You're welcome. Thanks for the feedback.