Excel'deki Diğer Her Satır (veya Her Nth Satır) Nasıl Silinir

Videoyu İzle - Excel'deki Her Satırı Sil

Bazen, Excel'deki diğer tüm satırları (yani, alternatif satırları) veya her üçüncü/dördüncü/beşinci satırı silmeniz gerekebilir.

Bunun bir kullanım durumu, haftalık verileriniz olduğunda ve verileri yalnızca çift haftalar veya tek haftalar için istediğinizde olabilir. Bir diğeri, bir veritabanından bir veri dökümü aldığınızda olabilir ve tüm faydalı veriler yalnızca her ikinci veya üçüncü satırdadır.

Her zaman satırları manuel olarak seçme ve silme seçeneğiniz olsa da, büyük bir veri kümeniz olması durumunda bu verimsizdir.

Bunu yapmanın daha iyi yolları var.

Bu derste, basit bir filtreleme tekniği kullanarak Excel'deki diğer tüm satırları silmenin birkaç yolunu göstereceğim. Ve bir VBA makro kodu kullanmakta iyiyseniz, bunu tek bir tıklamayla yapan kısa bir VBA kodu da verdim. Yöntemler, Excel'in tüm sürümleri (2007, 2010, 2013 ve 2016) için bu eğitim çalışmasında gösterilmektedir.

Excel'deki diğer tüm satırları silmek oldukça basit olabilirken, diğer tüm sütunları silmek zor olabilir. Bunun nedeni, Excel'de sütunları filtreleyememenizdir (satırları filtreleme yönteminiz). Bu öğreticinin son bölümünde, Excel'de alternatif sütunları (veya her N. sütunu) silmenin bazı yollarını da göstereceğim.

Veri Kümesini Filtreleyerek Diğer Her Satırı Silin (Formül Kullanarak)

Tüm çift satırları veya tek satırları bir şekilde filtreleyebilseydiniz, bu satırları/kayıtları silmek çok kolay olurdu.

Bunu yapmak için yerleşik bir özellik olmasa da, önce satırları tek ve çift olarak bölmek için bir yardımcı sütun kullanabilir ve ardından yardımcı sütun değerine göre filtreleyebilirsiniz.

Aşağıda gösterildiği gibi, iki bölge (ABD ve Kanada) için her satış temsilcisi için satış verilerini içeren bir veri kümeniz olduğunu ve Kanada verilerini silmek istediğinizi varsayalım.

Aşağıda, diğer tüm satırları (Kanada için veri içeren) önce filtreleme ve ardından silme adımları verilmiştir:

1. Son sütun başlığının yanındaki hücreye metni girin Yardımcı Sütun (veya yardımcı sütunun sahip olmasını istediğiniz herhangi bir başlık metni)
2. Yardımcı sütun başlığının altındaki hücreye aşağıdaki formülü girin: =EĞER(SATIR()). Bu formülü tüm hücreler için kopyalayın. Bu formül, tüm çift satırlar için DOĞRU ve tüm TEK satırlar için YANLIŞ döndürür.
3. Tüm veri kümesini seçin (yukarıdaki adımda formülü girdiğimiz hücreler dahil).
4. Veri sekmesine tıklayın
5. Filtre simgesini tıklayın. Bu, veri kümesindeki tüm başlıklara bir filtre uygulayacaktır.
6. HelperColumn hücresindeki Filtre simgesine tıklayın.
7. DOĞRU seçeneğinin seçimini kaldırın (böylece yalnızca YANLIŞ Seçeneği seçilidir)
8. Tamam'ı tıklayın. Bu, verileri filtreleyecek ve yalnızca HelperColumn değerinin YANLIŞ olduğu kayıtları gösterecektir.
9. Yardımcı sütundaki tüm filtrelenmiş hücreleri seçin (başlık hariç)
10. Seçili hücrelerden herhangi birine sağ tıklayın ve 'Satırı Sil'e tıklayın
11. Açılan iletişim kutusunda, Tamam'a tıklayın. Bu, tüm görünür kayıtları silecek ve şu andan itibaren yalnızca başlık satırını göreceksiniz.
12. Veri sekmesine ve ardından Filtre simgesine tıklayın. Bu, filtreyi kaldıracak ve kalan tüm kayıtları görebileceksiniz.

Yukarıdaki adımlar, veri kümesindeki her ikinci satırı filtreler ve ardından bu satırları siler.

Bu aşamada yardımcı sütun değerleri için endişelenmeyin. Ortaya çıkan veriler yalnızca ABD için satırları içerir ve tüm Kanada satırları silinir. Yardımcı sütunu şimdi silebilirsiniz.

