Hücre İçindeki Metinde Geçen Sayıları Ayırmak

[likaba]

Merbabalar,

B sütununda metin içerisinde ölçüler yer almakta. bu ölçüleri "C, D, E" sütunlarına örnekteki gibi nasıl yazdırabilirim.
Bazı hücrelerde sayılar arası X ile, bazı hücrelerde ise * işareti ile ayrılmıştır.


http://s3.dosya.tc/server16/0lwrdk/kutu_olcusu.xlsx.html

 

[Zeki Gürsoy]

Makro ile çözüm ektedir...

Private reg As New RegExp

Public Function Ebat(ByVal Adres As Range, Kacinci As Byte) As Integer
    Application.Volatile True
    
    reg.IgnoreCase = True
    reg.Pattern = "\b\s(\d+)(?:\s|x|\*)*(\d+)(?:\s*|x|\*)*(\d+)"
    If reg.Test(Adres) Then
        Ebat = reg.Execute(Adres)(0).SubMatches(Kacinci - 1)
    End If
End Function

 

[likaba]

Yardımınız için çok teşekkür ederim.

 

[çıtır]

Formülle yapılan çözüm.

 

[Ali]

Birinci karakter için

=ARA(9,99999999999999E+307;--SAĞDAN(KIRP(PARÇAAL(YERİNEKOY("@"&YERİNEKOY(YERİNEKOY(A2;"X";"@");"*";"@");"@";YİNELE(" ";300));1*300;300));SATIR($1:$1024)))

İkinci karakter için

=KIRP(PARÇAAL(YERİNEKOY("@"&YERİNEKOY(YERİNEKOY(A2;"X";"@");"*";"@");"@";YİNELE(" ";300));2*300;300))

Üçüncü karakter için

=ARA(9,99999999999999E+307;--SOLDAN(KIRP(PARÇAAL(YERİNEKOY("@"&YERİNEKOY(YERİNEKOY(A2;"X";"@");"*";"@");"@";YİNELE(" ";300));3*300;300));SATIR($1:$1024)))

 

[likaba]

Yardımınız için teşekkür ederim Ali Bey.