"|" iki karakter arasındaki veriyi silme "|"

[onemsiz]

excel de iki karakter arasındaki veriyi silmek istiyorum yaklaşık 65000 sutundaki bu konuda yardımcı olursanız sevinirim. teşekkürler.Office 2003 kullanıyorum.

örnek:

merhaba |merhaba nasılsınız.|

sen nasılsın |@saol bende iyiyim.|

yardım için saol |sorun değil|

 

[Ömer]

Merhaba,

Silme işleminden sonra verileriniz;

merhaba
sen nasılsın
yardım için saol

bu halemi gelecek.

.

 

[onemsiz]

evet.

silmeyipte diğer sütuna yani yanındaki sütuan aktarsa aslında dana iyi olur. yorgunluk, kusura bakmayın.

 

[Ömer]

Modolue kopyalarak çalıştırınız.

Verilerin A sütununda olduğu düşünülmüştür.

Sub BulYanaYazSil()
 
    Dim i As Long
 
    On Error Resume Next
 
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        Cells(i, "B") = Split(Cells(i, "A"), "|")(1)
        [COLOR=blue]Cells(i, "A") = Split(Cells(i, "A"), "|")(0)[/COLOR]
    Next i
 
End Sub

Eğer eski verilerin korunmasını istiyorsanız mavi satırı silersiniz.

 

[onemsiz]

teşekkürler. şimdi deniyorum.

 

[onemsiz]

çok teşekkür ederim çalıştı. ilginiz ve emeğiniz için çok sağolun ömer bey. iyi akşamlar.

 

[slmnkc]

teşekkürler ömer hoca