Excel'de her diğer satırı hızlıca nasıl silebilirim?

Excel'de her diğer satırı veya sütunu hızlıca silmek istiyorsanız, asıl nokta önce her diğer satırı veya sütunu nasıl hızlıca seçebileceğiniz ve ardından onlara silme işlemini uygulayabileceğinizdir. Bu makale size önce her diğer satırı veya sütunu seçme konusunda bazı püf noktalarını gösterecek ve ardından bunları hızlıca nasıl silebileceğinizi anlatacaktır.

Filtre komutuyla Excel'de her diğer satırı silme

VBA koduyla Excel'de her diğer satırı silme

Kutools for Excel ile Excel'de her diğer satırı veya sütunu silme

Filtre komutuyla Excel'de her diğer satırı silme

Microsoft Excel'in Filtre komutu, her diğer satırı hızlıca filtrelemenize ve ardından hepsini bir seferde silmenize yardımcı olabilir, lütfen aşağıdaki adımları izleyin:

1. Orijinal verinin yanındaki boş bir sütunda 0,1,0,1…,0,1 girin. Bu durumda, sayıları yardımcı Sütun C'ye giriyoruz. Aşağıdaki ekran görüntüsüne bakın:

2. Sütun C'yi seçin ve Veri sekmesi altındaki Filtre düğmesine tıklayın. Ardından C1'in yanındaki ok düğmesine tıklayın ve Tümünü Seç seçeneği altında yalnızca 0'ı işaretleyin. Ekran görüntüsüne bakın:

3. Ardından 1 olan tüm satırlar gizlenir. 0 olan görünür satırları seçin ve Ana Sayfa > Sil > Çalışma sayfası satırlarını sil'e tıklayarak bu satırları silin. Böylece her diğer satır silinir ve yalnızca 1 olan satırları göstermek için Filtre düğmesine tekrar tıklamanız gerekir. Ekran görüntülerine bakın:

4. Son olarak, ihtiyacınıza göre yardımcı Sütun C'yi silebilirsiniz.

VBA koduyla Excel'de her diğer satırı silme

Aslında, VBA makrosu da bu sorunu çözmek için iyi bir seçenektir.

1. Excel'de Alt + F11 tuşlarını basılı tutun ve Microsoft Visual Basic for Applications penceresi açılır.

2.  Ekle > Modül'e tıklayın ve aşağıdaki makroyu Modül Penceresine yapıştırın.

VBA kodu: Seçimdeki her diğer satırı sil:

Sub DeleteEveryOtherRow()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = InputRng.Rows.Count To 1 Step -2
    Set rng = InputRng.Cells(i, 1)
    rng.EntireRow.Delete
Next
Application.ScreenUpdating = True
End Sub

3. Bu makroyu çalıştırmak için F5 tuşuna basın. Ardından bir seçim aralığı seçmek için bir iletişim kutusu açılır. Ekran görüntüsüne bakın:

4.  Ardından Tamam'a tıklayın, seçilen aralıktaki her diğer satır ikinci satırdan başlayarak bir seferde silinir, ekran görüntüsüne bakın:

Kutools for Excel ile Excel'de her diğer satır veya sütunu silme

Microsoft Excel'in yeni bir kullanıcısıysanız, VBA makrosu kullanmak biraz karmaşık olabilir. Kutools for Excel 'in Seçim Aralığı Satırları & Sütunları aracı, her diğer satırı hızlıca silmenize yardımcı olabilir.

Kutools for Excel'i yükledikten sonra lütfen aşağıdaki adımları izleyin:

1. Her diğer satırları silmek istediğiniz alanı seçin ve ardından bu aracı Kutools > Seç > Seçim Aralığı Satırları & sütunları…'ya tıklayarak uygulayın.

2. Seçim Aralığı Satırları & Sütunları iletişim kutusunda, aşağıdaki ekran görüntüsünde gösterildiği gibi ayarları belirtin ve önce her diğer satırları seçmek için Tamam düğmesine tıklayın.

3. Ardından seçimdeki her diğer satır seçilir ve vurgulanır. Ekran görüntüsüne bakın:

4. Ardından, tüm bu satırları silmek için Ana Sayfa > Sil > Çalışma sayfası satırlarını sil'e tıklayarak seçilen her diğer satırları hızlıca silebilirsiniz. Ekran görüntülerine bakın:

Bu özellik sayesinde, ihtiyacınıza göre her n. satır veya sütunu da silebilirsiniz.

Kutools for Excel'i şimdi indirin ve ücretsiz deneyin!