Hücrelerdeki bazı karakterleri toplu olarak silme

[asdsxx]

Arkadaşlar ekteki dosyada satırlarda bulunan hücreler içindeki [126] gibi köşeli parantez içindeki rakamların silinmesini istiyorum.
Ancak [krş. 7/179; bk. 2/161-162 ] gibi köşeli parantez içindekiler kalması lazım. Yani köşeli parantez içi "krş" ile başlıyorsa silinmeyecek bunun haricinde köşeli parantez ve içindeki rakamların olduğu sayı grupları silinecek
[14] - silinecek (köşeli parantez içindeki rakamlar farklı hanede labilir)
[krş. 7/179; bk. 2/161-162 ] - silinmeyecek (rakamlar farklı olabilir ama "krş." ile başlayan silinmeyecek)

örnek dosya ekte

 

[Haluk]

Söz konusu hücreleri seçip, aşağıdaki kodu çalıştırın....

Sub Test2()
    'Haluk - 08/11/2020
    'sa4truss@gmail.com
    Dim objRegEx As Object, myCell As Range, myStr As String
    
    Set objRegEx = CreateObject("VBscript.RegExp")
    objRegEx.Global = True
    objRegEx.Pattern = "\[(\w+)\]"
    
    For Each myCell In Selection
        myStr = myCell.Text
        If Not InStr(myStr, "krş.") > 0 Then
            myStr = objRegEx.Replace(myStr, "")
            myCell = myStr
            myStr = Empty
        End If
    Next
    Set objRegEx = Nothing
End Sub

.

 

[asdsxx]

Haluk Bey ilginize teşekkür ederim.
Lakin kod bende çalışmadı. Siz örnek dosya üzerinde uyguladınız mı acaba

 

[Haluk]

Tabii ki denedim....

Siz sayfada B1:B287 aralığını fare ile seçtikten sonra kodu çalıştırdınız mı?

.

 

[asdsxx]

Haluk Bey özür dilerim. çalıştı. Elinize sağlık.
Hatam şu olmuş. Gönderdiğim örnek dosyada veri B sütununda idi çalışma da "C" sütununda seçili yaparak kodu çalıştırdım ama olmamıştı.
Kod mutlaka "B" sütununda olunca mı işlem yapıyor.
Birde aşağıdaki örnek satırlardakileri silmemiş.
"olun.” dedik.[35] [krş. 5/60; 7/163, 166]"
"Onlar Allah’ın yarattığı ekin ve hayvanlardan[21] O’nun için bir pay ayırdılar da kendi boş zanlarınca:"

 

[Haluk]

Bu şekilde deneyin;

Sub Test3()
    'Haluk - 08/11/2020
    'sa4truss@gmail.com
    Dim objRegEx As Object, myCell As Range, myStr As String
    
    Set objRegEx = CreateObject("VBscript.RegExp")
    objRegEx.Global = True
    objRegEx.Pattern = "\[(\d+)\]"
    
    For Each myCell In Selection
        myStr = myCell.Text
        myStr = objRegEx.Replace(myStr, "")
        myCell = myStr
        myStr = Empty
    Next
    
    Set objRegEx = Nothing
End Sub

.

 

[asdsxx]

Çok teşekkürler Haluk Bey...