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
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:
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:
4. tıklayın OKve bölmek istediğiniz sütun sayısını girin. Ekran görüntüsüne bakın:
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:
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:
2. In Birden Çok Sütunu Yazdır iletişim kutusu:
- İlk tıklayın Aralığın başlığını seçmek için düğmesine ve ardından ikinci Bö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:
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:
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 Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
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!