Sayıları yandaki sütünlara aktarılması hk.

[1903emre34@gmail.com]

Merhaba,

"B" sütundaki sayıları sırasıyla C ve D sütunlara aktarılması istiyorum,

teşekkürler

 

[Ziynettin]

Merhaba,

Deneyiniz...

Sub Ayır()
a = Range("B3:B" & Cells(Rows.Count, 2).End(3).Row)
ReDim b(1 To UBound(a), 1 To 2)
    For i = 1 To UBound(a)
        say = say + 1
        deg = Split(Trim(a(i, 1)), " ")
        b(say, 1) = deg(0) * 1
        b(say, 2) = deg(UBound(deg)) * 1
    Next i
[C3].Resize(say, 2).NumberFormat = "#,##0.00"
[C3].Resize(say, 2) = b
MsgBox "İşlem tamam.", vbInformation
End Sub

 

[1903emre34@gmail.com]

Teşekkürler, sorunsuz çalışıyor.

 

[Ziynettin]

Teşekkürler, sorunsuz çalışıyor.

Rica ederim.

 

[Necdet]

Merhaba,

Makroya gerek var mı? Metni Sütunlara Ayır ile yapabilirsiniz.