Sayıları ayırma

[mehmetaltin]

Arkadaşlar örneğin A1 hücresine aralarına boşluk bırakarak 2 ve 8 yazdım.bunlari B1 ve C1 hücrelerine 2 ve 8 olarak nasıl ayirabilirim.

 

[Muzaffer Ali]

B1'e
=PARÇAAL(A1;1;BUL(" ";A1)-1)
C1'e
=YERİNEKOY(A1;B1&" ";"")

 

[Orion1]

Buyurun.

Sub ayir()
Dim a, k As Integer, sut As Integer
sut = 2
a = Split(Range("A1").Value, " ")
For k = 0 To UBound(a)
    Cells(1, sut).Value = a(k)
    sut = sut + 1
Next
MsgBox "Bitti"

End Sub

 

[mehmetaltin]

Çok teşekkürler...

 

[Necdet]

Merhaba,

Formül ya da makroya gerek yok.
Veri, Metni Sütunlara Ayır'ı inceleyiniz.