Note: The other languages of the website are Google-translated. Back to English

Excel'de bir sayfada uzun sütun nasıl yazdırılır?

Bir sütunda uzun bir veri listeniz olduğunu varsayarsak, belki 200 satır ve şimdi bunları yazdırmanız gerekir, ancak yazdırdığınızda, sol tarafta yalnızca bir sütun ve üzerinde çok fazla beyaz alan olmak üzere yaklaşık 5 sayfalık kağıt kullanır. sağ taraf. Kelime olarak, sütun yapabilirsiniz, ancak Excel'in bu işlevi yoktur. Kağıttan tasarruf etmek için uzun liste verilerini bir sayfaya nasıl yazdırırsınız?

Formül ile bir sayfada uzun sütun yazdırın

VBA kodu ile tek sayfada uzun sütun yazdırın

Kutools for Excel ile tek sayfada uzun sütun yazdırın

Office Sekmesi Office'te Sekmeli Düzenleme ve Göz Atmayı Etkinleştirin ve İşinizi Çok Daha Kolay Hale Getirin ...
Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır
  • Her Şeyi Yeniden Kullanın: En çok kullanılan veya karmaşık formülleri, grafikleri ve diğer her şeyi favorilerinize ekleyin ve gelecekte bunları hızla yeniden kullanın.
  • 20'den fazla metin özelliği: Metin Dizesinden Sayı Ayıklama; Metin Parçalarını Çıkarın veya Çıkarın; Sayıları ve Para Birimlerini İngilizce Kelimelere dönüştürün.
  • Araçları Birleştirme: Birden Fazla Çalışma Kitabı ve Çalışma Sayfası Bir Arada; Veri Kaybetmeden Birden Çok Hücre / Satır / Sütunu Birleştirme; Yinelenen Satırları ve Toplamı Birleştir.
  • Araçları Böl: Verileri Değere Göre Birden Çok Sayfaya Bölün; Birden Çok Excel, PDF veya CSV Dosyasına Bir Çalışma Kitabı; Birden Çok Sütuna Bir Sütun.
  • Atlamayı Yapıştır Gizli / Filtrelenmiş Satırlar; Say ve Toplam Arka Plan Rengine Göre; Kişiselleştirilmiş E-postaları Birden Fazla Alıcıya Toplu Olarak Gönderin.
  • Süper Filtre: Gelişmiş filtre şemaları oluşturun ve herhangi bir sayfaya uygulayın; Sırala hafta, gün, sıklık ve daha fazlasına göre; filtre kalın, formüller, yorum ...
  • 300'den fazla güçlü özellik; Office 2007-2021 ve 365 ile çalışır; tüm dilleri destekler; Kuruluşunuzda veya kuruluşunuzda kolay devreye alma.

ok mavi sağ balon Formül ile bir sayfada uzun sütun yazdırın

Burada size bu sorunu çözmek için uzun bir formül sunabilirim, lütfen şu şekilde yapın:

1. Etkin çalışma kitabınızın yeni bir çalışma sayfasına formülü girin =IF(OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)="","",OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)) A1 hücresine.

notlar: Sheet1 sütunlamak istediğiniz uzun listeyi içeren çalışma sayfasıdır.

45 verileri bir sütunda listelemek istediğiniz satır numarasıdır.

Hepsi değişkendir ve bunları ihtiyacınıza göre değiştirebilirsiniz.

2. Ardından A1 hücresini seçin ve doldurma tutamacını 45. satıra sürükleyin ve ardından veriler görüntülenene kadar doldurma tutamacını sağa doğru sürüklemeye devam edin. Ve uzun sütun, yeni bir çalışma sayfasında bir sayfaya sığması için birkaç sütuna bölünmüştür. Ekran görüntüsüne bakın:

doc-print-uzun-sütun1


ok mavi sağ balon VBA kodu ile tek sayfada uzun sütun yazdırın

Aşağıdaki VBA kodu ayrıca uzun bir veri listesini birkaç sütuna bölmenize yardımcı olabilir, böylece verileri yazdırabilir ve kağıt tasarrufu yapabilirsiniz.

1. Basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve 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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için tuşuna basın ve açılan iletişim kutusunda bölmek istediğiniz liste verilerini seçin, ekran görüntüsüne bakın:

doc-print-uzun-sütun2

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

doc-print-uzun-sütun3

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

doc-print-uzun-sütun4 -2 doc-print-uzun-sütun5

ok mavi sağ balon Kutools for Excel ile tek sayfada uzun sütun yazdırın

Hem uzun formül hem de VBA kodu sizin için zor olabilir, burada size bu sorunu çözmek için kolay ve kullanışlı bir yöntem sunabilirim. Kutools for Excel'S Birden Çok Sütunu Yazdır işlevi, uzun sütunu hızlı bir şekilde birkaç sütuna ayırmanıza yardımcı olabilir, böylece bunları makul bir şekilde yazdırabilirsiniz.

Kutools for Excel 300'den fazla kullanışlı Excel aracı içerir. 30 günde hiçbir sınırlama olmaksızın ücretsiz deneyin. Şimdi alın.

Kutools for Excel'i kurduğunuzda, aşağıdaki adımları uygulayabilirsiniz:

1. tıklayın kuruluş > Birden Çok Sütunu Yazdır, ekran görüntüsüne bakın:

doc-print-uzun-sütun6

