Excell de belirli bir kelimenin geçtigi satırları ayırmak.

[wobber]

Selam excell de belirli bir kelimenin gectigi satırın dışındaki tüm satırları silmek istiyorum.Bunu nasıl yapabilirim
Düzenlemeden önce
12345abc6789
12345def6789
9876abc54321
6543fghıi2134

Düzenleme sonunda
12345abc6789
9876abc54321

Misal bunun gibi büyük boyutta bir dosyam var.Misal sadece abc kelimesi gecen satır kalsın digerlerini silmek istiyorum.

 

[Huseyinkis]

değerlerin 1 sutun yani a sutununda olduğunu var sayarsak ekteki kodları denermisiniz.

Sub sil()
For i = Cells(Rows.Count, 1).End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Cells(i, 1), "*abc*") = 0 Then
Rows(i).Delete
End If
Next i
End Sub

 

[wobber]

Yazılar sutun olarak değilde tek satır da.

 

[Huseyinkis]

Yazılar sutun olarak değilde tek satır da.

yazıları satır satır kontrol eder fakak ben yazıların hangi sutunda yazılı olduğunu bilmediğim için A sutunundaki satırlarda yazılı olduğunu dusunerek kodları yazdım.