Belki daha önce çalışan VBA'ya aşina değilsinizdir, ancak aşağıdaki adımlarla, her X satırında bir sayfa sonu eklemek için VBA'yı nasıl çalıştıracağınızı öğrenebilirsiniz. Burada her 3 satıra bir sayfa sonu ekleyeceğim.

1. Basın Alt + F11 görüntülemek için Uygulamalar için Microsoft Visual Basic pencere.

2. Pencerede tıklayın Ekle > modül yeni bir modül penceresi göstermek için, ardından aşağıdaki VBA kodunu modül penceresine kopyalayın.

VBA: Bir çalışma sayfasındaki her X satırına sayfa sonu ekleyin.

Sub InsertPageBreaks()
'Updateby20140618
Dim xLastrow As Long
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
xRow = Application.InputBox("Row", xTitleId, "", Type:=1)
xWs.ResetAllPageBreaks
xLastrow = xWs.Range("A1").SpecialCells(xlCellTypeLastCell).Row
For i = xRow + 1 To xLastrow Step xRow
    xWs.HPageBreaks.Add Before:=xWs.Cells(i, 1)
Next
End Sub

3. tıklayın koşmak düğmesi ve sayfa sonu eklemek istediğiniz her X satırı belirtmeniz için bir iletişim kutusu açılır. Burada her 3 satıra bir sayfa sonu ekliyorum. Ekran görüntüsüne bakın:

4. tıklayın OKve sonra her X satırına bir sayfa sonu ekleyecektir.

Etkin çalışma sayfasındaki her (n.) Satıra hızla sayfa sonu ekleyin

Normalde tıklayarak bir sayfa sonu ekleriz Sayfa Düzeni > Sonları > Sayfa Sonu Ekle. Ancak bu şekilde, her satırı ayrı bir sayfada yazdırmak için her satıra bir sayfa sonu eklemeniz gerektiği gibi, bir çalışma sayfasına birden çok sayfa sonu eklemek çok sıkıcı olur. Endişelenme! Kutools for Excel's Her Satıra Sayfa Sonu Ekle yardımcı programı kolayca arşivlemenize yardımcı olabilir!

Kutools for Excel yüklüyse, Sütunlara Böl yardımcı programı, Excel'de her sayfada kolayca başlık bulundurarak her x satırdan sonra birden çok sayfa sonu eklemenize yardımcı olabilir.

1. tıklayın Sütunlara Böl üzerinde Kutools Artı sekmesi.

2. Sütunlara Böl iletişim kutusunu açarken yapmanız gerekenler:

(1) Gözat düğmesini tıklayın  içinde Başlık aralığı kutusunu seçin ve belirtilen aralıkta sayfa sonlarını toplu olarak ekleyeceğiniz başlık satırını seçin.
(2) Gözat düğmesini tıklayın içinde Tarih aralığı kutusunu tıklayın ve sayfa sonlarını toplu olarak ekleyeceğiniz aralığı seçin.
(3) Yazdırılan sayfa başına satır sayısı kutusuna bir sayı girin. (Bahşiş: Örneğin, her 3 satırdan sonra sayfa sonu eklemeniz gerekiyorsa, lütfen kutuya 3 girin; her satırdan sonra sayfa sonlarını etkisiz hale getirmeniz gerekiyorsa, lütfen 1 girin.)
(4) 1 girin Segment sayısı kutu.

3. Tıkla Ok düğmesine basın.

Şimdi aralığın yeni bir çalışma sayfasına kopyalandığını ve aralık başlığını koruyarak her x satırdan sonra sayfa sonlarının eklendiğini göreceksiniz. Ayrıca tıklayarak Sayfa Sonu Önizleme görünümüne geçebilirsiniz. Görüntüle > Sayfa Sonu Önizlemesi bu sayfa sonlarını görmek için. Aşağıdaki ekran görüntüsüne bakın.

Kutools for Excel, her x satırdan sonra kolaylıkla sayfa sonları eklemede uzmanlaşmış, Her Satırda Sayfa Sonu Ekle yardımcı programı geliştirir.

1. Her x satırdan sonra sayfa sonu ekleyeceğiniz aralığı seçin ve Baskı > Her Satıra Sayfa Sonu Ekle üzerinde Kutools Artı sekmesi.

2. Her Satırda Sayfa Sonu Ekle iletişim kutusunun açılışında, sayfa sonları ekleyeceğiniz satırların aralığını belirtin ve Ok düğmesine basın.

Ardından, belirtilen satır aralığında bir defada sayfa sonlarının eklendiğini göreceksiniz.