Sağdan tek hücreyi sutunlara ayırmak

[Mesafe]

Metinlerin sonunda aralarında boşluk olan 9 adet rakam yazıyor. Bu rakamları boşluklardan sutunlara ayırmak istiyorum.

 

[papatyamm]

ilk önce her hücredeki metinin sonuna virgül koymalısınız. daha sonra virgül ile ayırdığınız rakamları sırasıyla veri- metni sutna dönüştür-ve sınırlandırılmış sekmesinden - virgül sekmesini tıklayıp ileri butonuna basınız... ve rakamları tek bi hücreye taşıyıp aynı işlemi gereçekleştirebilirsiniz. rakamları ayırırken boşluk sekmesini kullanabilirsiniz.

 

[Gaffur]

ilk önce her hücredeki metinin sonuna virgül koymalısınız. daha sonra virgül ile ayırdığınız rakamları sırasıyla veri- metni sutna dönüştür-ve sınırlandırılmış sekmesinden - virgül sekmesini tıklayıp ileri butonuna basınız... ve rakamları tek bi hücreye taşıyıp aynı işlemi gereçekleştirebilirsiniz. rakamları ayırırken boşluk sekmesini kullanabilirsiniz.

Pratik bir çözüm gibi görünmüyor

 

[Mesafe]

Pratik bir çözüm gibi görünmüyor

Evet bu şekli ile pratik değil ama metin sonlarına virgül koyma işi kolaylaştırılabilirse işimi görür.

 

[Huseyinkis]

Evet bu şekli ile pratik değil ama metin sonlarına virgül koyma işi kolaylaştırılabilirse işimi görür.

Slm Ekteki kodları denermisin.

Sub Cevap()

For a = 1 To Range("A65536").End(3).Row
Cells(a, 1).Value = WorksheetFunction.Substitute(Cells(a, 1).Value, "  ", " ", 1)

uzun = Len(Cells(a, 1).Value)

If Mid(Cells(a, 1).Value, uzun, 1) = " " Then
uzun = Len(Cells(a, 1).Value) - 1
Else
uzun = Len(Cells(a, 1).Value)
End If

bb = 11
aa = 1
For i = uzun To 1 Step -1
If bb > 2 Then
If Mid(Cells(a, 1).Value, i, 1) = " " Then
Cells(a, bb).Value = Mid(Cells(a, 1).Value, i, aa)
bb = bb - 1
aa = 1
Else
aa = aa + 1
End If
End If
Next i
Next a

End Sub

 

[Mesafe]

Sn Hüseyinkis, çok teşekkür ederim. Elinize sağlık