Hücredeki adsoyad ve telefonları ayırma

[Mdemir63]

Selamlar
Ekteki örnek dosyada A sütunundaki değişik yapıdaki değerleri örnekte ki gibi sütunlara ayırmak istiyorum. Metni sütunlara dönüştür ile olmadı.
Nasıl yapabilirim.

 

[Merhum İdris SERDAR]

.

İngilizce:

Alanı seçin.

Data > Text to Columns > Delimeted > Next > Other > CTRL+J >Next > Finish

.

 

[tahsinanarat]

Sn. @Mdemir63 arşivimde bulduğum

Sub parcala()
Columns("B:z").Select
Selection.Insert Shift:=xlToRight
Columns(1).NumberFormat = "@"
For y = 1 To Cells(65536, 1).End(xlUp).Row
cumledeki_degerler = Split(Cells(y, 1), Chr(10))
For i = 0 To UBound(cumledeki_degerler)
Cells(y, i + 2).NumberFormat = "@"
Cells(y, i + 2) = cumledeki_degerler(i)
Next
Next
End Sub

kodları deneyiniz.

Formül ile; a2 hücresine;

=KIRP(PARÇAAL(YERİNEKOY(DAMGA(10)&$A2;DAMGA(10);YİNELE(" ";100));100*SÜTUN(A$1);100))

yapıştırıp aşağıya ve sağa doğru çoğaltınız.

 

[Mdemir63]

.

İngilizce:

Alanı seçin.

Data > Text to Columns > Delimeted > Next > Other > CTRL+J >Next > Finish

.

İdris hocam
metni sütunlara dönüştür değil mi?

 

[Merhum İdris SERDAR]

.

Evet. Kısacası, Diğer'in karşısına CTRL basılı iken J'ye basıp devam edeceksiniz.

.

 

[Mdemir63]

Sayın @tahsinanarat çok teşekkür ederim

 

[Mdemir63]

.

Evet. Kısacası, Diğer'in karşısına CTRL basılı iken J'ye basıp devam edeceksiniz.

.

İdris hocam çok teşekkür ederim.