Aynı satır içinde var olan - Değerilerini bulup silmek

[SizinWeb]

Merhaba arkadaşlar elimde bir liste var ve bu listede ( - ) İşareti ile ayrılmış satırlar mevcut bu ( - ) İşareti talşıyan tüm satırları toplu olarak silmek istiyorum.
Örnek
aa-kkaaaadddddd
kkaaaadddddd-aa
kkaaaaddddddbbb
bbb-kkaaaadddddd
kkaaaadddddd-bbb
ccc-kkaaaadddddd
kkaaaadddddd-ccc
dddkkaaaaddd
ddd-kkaaaadddd
kkaaaadddddd-ddd
kkaaaadddddd-eee
fkkaaaadddddd
f-kkaaaadddddd
kkaaaadddddd-f
gkkaaaadddddd
g-kkaaaadddddd
kkaaaadddddd-g
hkkaaaadddddd
kkaaaaddddddh
h-kkaaaadddddd
kkaaaadddddd-h
kkaaaadddddd-i
jkkaaaadddddd
kkaaaaddddddj
j-kkaaaadddddd
kkaaaadddddd-j
kkkaaaadddddd
k-kkaaaadddddd
kkaaaadddddd-k
lkkaaaadddddd
kkaaaaddddddl
l-kkaaaadddddd
kkaaaadddddd-l
mkkaaaadddddd
kkaaaaddddddm
m-kkaaaadddddd
kkaaaadddddd-m
n-kkaaaadddddd
kkaaaadddddd-n
o-kkaaaadddddd
kkaaaadddddd-o
pkkaaaadddddd
kkaaaaddddddp
p-kkaaaadddddd
kkaaaadddddd-p
rkkaaaadddddd
kkaaaaddddddr
r-kkaaaadddddd
kkaaaadddddd-r
s-kkaaaadddddd
kkaaaadddddd-s
tkkaaaadddddd
kkaaaaddddddt
t-kkaaaadddddd
kkaaaadddddd-t
ukkaaaadddddd
u-kkaaaadddddd
kkaaaadddddd-u
kkaaaaddddddv
v-kkaaaadddddd
kkaaaadddddd-v
ykkaaaadddddd
y-kkaaaadddddd
kkaaaadddddd-y
z-kkaaaadddddd
kkaaaadddddd-z
kkaaaaddddddq
q-kkaaaadddddd
kkaaaadddddd-q
kkaaaaddddddw
w-kkaaaadddddd
kkaaaadddddd-w
kkaaaadddddd-1
2-kkaaaadddddd
kkaaaadddddd-2
3-kkaaaadddddd
kkaaaadddddd-3
4-kkaaaadddddd
kkaaaadddddd-4
kkaaaadddddd5
5-kkaaaadddddd
kkaaaadddddd-5
6kkaaaadddddd

 

[Merhum İdris SERDAR]

1. Auto filter > Text Filter > Contains - OK

2. Süzülenleri seçip, Delete > Delete Sheet Rows


.

 

[Ömer BARAN]

Merhaba.

Filtre uygulayarak - sadece işareti olanları görünür kılıp bu satırların tümünü, sol taraftaki satır numaralarından seçip, fareyle sağ tık SATIR SİLi seçerek işlemi tamamlayabilirsiniz.

İlle de kod kullanmak istiyorsanız, alt taraftan ilgili sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin ve aşağıdaki kod'u, açılan VBA ekranında sağ taraftaki boş alana yapıştırın ve çalıştırın.
.

Sub TİRELİLERİ_SİL()
For satır = [A65536].End(3).Row To 1 Step -1
On Error GoTo 10
If IsNumeric(WorksheetFunction.Search("-", Cells(satır, 1), 1)) = True Then _
    Rows(satır & ":" & satır).Delete Shift:=xlUp
10: Next
End Sub