Excel'de koşullu sayfa sonları nasıl eklenir?

Aşağıdaki ekran görüntüsünde gösterildiği gibi, sütun A'daki değerler değiştiğinde sayfa sonları eklemeniz gerekiyorsa, bunu Excel'de nasıl ele alabilirsiniz? Genel olarak, sayfa sonlarını tek tek manuel olarak ekleyebilirsiniz, ancak burada bunu hızlıca çözmek için bazı ipuçları sunuyorum.

Sayfa sonlarını eklemek için Alt Toplam işlevini kullanma

Sayfa sonlarını eklemek için VBA kodu kullanma

Veri değişikliklerinde sayfa sonu eklemek için Farkları Ayır seçeneğini kullanma

Her satıra sayfa sonu ekleme aracını kullanarak n'inci satırlara sayfa sonu ekleme

Sayfa sonlarını eklemek için Alt Toplam işlevini kullanma

Excel'de Alt Toplam işlevi, gruplara göre sayfa sonları ekleyebilir.

1. Sayfa sonları eklemek istediğiniz verileri seçin ve tıklayın Veri > Alt Toplam.

2. Alt Toplam diyalog kutusunda, her değişiklikte açılır listedeki değere göre sayfa sonu eklemek istediğiniz sütunu seçin, ardından kullanmak istediğiniz işlevi şuradan seçin Kullanılacak işlev listesi, ardından işaretleyin Gruplar arasında sayfa sonu onay kutusunu ve ihtiyacınız olan diğer seçenekleri işaretleyin.

3. Tıklayın Tamam. Şimdi veriler gruplandırıldı ve sayfa sonları eklendi.

Sayfa sonlarını eklemek için VBA kodu kullanma

Eğer verilere grup eklemek istemiyorsanız, bu görevi gerçekleştirmek için VBA kodunu deneyebilirsiniz.

1. Microsoft Visual Basic for Applications penceresini görüntülemek için Alt + F11 tuşlarına basın.

2. Ekle > Modül'e tıklayın, aşağıdaki kodu kopyalayıp yeni Modül penceresine yapıştırın.

VBA: Veri değişikliklerinde sayfa sonu ekleme

Sub PageBreak()
'UpdatebyExtendOffice20181101
    Dim xSRg As Range
    Dim xRg As Range
    On Error Resume Next
    Set xSRg = Application.InputBox("Select key column:", "Kutools for Excel", xTxt, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
    For Each xRg In xSRg
        ActiveSheet.Rows(xRg.Row).PageBreak = xlPageBreakNone
        If xRg.Value <> xRg.Offset(-1, 0).Value Then
            ActiveSheet.Rows(xRg.Row).PageBreak = xlPageBreakManual
        End If
    Next xRg
Application.ScreenUpdating = True
End Sub

3. Tuşa basın F5 tuşuna basın, size hangi anahtar sütunun sayfa sonu ekleyeceğini hatırlatmak için bir iletişim kutusu çıkacaktır.

4. Tamam'a tıklayın, şimdi sayfa sonları eklendi.

Veri değişikliklerinde sayfa sonu eklemek için Farkları Ayır seçeneğini kullanma

Kutools for Excel'in Farkları Ayır özelliği, Excel'de veri değişikliklerinde sayfa sonu, boş satır, alt kenarlık veya arka plan rengi eklemeyi destekler.

Kutools for Excel'i yükledikten sonra lütfen aşağıdaki adımları izleyin:（Kutools for Excel'i Şimdi Ücretsiz İndir!)

Tıklayın Kutools > Biçim > Farkları Ayır.

2. Anahtar Sütuna Göre Farkları Ayır iletişim kutusunda, lütfen aşağıdaki ayarları tamamlayın:

1) seçim simgesine tıklayın  bölümündeki Aralık seçimi yapın (sütun başlıklarını hariç tutarak)

2) seçim simgesine tıklayın  bölümündeki Anahtar Sütun seçimi yapın, sayfa sonu eklemek istediğiniz sütunu seçin (sütun başlıklarını hariç tutarak)

3) işaretleyin Sayfa Sonu seçeneğini Seçenekler bölümünde.

3. Tamam'a tıklayın.

Şimdi, seçilen aralıkta veri değişikliklerinde sayfa sonları eklendi.

Her Satıra Sayfa Sonu Ekle aracıyla n'inci satırlara sayfa sonu ekleme

Eğer sabit aralıklarla sayfa sonları eklemek istiyorsanız, Kutools for Excel’in Her Satıra Sayfa Sonu Ekle özelliğini kullanarak sorunu hızlıca çözebilirsiniz.

Kutools for Excel'i yükledikten sonra lütfen aşağıdaki adımları izleyin:（Kutools for Excel'i Şimdi Ücretsiz İndir!)

1. Verileri seçin ve tıklayın Kutools Plus > Yazdırma > Her Satıra Sayfa Sonu Ekle.

2. Her Satıra Sayfa Sonu Ekle diyalog kutusunda, ihtiyacınız olan aralığı yazın.

3. Tıklayın Tamam > Tamam diyalogları kapatmak için, sayfa sonları her 2 satırda bir eklendi.

  Her N'inci Satıra Sayfa Sonu Ekle