rakamları metinden ayırıp başka sütuna yazdırmak

[excel_ance]

arkadaşlar benim problemim aynı hücrede bulunan rakamları ayırıp başka hücreye yazdirmak istiyorum. yardımcı olursanız sevinirim.

 

[dEdE]

...aynı hücrede bulunan rakamları ayırıp başka hücreye yazdirmak....

Merhaba,
-hangi hücredeki rakamları,
-hangi ölçüte göre ayırıp,
-nereye yazdıracaksınız.
Örnek dosyanızdan bunlar anlaşılmıyor.

 

[excel_ance]

üstadım yanlış belgeyi göndermişim

Dosya ektedir

 

[veyselemre]

Kodları bir modüle kopyalayıp, DENE prosedürünü çalıştırın.

Sub DENE()
    With CreateObject("VBScript.RegExp")
           .Global = True
           For X = 2 To [c65536].End(3).Row
            .Pattern = "[\d]"
            txt = Cells(X, 3)
            Cells(X, 3) = .Replace(txt, "")
            .Pattern = "[^\d]"
            Cells(X, 2) = .Replace(txt, "")
        Next X
    End With
End Sub

 

[excel_ance]

teşekkür ederim üstad