sütundaki istenmeyen verileri silme

[mhmt_01]

merhaba,

A sutununda aşağıdaki kodlar mevcut sadece /par kısmını nasıl silebilirim.


8698932347854\par
8699870733006\par
8698932336643\par
8698986547477\par
8698986546999\par
8699988718155\par
8699870524253\par
8699988055281\par
8699222676401\par

 

[hamitcan]

Böyle deneyin.

Sub sil()
    For i = [a65536].End(3).Row To 1 Step -1
      If Cells(i, 1) Like "*par" Then Rows(i).Delete
    Next
End Sub

 

[Civan Jack]

Sonucun bu şekilde olmasını istiyorsanız;

8698932347854
8699870733006
8698932336643
8698986547477
8698986546999
8699988718155
8699870524253
8699988055281
8699222676401

Bu kodları kullanabilirsiniz;

Sub Par_Sil()
    For i = 1 To Cells(Rows.Count, "A").End(3).Row
        Cells(i, 2) = Split(Cells(i, 1), "\", -1)
    Next i
End Sub

 

[hamitcan]

"\par" şeklinde, bul-değiştir ile de yapabilirsiniz.