Hogyan kombináljak (egyszerűbb) függvényeket? Telefonszámokat kellene normális formába önteni.

Lehet, hogy inkább makróval csinálnám.

Alt+F8 > Írj be a makrónak egy nevet > Create > a megjelenő ablakba a Sub...End Sub közé másold be a következő sorokat:

(az elején a lista és a tartomány egyértelmű, meg hogy 2 cellával jobbra írja be a módosított számot)

TorlendoKarakterLista = "+ - ( ) /"

TelefonszamTartomany = "A2:A10000"

Jobbra = 2

Dim betu As Variant

Dim cella As Range

Dim aktualis As String

Dim TorlendoKarakterek() As String

TorlendoKarakterek = Split(TorlendoKarakterLista, " ")

For Each cella In Range(TelefonszamTartomany)

aktualis = cella.Value

For Each betu In TorlendoKarakterek

aktualis = Replace(aktualis, betu, "")

Next betu

cella.Offset(0, Jobbra).NumberFormat = "@"

If Left(aktualis, 2) <> "06" Then

cella.Offset(0, Jobbra) = "06" & aktualis

Else

cella.Offset(0, Jobbra) = aktualis

End If

Next cella

Megj.:

Ugye annyit csinál, hogy végigmegy a megadott tartományon, kitörli a megadott karaktereket és ha nem 06-tal kezdődik, akkor az elejére beszúrja.

Végül kettővel jobbra kiírja a módosított számot.

A lényeg lemaradt, a makró futtatása:

Excel főablak > Alt+F8 > Run

Illetve a kódot tudod gyorsítani, ha a ciklus idejére letiltod a képernyőfrissítést.

Ehhez az elejére és a végére másold oda:

Sub XXX

Application.ScreenUpdating = False

(fenti kód)

Application.ScreenUpdating = True

End Sub