2. In Birden Çok Sütunu Yazdır iletişim kutusu:

  • İlk tıklayın doc düğmesi Aralığın başlığını seçmek için düğmesine ve ardından ikinci doc düğmesiBölmek istediğiniz sütunu seçmek için düğmesine basın.
  • Ardından, sayfa başına yerleştirmek istediğiniz satır sayısını belirtin Yazdırılan sayfa başına satır sayısıve altına bir sayfada olmasını istediğiniz sütun sayısını girin Segment sayısı. Ekran görüntüsüne bakın:

doc-print-uzun-sütun7

3. Sonra tıklayın OK, uzun liste verileri bir sayfada beş sütuna bölünmüştür. Ekran görüntülerine bakın:

doc-print-uzun-sütun8 -2 doc-print-uzun-sütun9

Notlar:

1. Başlık her sütundan önce eklenecektir.

2. Kontrol ederseniz Etkin sayfa ile bir bağlantı oluşturun seçeneği, yeni çalışma sayfası verileri kaynak verilere bağlanabilir.

Bu özellik hakkında daha fazla bilgi edinmek istiyorsanız, lütfen tıklayın Birden Çok Sütunu Yazdır.


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (13)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, ikinci seçenek olan "Uzun sütunu tek sayfada VBA koduyla yazdır" seçeneğiyle ilgili bir sorum var. Aralıkta birden fazla sütunum varsa, aynı kodu nasıl kullanabilirim. Diyelim ki "$A$2:$C$118" aralığını nasıl çalıştırabilirim. Teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu bilgi için teşekkürler! Çok yardımcı oldu ve kullanımı kolaydı - güçlü bilgisayar becerilerine sahip olmayan biri için bile (ilk yöntemi kullandım)
Bu yorum sitedeki moderatör tarafından en aza indirildi
İnternette saatlerce arama yaptıktan sonra denk geldim. Bu tam olarak aradığım şey. İyi iş çıkardınız ve bunun için zaman ayırdığınız için teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sayın Yetkili Bu çalışma için teşekkürler, Bu VBA Kodu işim için çok yardımcı oluyor, görevimi saniyeler içinde tamamladığım için mutluyum. Teşekkür ederim. ....
Bu yorum sitedeki moderatör tarafından en aza indirildi
Verilerin 1 sütunda yatay olarak akmasını sağlamak için basit bir formül =OFFSET(Sheet1!$A$2,(ROW()-5)*0+COLUMN(),5) kullanabilirsiniz. Ardından Sayfa boyutunu seçebilir, her sayfada ilk satırı yazdırabilirsiniz, vb. Basit, düzenli, VBA yok
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu formülü 3 yerine 1 sütunla çalışacak şekilde değiştirmenin bir yolu var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Ben de böyle bir çözümle ilgilenirim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
bu formül nereye gidiyor? Birden çok satır düzeninde bir sayfada birkaç sütun içeren birden çok satır yazdırmaya çalışıyorum. Buna benzer:

john smith 1. hafta
john smith 2. hafta
john smith toplamları


IJ'ye kadar 100'den fazla satırım var
Bu yorum sitedeki moderatör tarafından en aza indirildi
Teşekkür ederim! Formül sorunsuz çalıştı!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Veya tabloyu kopyalayıp istediğiniz kadar sütun içeren bir word belgesine yapıştırabilirsiniz.
Bu yorum sitedeki moderatör tarafından en aza indirildi
10,000 sayıdan oluşan bir sütunum var ve VBA makrosu birkaç sayfada bir tablo sağlayacak. Ancak, her sayfanın sütun yerine sayısal olarak sıralanmasını tercih ederim. Herhangi bir yardım takdir edildi.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Hepsi sıralanmış 10,000 benzersiz sayıdan oluşan bir sütunum var. VBA kodu bir tablo sağlar, ancak Sütunlar ayrı ayrı sıralanır.
Veri sayfasını sayfa sayfa takip etmek için her sayfanın sayısal olarak sıralanmasını tercih ederim. Herhangi bir öneri en hoş geldiniz.
Keith
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, Paterson,
Belki aşağıdaki VBA kodu size bir iyilik yapabilir:
Sub SingleToMultiColumn()
    Dim xRng As Range
    Dim xCount As Integer
    Dim xICols As Integer
    Dim xLRows As Long
    Dim xICol As Integer
    Dim xLRow As Long
    Dim xLRowSource As Long
    Dim xRowNum As Long
    Dim xFCount, xFNum, xFNum_R, xFNum_C As Long
    Dim x As Long
    Dim xWst As Worksheet
    Dim xJ As Integer
    
    Set xRng = Application.InputBox(prompt:="Select the range to convert", Type:=8)
    xICols = InputBox("How many columns do you want?")
    xRowNum = InputBox("How many rows do you want in a page?")
    xCount = xRng.Count
    xFCount = Fix(xCount / (xICols * xRowNum))
    If xICols * xRowNum * xFCount < xCount Then xFCount = xFCount + 1
    Set xWst = Worksheets.Add
    xJ = 0
    Application.ScreenUpdating = False
    For xFNum = 1 To xFCount
        If xJ = xCount Then Exit For
        For xFNum_C = 1 To xICols
            If xJ = xCount Then Exit For
            For xFNum_R = 1 To xRowNum
                If xJ = xCount Then Exit For
                xWst.Cells((xFNum - 1) * xRowNum + xFNum_R, xFNum_C) = xRng.Item(xJ + 1)
                xJ = xJ + 1
            Next
        Next
    Next
     Application.ScreenUpdating = True
End Sub



Lütfen deneyin, umarım size yardımcı olabilir!
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır