Hogyan nyomtasson hosszú oszlopot egy oldalra az Excel programban?
Tételezzük fel, hogy egy oszlopban hosszú adatlista van, talán 200 sor, és most ki kell nyomtatnia őket, de amikor nyomtat, körülbelül 5 oldalas papírt használ, a bal oldalon csak egy oszlop van, és sok a szóköz a jobb oldal. Egyszóval oszlopozhat, de az Excel nem rendelkezik ezzel a funkcióval. Hogyan nyomtatja ki a hosszú lista adatait egy oldalra a papír megtakarítása érdekében?
Hosszú oszlopot nyomtasson egy oldalra képlettel
Hosszú oszlop nyomtatása egy oldalon, VBA kóddal
Hosszú oszlop nyomtatása egy oldalra a Kutools for Excel segítségével
Hosszú oszlopot nyomtasson egy oldalra képlettel
Itt bemutathatok egy hosszú képletet a probléma megoldására, kérjük, tegye a következőket:
1. Az aktív munkafüzet új munkalapjába írja be a képletet =IF(OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)="","",OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)) az A1 cellába.
Megjegyzések: Sheet1 az a munkalap, amelynek a hosszú oszlopa van.
45 az a sorszám, amelybe az adatokat egy oszlopba kívánja sorolni.
Ezek mind változók, és szükség szerint megváltoztathatja őket.
2. Ezután válassza ki az A1 cellát, és húzza lefelé a kitöltő fogantyút a 45. sorig, majd húzza tovább a kitöltő fogantyút jobbra, amíg az adatok meg nem jelennek. A hosszú oszlopot pedig több oszlopra osztották, hogy egy új munkalapon egy oldalon elférjenek. Lásd a képernyőképet:
Hosszú oszlop nyomtatása egy oldalon, VBA kóddal
A következő VBA-kód segíthet az adatok hosszú listájának több oszlopra osztásában, így kinyomtathatja az adatokat és papírt takaríthat meg.
1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablakba.
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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és a felbukkanó párbeszédpanelen válassza ki a felosztani kívánt listaadatokat, lásd a képernyőképet:
4. Kattints OK, és írja be az osztani kívánt oszlopok számát. Lásd a képernyőképet:
5. és kattintson OK, a hosszú oszlop öt oszlopra lett felosztva egy új munkalapon. Képernyőképek megtekintése:
 |
 |
 |
Hosszú oszlop nyomtatása egy oldalra a Kutools for Excel segítségével
A hosszú képlet és a VBA kód is nehéz lehet az Ön számára, itt bemutathatok egy egyszerű és kényelmes módszert a probléma megoldására. Kutools az Excel számára'S Több oszlop nyomtatása funkció segítségével gyorsan feloszthatja a hosszú oszlopot több oszlopra, hogy ésszerűen kinyomtassa őket.
Kutools az Excel számára több mint 300 praktikus Excel eszközt tartalmaz. 30 nap alatt szabadon kipróbálható korlátozás nélkül. Szerezd meg most.
A Kutools for Excel telepítése után a következő lépéseket teheti:
1. Kattints Vállalkozás > Több oszlop nyomtatása, lásd a képernyőképet:
2. Az Több oszlop nyomtatása párbeszédablak:
- Kattintson az elsőre
gombbal válassza ki a tartomány címét, majd kattintson a másodikra gombot a felosztani kívánt oszlop kiválasztásához. - Ezután adja meg az oldalanként elhelyezendő sorok számát Sorok nyomtatott oldalanként, és írja be a kívánt oszlopok számát egy oldalra Szegmensek száma. Lásd a képernyőképet:
3. Ezután kattintson OK, a hosszú lista adatait egy oszlopban öt oszlopra osztották fel. Képernyőképek megtekintése:
 |
|
 |
Megjegyzések:
1. A cím minden oszlop elé kerül.
2. Ha ellenőrzi Hozzon létre egy linket az aktív munkalapra opcióval az új munkalap adatai összekapcsolhatók a forrás adatokkal.
Ha többet szeretne tudni erről a funkcióról, kattintson a gombra Több oszlop nyomtatása.
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
