Telefon numaralarını makro ile ayırma

[makk]

Merhaba arkadaşlar,

ekli örnek dosyada görüldüğü gibi 5000'den fazla birleşik şekilde yazılı telefon numaralarını "alan kodu"ndan sonra ayırmak istiyorum. Tabi telefon numarası fazla olunca formül ile ayırmak zor. Toplu düzeltme için makro yapılması için yardımlarınızı rica ederim.

 

[Kemal Demir]

Günaydın,

Aşağıdaki basit bir kod ile sorunuzu çözülür kanısındayım.

For x = 2 To [a65536].End(3).Row
    Cells(x, 2) = Left(Cells(x, 1), 4) & " " & Right(Cells(x, 1), 7)
Next

İyi çalışmalar.

 

[uzmanamele]

merhaba

alternatif.
isteğe uyarlanmış özel sayı biçimi olarak deneyiniz.

0### #######

hatta ülkemizde yaygın kullanılan şekliyle bunu da deneyebilirsiniz.

0### ### ## ##