Metin içerisinden İd numarasını ayırmak

[teo_64]

Merhaba Arkadaşlar,

elimde aşağıdaki gibi dosya var yaklaşık 5000 satırlık kırımızı ile işaretlediğim A kolununda bulunan numaraları b kolonuna yazdırmak istiyorum yardımcı olabilirmisiniz.

 

[Murat OSMA]

Merhaba,

Aklınızda bulunsun; yardım almak istediğiniz konu ne ise onunla ilgili bir dosya ekleyin mutlaka.

Bu kodları kullanabilirsiniz..

[SIZE="2"]Sub Emre()
    On Error Resume Next
    Columns(2).Clear
    Dim Reg As Object, i%
    Set Reg = CreateObject("VBScript.RegExp")
    Reg.Global = True
    Reg.Pattern = "\_\d+"
    For i = 1 To Range("A65536").End(3).Row
        Cells(i, "B") = Split(Reg.Execute(Cells(i, "A")).Item(0), "_")(1)
    Next i
    i = Empty: Set Reg = Nothing
End Sub[/SIZE]

 

[teo_64]

Çok teşekkür ederim yardımlarınızı ve hızlı yanıtınız için

 

[Murat OSMA]

Hızlı dönüşünüz için ben teşekkür ederim.

İyi günler. ​