[SOLVED] find and replace certain characters

imichalopo · #1 01-31-2010, 06:53 AM

hello all,

I have some records that include greek addresses. The greek alphabet contains letters that are common to the english one (A,B,E,Z,H,I,K,M,N,O,P,T,Y,X) and records with mixed characters will cause me problem.

What can I do to find and replace any of those letters with the greek version of the letter.

example:

for a record:

T.Θ.5123 (this is the Greek abbreviation for P.O.BOX 5123)

I'm looking for a function to replace the first letter T (wether is Greek or English) with the Greek version of it

example 2:

KYMHΣ 6 (kimis is the street, 6 the number)

I should replace English (first four ) letters with the Greek version...

example 3:

BAΛΑΩPITOY 14 (valaoritou is the street, 14 the number)

the eight underlined numbers should be changed from English to Greek..

Consider I might have hundred of thousands of different records to unify in any column...

Greek English
letter value value letter
Α 193 65 A
Β 194 66 B
Ε 197 69 E
Ζ 198 90 Z
Η 199 72 H
Ι 201 73 I
Κ 202 75 K
Μ 204 77 M
Ν 205 78 N
Ο 207 79 O
Ρ 209 80 P
Τ 212 84 T
Υ 213 89 Y
Χ 215 88 X

thank you all in advance

StephenR · #2 01-31-2010, 07:02 AM

Welcome to the forum. Please can you upload a small sample workbook illustrating your actual data, and desired results, including a definitive list of what needs to be replaced with what? You've cited three examples, but are there others?

imichalopo · #3 01-31-2010, 12:45 PM

all i want to do is to find and replace all these characters (A,B,E,Z,H,I,K,M,N,O,P,T,Y,X) with the greek version of the letter.

applying the function =char(a1) and having in a1 cell the english letter A gives me the number 65 but if in a1 cell is the greek letter A gives me the number 193.

I'm looking for a function or a macro to scan all cells and wherever finds A written in english (character value = 65) replace it with greek A (character value = 193).

Greek English
letter value value letter
Α 193 65 A
Β 194 66 B
Ε 197 69 E
Ζ 198 90 Z
Η 199 72 H
Ι 201 73 I
Κ 202 75 K
Μ 204 77 M
Ν 205 78 N
Ο 207 79 O
Ρ 209 80 P
Τ 212 84 T
Υ 213 89 Y
Χ 215 88 X

shg · #4 01-31-2010, 02:08 PM

A UDF?

Code:

Function GToE(s As String) As String
    Static av As Variant
    Dim i As Long
    
    If IsEmpty(av) Then
        av = Evaluate("{193,65;194,66;197,69;198,90;199,72;201,73;202,75;204,77;205,78;207,79;209,80;212,84;213,89;215,88}")
    End If
    
    GToE = s
    For i = LBound(av) To UBound(av)
        GToE = Replace(GToE, Chr(av(i, 1)), Chr(av(i, 2)))
    Next i
End Function

Welcome to the Excel Forum

Forum Statistics