Excel'de birden fazla sayfada aynı satırları veya aralıkları nasıl silersiniz?

Bu makale, Excel'de aynı anda birden fazla sayfada özdeş satırları veya aralıkları silmek için iki yöntem önermektedir. Lütfen aşağıdaki adımları izleyin.

Tüm sayfaları gruplayarak birden fazla sayfada aynı satırları veya aralıkları silme
VBA kodları kullanarak birden fazla sayfada aynı satırları veya aralıkları silme

Tüm sayfaları gruplayarak birden fazla sayfada aynı satırları veya aralıkları silme

Tüm çalışma sayfalarını gruplamak ve ardından bu çalışma sayfalarından aynı satırları veya aralıkları aynı anda silmek oldukça kolaydır.

1. Geçerli çalışma kitabındaki herhangi bir sayfa sekmesine sağ tıklayın ve ardından sağ tıklama menüsünden Tümünü Seç'i tıklayın.

2. Şimdi tüm çalışma sayfaları seçili durumda. Eğer bir çalışma sayfasında belirli satırları veya aralıkları silerseniz, diğer çalışma sayfalarındaki aynı satırlar veya aralıklar da birlikte silinir.

3. Tüm sayfalarda satır veya aralıkları sildikten sonra, lütfen bir sayfa sekmesine sağ tıklayın ve ardından sağ tıklama menüsünden Sayfaları Gruplandırmasını Kaldır'ı tıklayarak tüm çalışma sayfalarının gruplandırılmasını kaldırın.

VBA kodları kullanarak birden fazla sayfada aynı satırları veya aralıkları silme

Yukarıdaki yönteme ek olarak, birden fazla çalışma sayfasında aynı satırları veya aralıkları silmek için aşağıdaki VBA kodlarını çalıştırabilirsiniz.

Birden fazla sayfada aynı satırları silme

1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına aynı anda basın.

2. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül'e tıklayın. Ardından aşağıdaki VBA kodunu Kod penceresine kopyalayıp yapıştırın.

Sub bleh()
    Dim xWs As Worksheet
    Set xWs = ActiveSheet
    ThisWorkbook.Worksheets.Select
    Rows("4:5").Select
    Selection.Delete
    xWs.Select
End Sub

Not: VBA kodunda, 4:5, geçerli çalışma kitabındaki birden fazla çalışma sayfasında 4. ve 5. satırların silineceği anlamına gelir. Bunları ihtiyacınız olan satırlara göre değiştirebilirsiniz.

3. Kodu çalıştırmak için F5 tuşuna basın ve ardından belirtilen satırlar geçerli çalışma kitabındaki tüm sayfalardan hemen silinir.

Birden fazla sayfada aynı aralıkları silme

Birden fazla sayfada aynı aralıkları silmek için aşağıdaki VBA kodunu deneyebilirsiniz.

Private Sub CommandButton2_Click()
    Dim xRg As Range
    Dim xTxt As String
    Dim xWs As Worksheet
    On Error Resume Next
    Set xWs = ActiveSheet
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select the range you want to delete across multiple sheets:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xRg.ClearContents
    ThisWorkbook.Worksheets.Select
    ActiveWindow.SelectedSheets.FillAcrossSheets xRg, xlFillWithContents
    xWs.Select
End Sub

VBA kodunu Modüle kopyalayıp yapıştırdıktan sonra, kodu çalıştırmak için F5 tuşuna basın ve açılan Kutools for Excel iletişim kutusunda, birden fazla sayfadan sileceğiniz aralığı seçin ve ardından Tamam düğmesine tıklayın.

Şimdi bu belirli aralıktaki hücre değerleri, geçerli çalışma kitabındaki tüm sayfalardan hemen silinir.

İlgili makaleler:

• Excel'de belirli sütunlarda eksik/boş değer içeren satırları nasıl silersiniz?
• Excel'de bir hücre belirli bir değerden büyük/küçükse satırları nasıl silersiniz?
• Excel'de ilk başlık satırı dışında tüm satırları nasıl silersiniz?
• Excel'de belirli bir satırın veya etkin hücrenin altında kalan tüm satırları nasıl silersiniz?