İlk satırdan başlayarak diğer tüm satırları silmek isterseniz, 7. adımda DOĞRU seçeneğini seçin ve YANLIŞ seçeneğinin seçimini kaldırın.

Not: Yukarıdaki yöntemi kullanarak Excel'deki satırları sildiğinizde, tümünde (veri kümesindekiler dışında) sahip olabileceğiniz tüm verileri de siler. Bu yöntemi kullandığınızda, sildiğiniz veri kümesinin solunda ve sağında hiçbir şey olmadığından emin olun.

Yukarıdaki yöntem harika olsa da, iki dezavantajı vardır:

1. Yeni bir sütun eklemeniz gerekiyor ( Yardımcı Sütun yukarıdaki örneğimizde)
2. Alternatif satırları silmeniz gerekiyorsa, bunu sık sık yapın.

İlgili eğitim: Excel'de Hücre Değerine (veya Koşuluna) Dayalı Satırları Silme

Veri Kümesini Filtreleyerek (Formülü Kullanarak) Her N. Satırı Sil

Yukarıdaki yöntemde, Excel'de diğer tüm satırları (alternatif satırları) nasıl sileceğinizi gösterdim.

Aynı mantığı Excel'de de her üçüncü veya dördüncü satırı silmek için kullanabilirsiniz.

Aşağıda gösterildiği gibi bir veri kümeniz olduğunu ve her üç satırı da silmek istediğinizi varsayalım.

Her üçüncü satırı silme adımları, yukarıdaki bölümde ele alınanla hemen hemen aynıdır (alternatif satırları silmek için). Tek fark, Adım 2'de kullanılan formüldedir.

Bunu yapmak için gereken adımlar aşağıdadır:

1. Son sütun başlığının yanındaki hücreye metni girin Yardımcı Sütun (veya yardımcı sütunun sahip olmasını istediğiniz herhangi bir başlık metni)
2. Yardımcı sütun başlığının altındaki hücreye aşağıdaki formülü girin: =MOD(SATIR(),3)=1. Bu formül, her üçüncü satır için DOĞRU ve diğer her satır için YANLIŞ döndürür.
3. Tüm veri kümesini seçin (yukarıdaki adımda formülü girdiğimiz hücreler dahil).
4. Veri sekmesine tıklayın
5. Filtre simgesini tıklayın. Bu, veri kümesindeki tüm başlıklara bir filtre uygulayacaktır.
6. HelperColumn hücresindeki Filtre simgesine tıklayın.
7. DOĞRU seçeneğinin seçimini kaldırın (böylece yalnızca YANLIŞ Seçeneği seçilidir)
8. Tamam'ı tıklayın. Bu, verileri filtreleyecek ve yalnızca HelperColumn değerinin YANLIŞ olduğu kayıtları gösterecektir.
9. Yardımcı sütundaki tüm hücreleri seçin
10. Seçili hücrelerden herhangi birine sağ tıklayın ve Satırı Sil'e tıklayın
11. Açılan iletişim kutusunda, Tamam'a tıklayın. Bu, tüm görünür kayıtları silecek ve şu andan itibaren yalnızca başlık satırını göreceksiniz.
12. Veri sekmesine ve ardından Filtre simgesine tıklayın. Bu, filtreyi kaldıracak ve kalan tüm kayıtları görebileceksiniz.

Yukarıdaki adımlar, veri kümesinden her üçüncü satırı siler ve elde edilen verileri aşağıda gösterildiği gibi alırsınız.

Bu aşamada yardımcı sütun değerleri için endişelenmeyin. Yardımcı sütunu şimdi silebilirsiniz.

Adım 2'de kullanılan formül MOD işlevini kullanır - bu, bir sayı diğerine bölündüğünde kalanı verir. Burada satır numarasını almak için SATIR işlevini kullandım ve 3'e bölündü (çünkü her üçüncü satırı silmek istiyoruz).

Veri kümemiz ikinci satırdan itibaren başladığından (yani 2. satır ilk kaydı içerdiğinden), aşağıdaki formülü kullanıyorum:=MOD(SATIR(),3)=1

Bunu 1'e eşitliyorum ve her üçüncü satır için MOD formülü kalanı 1 olarak verecek.

Formülü buna göre ayarlayabilirsiniz. Örneğin, veri kümenizin ilk kaydı üçüncü satırdan itibaren başlıyorsa formül şöyle olur: =MOD(SATIR(),3)=2

