Belirli bir aralığı silme

[burakkurtoglu]

Merhaba elimde 15000 satırlık bir data var

İsim
a
b
c
d
e
f
İsim
a
b
c
d
e
f

Veriler bu şekilde listeli benim a b c d e f olan kısımları silmem lazım yani 6 satırda bir silme işlemi yapmam lazım ama nasıl yapacağımı bulamadım yardımcı olabilirmisiniz

 

[turist]

Sayın @burakkurtoglu
Forumumuza hoş geldiniz.
İstediğiniz durumu açıklayan "örnek excel dosyanızı" foruma iletirseniz daha hızlı ve doğru cevaplar alabilirsiniz.
Örnek Excel dosyasını foruma ekleme hakkında bilgi edinmek isterseniz;
https://www.excel.web.tr/threads/soru-ile-ilgili-oernek-excel-dosyasi-ekleme.174755/
bakınız.

 

[burakkurtoglu]

Teşekkürler, hoşbulduk

https://1drv.ms/x/s!Asi5aGmfeLOCjD5dKEBHhO4WGHmh

Örnek dosya burada ben sadece isimleri toplamak için böyle birşey yapmak istiyorum

 

[turist]

İlk mesajınızda "silmek" istediğinizi belirtmişsiniz, fakat dosyadaki A sütununda bulunan "isimleri toplamak" istiyorsunuz.
Sadece isimler bir "Liste" mi olacak, başka bir sayfaya mı taşınacak?
Daha NET bir açıklama yapabilir misiniz ?

 

[burakkurtoglu]

İsimleri bir liste olarak almak istiyorum

 

[turist]

A Sütunundaki isimler A1 hücresinden başlayıp , her defasında 7 satır sonra isim yazarak devam ediyor gibi.
Bütün sütun bu düzende mi devam ediyor, A1, A8,A15,A22,A29...... gibi mi?

 

[burakkurtoglu]

Evet hepsi öyle devam ediyor

 

[turist]

Dosyanızın Linki
İndirip inceleyiniz.

 

[Korhan Ayhan]

Alternatif,

15.000 satır için hızlı liste oluşturabilirsiniz..

Option Explicit

Sub Listele()
    Dim Veri As Variant, Son As Long, X As Long
    Dim Say As Long, Zaman As Double
    
    Application.ScreenUpdating = False
    
    Zaman = Timer
    
    Son = Cells(Rows.Count, 1).End(3).Row
    Veri = Range("A1:A" & Son).Value
    ReDim Liste(1 To 1)
    
    For X = 1 To UBound(Veri, 1)
        Say = Say + 1
        ReDim Preserve Liste(1 To Say)
        Liste(Say) = Veri(X, 1)
        X = X + 6
    Next
    
    Range("B1").Resize(UBound(Liste), 1) = Application.Transpose(Liste)
    
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır." & Chr(10) & Chr(10) & _
           "İşlem süresi ; " & Format(Timer - Zaman, "0.00000"), vbInformation
End Sub