Metin içerisinden barkot numarası alma

[idontwhy]

merhabalar;

ekli dosya göreceğiniz gibi A sütununda bulunan metin içerisinde 278 ile başlayan barkot numaralarımız mevcut. barkot numaralarının yerleri değişken olduğu için metni sütunlara dönüştür uygulamasını kullanamıyorum. İlgili barkot numaralarını herhangi bir sütuna almam lazım. yardımlarınızı rica ederim. teşekkürler

 

[Zeki Gürsoy]

Bu işlem en iyi makro ile olabilir. Dosya ektedir...

Sub test()
    Set r = CreateObject("vbscript.regexp")
    r.Pattern = "\d{13}"
    
    For i = 1 To [a65536].End(3).Row
        Cells(i, "b") = r.Execute(Cells(i, "a")).Item(0)
    Next
End Sub

 

[YUSUF44]

Aşağıdaki formül eğer barkoddan sonra hemen sayı yoksa düzgün çalışıyor. Ancak barkoddan sonra başka bir sayı varsa (örneğin 5. satır) düzgün çalışmıyor maalesef:

=ARA(9,99999999999999E+307;--PARÇAAL(A1&"lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll";SATIR($1:$1000);14))