VBA Makrosunu (Hızlı Yöntem) kullanarak Diğer Her Satırı (veya N. satırı) Otomatik Olarak Silme

Diğer her satırı (veya her n. satırı) oldukça sık silmeniz gerekiyorsa, bir VBA kodu kullanabilir ve bunu Hızlı Erişim Araç Çubuğunda kullanabilirsiniz. Bu, alternatif satırları tek bir tıklamayla hızlı bir şekilde silmenizi sağlar.

Aşağıda, alternatif satırları silmek istediğiniz aralığı seçmenizi ve ardından seçilen veri kümesindeki her ikinci satırı silmenizi isteyen kod aşağıdadır.

Sub Delete_Every_Other_Row() Dim Rng As Range Set Rng = Application.InputBox("Aralığı Seçin (başlıklar hariç)", "Aralık Seçimi", Type:=8) For i = Rng.Rows.Count To 1 Step -2 If i Mod 2 = 0 Sonra Rng.Rows(i).Delete End If Next i End Sub

Yukarıdaki kodu çalıştırdığınızda, önce hücre aralığını seçmenizi isteyecektir. Seçimi yaptıktan sonra, her satırdan geçecek ve her ikinci satırı silecektir.

Bunun yerine her üçüncü satırı silmek isterseniz, aşağıdaki kodu kullanabilirsiniz:

Sub Delete_Every_Third_Row() Dim Rng As Range Set Rng = Application.InputBox("Aralığı Seçin (başlıklar hariç)", "Aralık Seçimi", Tip:=8) For i = Rng.Rows.Count To 1 Step -3 If i Mod 3 = 0 Sonra Rng.Rows(i).Delete End If Next i End Sub

Bu VBA makro kodunu nereye koymalı?

Bu kodu Excel'deki VB düzenleyicide normal bir modüle yerleştirmeniz gerekir.

Vb Düzenleyiciyi açma, bir modül ekleme ve kodu içine yerleştirme adımları aşağıdadır:

1. Yukarıdaki VBA kodunu kopyalayın.
2. Geliştirici sekmesine gidin.
3. Visual Basic'e tıklayın.
4. VB Editöründe, çalışma kitabı nesnelerinden herhangi birine sağ tıklayın.
5. Ekle'ye gidin ve Modül'e tıklayın.
6. Modülde yukarıdaki VBA kodunu yapıştırın.
7. VB Düzenleyiciyi kapatın.

Kodu VB Editöründe aldıktan sonra, kodu çalıştırmak için aşağıdaki yöntemleri kullanabilirsiniz:

• VB Düzenleyiciden bir Makro çalıştırın (VB Düzenleyici araç çubuğundaki yeşil oynat düğmesine tıklayarak)
• İmleci koddaki herhangi bir satıra yerleştirerek ve F5 tuşunu kullanarak
• Makroyu bir düğmeye/şekle atayarak
• Makroyu Hızlı Erişim araç çubuğuna ekleyerek

Excel'de bir makronun nasıl çalıştırılacağına dair ayrıntılı bir eğitim.

Bunu sık sık yapmanız gerekiyorsa, Kişisel Makro Çalışma Kitabına VBA kodunu eklemeyi düşünebilirsiniz. Bu şekilde, tüm çalışma kitaplarında kullanımınız için her zaman hazır olacaktır.

Bir çalışma kitabında bir VBA kodunuz olduğunda, bunu makro etkin bir dosyalanmış olarak kaydetmeniz gerekir (.XLSM uzantılı)

Not: VBA kodu tarafından yapılan herhangi bir değişiklik geri alınamaz olduğundan, önce çalışma kitabının/çalışma sayfasının bir yedek kopyasını almak ve ardından bu kodu çalıştırmak en iyisidir.

Her Diğer Sütunu (veya Her N. Sütunu) Sil

Filtre seçeneğini kullanabildiğiniz için her alternatif satırı veya her üçüncü/dördüncü satırı silmek kolaylaşır. Tek yapmanız gereken, alternatif satırları (veya her üç/dördüncü satırda bir) tanımlayan bir formül kullanmak ve bu satırları filtrelemek.

Ne yazık ki, bu aynı metodoloji sütunlarla çalışmaz - çünkü sütunları satırları filtrelediğiniz şekilde filtreleyemezsiniz.

Bu nedenle, diğer tüm sütunları (veya her üçüncü/dördüncü/N. sütunu) silmeniz gerekiyorsa, biraz daha yaratıcı olmanız gerekir.

