Excel çalışma sayfasındaki diğer tüm satırları silme

Özet

Bu makale, Microsoft Excel çalışma sayfasında seçili aralıktaki diğer satırları silmek için kullanabileceğiniz örnek bir Microsoft Visual Basic for Applications makrosunda yer alır.

Daha Fazla Bilgi

Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; örtülü veya açık garanti vermez. Buna zımni garantiler, satılabilirlik veya belirli bir amaca uygunluk da dahildir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir, ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmezler. Aşağıdaki makroyu kullanmak için aşağıdaki gibi bir Excel çalışma kitabı ayarlayın:

1. Yeni bir Microsoft Excel çalışma kitabı oluşturun.

2. Yeni bir çalışma sayfasında, A1:A9 aralığında, aşağıdaki örnekte olduğu gibi satırları atlayarak 1 ile 5 arasında sayıları yazın:

   A1: 1
   A2:
   A3: 2
   A4:
   A5: 3
   A6:
   A7: 4
   A8:
   A9: 5
   

3. Araçlar menüsünde, Makronun üzerine gelin ve Visual Basic Editor'a tıklayın.

   Not Microsoft Office Excel 2007 ve sonraki sürümlerinde, Geliştirici sekmesinin Kod grubunda Visual Basic'e tıklayın.

4. Ekle menüsünde, Modül'e tıklayın.

5. Yeni modülde aşağıdaki makroyu yazın:

Sub Delete_Every_Other_Row()

' Dimension variables.
   Y = False              ' Change this to True if you want to
                          ' delete rows 1, 3, 5, and so on.
   I = 1
   Set xRng = Selection

' Loop once for every row in the selection.
   For xCounter = 1 To xRng.Rows.Count

' If Y is True, then...
       If Y = True Then

' ...delete an entire row of cells.
           xRng.Cells(I).EntireRow.Delete

' Otherwise...
       Else

' ...increment I by one so we can cycle through range.
           I = I + 1

End If

' If Y is True, make it False; if Y is False, make it True.
       Y = Not Y

Next xCounter

End Sub

6. Verileri içeren çalışma sayfasına geçin ve ardından A1:A9 aralığını seçin.

7. Makroyu çalıştırmak için, Araçlar menüsünde Makro'ya gidin ve Makrolar'a tıklayın.

   Not

   • Excel 2007 ve sonraki sürümlerde, Geliştirici sekmesinin Kod grubunda Makrolar'a tıklayın.
   • Şeritte Geliştirici sekmesini görüntülemek için , Microsoft Office Düğmesi'ne tıklayın, Excel Seçenekleri'ne tıklayın, Popüler kategorisine tıklayın, Şeritte Geliştirici sekmesini göster onay kutusunu seçmek için tıklayın ve ardından Tamam'a tıklayın.

8. Delete_Every_Other_Row makrosunu seçin ve çalıştır'a tıklayın.

Bu makro, seçimin ikinci satırından başlayarak diğer tüm satırları siler.