Excel'deki diğer her satırı hızlı bir şekilde nasıl silebilirim?

Excel'deki her diğer satırı veya sütunu hızlı bir şekilde silmek istiyorsanız, ana nokta, önce diğer her satırı veya sütunu hızlı bir şekilde nasıl seçebileceğiniz ve ardından silme işlemini bunlara uygulayabileceğinizdir. Ve bu makale, önce diğer her satırı veya sütunu nasıl seçeceğiniz ve ardından bunları hızlı bir şekilde nasıl sileceğinizle ilgili bazı yanıltıcı şeyler gösterecek.

Excel'deki diğer her satırı Filtre komutuyla silin

Excel'deki diğer her satırı VBA kodu ile silin

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

Excel'deki diğer her satırı Filtre komutuyla silin

Microsoft Excel'in filtre komutu, diğer her satırı hızlı bir şekilde filtrelemenize ve ardından bir kerede silmenize yardımcı olabilir, lütfen aşağıdaki işlemleri gerçekleştirin:

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

2. C sütununu seçin ve filtre altındaki düğme Veri sekmesi. Ardından C1'in yanındaki ok düğmesini tıklayın ve yalnızca 0 altında Tümünü Seç seçeneği. Ekran görüntüsüne bakın:

3. Sonra 1'li tüm satırlar gizlenir. 0 ile görünen satırları seçin ve Ana Sayfa > Sil > Sayfa satırlarını silin bu satırları silmek için. Ardından, diğer her satırı siler ve tıklamanız gerekir. filtre yalnızca 1. satırları göstermek için tekrar düğmesine basın. Ekran görüntülerine bakın:

4. Sonunda, ihtiyaç duyduğunuzda yardımcı sütun C'yi silebilirsiniz.

Excel'deki diğer her satırı VBA kodu ile silin

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

1. basılı tutun Ara Toplam + F11 Excel'de anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.

2. Tıklayın Ekle > modülve aşağıdaki makroyu modül Pencere.

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. Basın F5 Bu makroyu çalıştırmak için anahtar. Ardından bir aralık seçmek için bir iletişim kutusu açılır. Ekran görüntüsüne bakın:

4. Sonra tıklayın OK, ikinci satırdan seçilen aralıktaki diğer her satır bir kerede silinir, ekran görüntüsüne bakın:

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

Microsoft Excel'in yeni başlayan bir kullanıcısı için VBA makrosunu kullanmak biraz karmaşıktır. Aralık Satırları ve Sütunları Seçin yarar Kutools for Excel diğer her satırı hızlı bir şekilde silmenize yardımcı olabilir.

Kurduktan sonra Kutools for Excellütfen aşağıdaki işlemleri yapın:

1. Diğer satırları silmek istediğiniz aralığı seçin ve ardından bu yardımcı programı uygulayarak Kutools > Seç > Aralıklı Satırları ve sütunları seçin….

2. İçinde Aralık Satırları ve Sütunları Seçin iletişim kutusunda, ayarları aşağıdaki ekran görüntüsü gibi belirtin ve OK önce diğer satırları seçmek için düğmesine basın.

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

4. Ardından, seçili her satırı hızlı bir şekilde silebilirsiniz. Ana Sayfa > Sil > Sayfa satırlarını silin tüm bu satırları silmek için. Ekran görüntülerine bakın:

Bu özellik sayesinde, ihtiyaç duyduğunuz her n'inci satırı veya sütunu da silebilirsiniz.

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