Excelde Her Satırda Yer Alan Belirli Bir Kelimeden Sonraki Tüm Veriyi Silmek

[Gizemli LORD]

Merhabalar arkadaşlar,

Elimde bir liste var buna çeki düzen vermem gerekiyor.

Liste:

http://odpcli.com[COLOR="red"]/member/memberlist/[/COLOR]0-total_posts-desc-20-1880
http://www.enfoco.org/index.php/member/memberlist
http://www.astorandivy.com/index.php/member/memberlist/0-total_posts-desc-20-20
http://www.thegreenwaytable.com/index.php/member/memberlist/0-total_posts-desc-20-200/
http://cbipartner.com/index.php/member/memberlist/
http://www.gabrielarboleda.com/web/forums/member/memberlist/0-total_posts-desc-20-40/

Listedeki URL adreslerinin nember/nemberlist/'ten sonra gelen kısımlarını silmek istiyorum bir kısmı istediğim şekilde ama çoğu istediğim şekilde değil nemberlist nember/nemberlist/'ten sonra farklı kelime grupları var. Bunu Excelde nasıl çözebilirim.

 

[Emir Hüseyin Çoban]

. . .

Verilerin olduğu sütunu seçin
Ctrl + H (Değiştir)
Aranan Değer: /member/memberlist* yazın
Yeni Değer: Boş bırakın
Tümünü değiştir.

. . .

 

[Murat OSMA]

Alternatif olarak bu kodlar da kullanılabilir;

Sub Sonrasını_Sil()
    Dim Rky As Object, i As Integer
    Set Rky = CreateObject("VBScript.RegExp")
    With Rky
        .Ignorecase = True
        .Pattern = "\w*\D*"
        .Global = True
        For i = 1 To 6
            Cells(i, 2) = .Execute(Cells(i, 1)).Item(0)
        Next i
    End With
    i = Empty: Set Rky = Nothing
End Sub

 

[Gizemli LORD]

@Hüseyin Çoban

@Murat OSMA

Teşekkürler arkadaşlar. Bu forum iyi ki var .