Excel'de uzun bir sütunu tek bir sayfaya nasıl yazdırabilirsiniz?

Diyelim ki bir sütunda çok uzun bir veri listesi var, belki de 200 satır, ve şimdi bunları yazdırmak istiyorsunuz, ancak yazdırdığınızda yaklaşık 5 sayfa kağıt kullanıyor ve yalnızca sol tarafta bir sütun varken sağ tarafta çok fazla boş alan kalıyor. Word'de sütunlara bölebilirsiniz, ancak Excel'de bu fonksiyon bulunmamaktadır. Uzun liste verilerini tek bir sayfaya nasıl yazdırırsınız ki kağıt tasarrufu sağlayın?

Uzun bir sütunu formül ile tek bir sayfaya yazdırma

Uzun bir sütunu VBA kodu ile tek bir sayfaya yazdırma

Kutools for Excel ile uzun bir sütunu tek bir sayfaya yazdırma

Uzun bir sütunu formül ile tek bir sayfaya yazdırma

Size bu sorunu çözmek için uzun bir formül tanıtayım, lütfen şu adımları izleyin:

1. Etkin çalışma kitabınızın yeni bir çalışma sayfasında, =EĞER(KAYDIR(Sheet1!$A$1;(SÜTUN()-1)*45+SATIR()-1;0)="";"";KAYDIR(Sheet1!$A$1;(SÜTUN()-1)*45+SATIR()-1;0)) formülünü A1 hücresine girin.

2. Ardından A1 hücresini seçin ve doldurma tutamacını 45. satıra kadar aşağı çekin ve ardından veriler gösterilene kadar sağa doğru sürüklemeye devam edin. Böylece uzun sütun, yeni bir çalışma sayfasında tek bir sayfaya sığacak şekilde birkaç sütuna bölünmüş olur. Ekran görüntüsüne bakın:

Uzun bir sütunu VBA kodu ile tek bir sayfaya yazdırma

Aşağıdaki VBA kodu da size uzun bir veri listesini birkaç sütuna bölmeye yardımcı olabilir, böylece verileri yazdırabilir ve kağıt tasarrufu sağlayabilirsiniz.

1. ALT + F11 tuşlarına basılı tutun ve Microsoft Visual Basic for Applications penceresi açılacaktır.

2. Ekle Insert > Module'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

Sub SingleToMultiColumn()
    Dim rng As Range
    Dim iCols As Integer
    Dim lRows As Long
    Dim iCol As Integer
    Dim lRow As Long
    Dim lRowSource As Long
    Dim x As Long
    Dim wks As Worksheet
    Set rng = Application.InputBox _
      (prompt:="Select the range to convert", _
      Type:=8)
    iCols = InputBox("How many columns do you want?")
    lRowSource = rng.Rows.Count
    lRows = lRowSource / iCols
    If lRows * iCols <> lRowSource Then lRows = lRows + 1
    Set wks = Worksheets.Add
    lRow = 1
    x = 1
    For iCol = 1 To iCols
        Do While x <= lRows And lRow <= lRowSource
            Cells(x, iCol) = rng.Cells(lRow, 1)
            x = x + 1
            lRow = lRow + 1
        Loop
        x = 1
    Next
End Sub

3. Ardından bu kodu çalıştırmak için F5 tuşuna basın ve açılan diyalog kutusunda bölmek istediğiniz liste verilerini seçin, ekran görüntüsüne bakın:

4. Tamam'a tıklayın ve bölmek istediğiniz sütun sayısını girin. Ekran görüntüsüne bakın:

5. Ve Tamam'a tıklayın, uzun sütun yeni bir çalışma sayfasında beş sütuna bölünmüş olacaktır. Ekran görüntülerine bakın:

Kutools for Excel ile uzun bir sütunu tek bir sayfaya yazdırma

Hem uzun formül hem de VBA kodu sizin için zor olabilir, işte size bu sorunu çözmek için kolay ve rahat bir yöntem tanıtayım. Kutools for Excel'in Veriyi Böl özelliği, uzun bir sütunu hızlı bir şekilde birkaç sütuna bölebilmeniz için size yardımcı olabilir, böylece onları mantıklı bir şekilde yazdırabilirsiniz.

Kutools for Excel, 300'den fazla kullanışlı Excel aracı içerir. 30 gün boyunca sınırlama olmadan ücretsiz deneyin. Şimdi Edinin.

Kutools for Excel'i yükledikten sonra aşağıdaki adımları izleyebilirsiniz:

1. Kutools Plus > Veriyi Bölümlere Ayır'a tıklayın, ekran görüntüsüne bakın:

2. Açılan diyalog kutusunda:

• İlk düğmesine tıklayarak aralığın başlığını seçin ve ardından ikinci düğmesine tıklayarak bölmek istediğiniz sütunu seçin.
• Ardından, Sayfa Başına Satır bölümünden sayfaya koymak istediğiniz satır sayısını belirtin ve Sayfa Başına Sütun Sayısı altında bir sayfada istediğiniz sütun sayısını girin. Ekran görüntüsüne bakın:

3. Ardından Tamam'a tıklayın, uzun liste verileri bir sayfada beş sütuna bölünmüş olacaktır. Ekran görüntülerine bakın: