onun dışındaki her şeyi sil

[zodehala]

elimde 1mb lık sadece metinden oluşan bir exel dosyası var. Bu dosyadaki tüm verileri silmek istiyorum yanlızca şunlar haric

sadece [Adı : ( )] arasında kalan verileri almak istiyorum (kendi de dahil) mesela

[Adı : (ali)] -----------> bu kalacak
[Adı : (veli)]-----------> bu kalacak
adı: (kamil) -----------> bu silinecek

 

[Kemal Demir]

Günadın Küçük Bir kod ile yapılabilir diye dusundum.
Aşagıda dusundugun cozum için Veriler a kolonunda oldugu varsa yılmıstır.

Sub sil()
For x = [a65536].End(3).Row To 2 Step -1
If Left(Cells(x, 1), 1) = "[" And Right(Cells(x, 1), 1) = "]" Then
Else
Rows(x).Delete
End If
Next
End Sub