Bu bölümde, Excel'deki diğer tüm sütunları silmek için kullanabileceğiniz iki yöntemi göstereceğim (aynı yöntemi isterseniz her üçüncü/dördüncü/N. sütunu silmek için de kullanabilirsiniz).

Formülleri ve Sıralama Yöntemini Kullanarak Alternatif Sütunları Silme

Aşağıda gösterildiği gibi bir veri kümeniz olduğunu ve diğer tüm sütunları (başlık sütunu A hariç) silmek istediğinizi varsayalım.

Buradaki hile, bir formül kullanarak alternatif sütunları belirlemek ve ardından sütunları bu formüle göre sıralamak olacaktır. Sıralanmış sütunları bir araya getirdiğinizde, bunu manuel olarak seçip silebilirsiniz.

Excel'deki diğer tüm sütunları silme adımları aşağıdadır:

1. Başlık satırının üstüne bir satır ekleyin (başlıktaki herhangi bir hücreye sağ tıklayın, Ekle'ye tıklayın ve ardından Tüm satır seçeneğine tıklayın)
2. Veri kümesinde en soldaki sütunun üstündeki hücreye aşağıdaki formülü girin ve tüm hücreler için kopyalayın: =MOD(SÜTUN(),2)
3. Formül değerlerini sayılara dönüştürün. Bunu yapmak için hücreleri kopyalayın, sağ tıklayın ve Özel Yapıştır -> Değerleri yapıştır seçeneğine gidin.
4. Tüm veri kümesini seçin (sütundaki başlıklar hariç). Bu örnekte, B1:G14'ü seçtim (ve OLUMSUZLUK A sütunu)
5. Veri sekmesine tıklayın
6. Sırala simgesine tıklayın
7. Sırala iletişim kutusunda aşağıdaki değişiklikleri yapın:
   • 'Seçenekler' düğmesini tıklayın ve açılan iletişim kutusunda, 'Soldan sağa sırala'yı ve ardından Tamam'ı tıklayın.
   • Sıralama ölçütü açılır menüsünde Satır 1'i seçin. Bu, formül sonuçlarını içeren satırdır.
   • Sıra açılır menüsünde, En Küçükten En Büyüğe'yi seçin.
8. Tamam'ı tıklayın

Yukarıdaki adımlar tüm sütunları sıralar ve tüm alternatif sütunları tek bir yerde (sonda) bir araya getirir.

Artık (formül değeri 1 olan) tüm bu sütunları seçebilir ve bunları silebilirsiniz.

Bu en iyi çözüm olmasa da, yine de işi halleder.

Her üçüncü sütunu veya her dördüncü sütunu silmek isterseniz, formülü buna göre ayarlamanız gerekir.

İlgili eğitim: Excel'de SIRALAMA (Satırlara, Sütunlara, Renklere, Tarihlere ve Sayılara göre)

VBA Kullanarak Alternatif Sütunları Silin

Alternatif sütunları silmenin bir başka hızlı yolu da aşağıdaki VBA kodunu kullanmaktır:

Sub Delete_Every_Other_Column() Dim Rng As Range Set Rng = Application.InputBox("Aralığı Seçin (başlıklar hariç)", "Aralık Seçimi", Tip:=8) For i = Rng.Columns.Count To 1 Step -2 If i Mod 2 = 0 Sonra Rng.Columns(i).Delete End If Next i End Sub

Yukarıdaki kod, sütunları içeren bir hücre aralığı seçmenizi ister. Burada başlığı olan sütun dışındaki sütunları seçmeniz gerekir.

Veri içeren hücre aralığını belirledikten sonra, bir For Loop kullanacak ve diğer tüm sütunları silecektir.

Her üçüncü sütunu silmek istemeniz durumunda aşağıdaki kodu kullanabilirsiniz (ve N. sütunu silmek için buna göre ayarlayabilirsiniz)

Sub Delete_Every_Third_Column() Dim Rng As Range Set Rng = Application.InputBox("Aralığı Seçin (başlıklar hariç)", "Aralık Seçimi", Tip:=8) For i = Rng.Columns.Count To 1 Step -3 If i Mod 3 = 0 Sonra Rng.Columns(i).Delete End If Next i End Sub

Bu VBA kodunun nereye yerleştirileceği ve nasıl kullanılacağı ile ilgili adımlar, yukarıdaki bölümde - “VBA Makrosunu (Hızlı Yöntem) kullanarak Diğer Her Satırı (veya N. satırı) Otomatik Olarak Sil”

Umarım bu Excel eğitimini faydalı bulmuşsunuzdur.