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 alkalmazással
- Bármely újrafelhasználása: Adja hozzá a leggyakrabban használt vagy összetett képleteket, diagramokat és bármi mást a kedvenceihez, és a későbbiekben gyorsan használja fel újra.
- Több mint 20 szöveges szolgáltatás: Szám kivonása a szöveges karakterláncból; Bontsa ki vagy távolítsa el a szövegek egy részét; Számok és pénznemek konvertálása angol szavakká.
- Eszközök egyesítése: Több munkafüzet és lap egybe; Egyesítsen több cellát / sort / oszlopot adatok elvesztése nélkül; Az ismétlődő sorok és összeg összevonása.
- Felosztott eszközök: Az adatok felosztása több lapra az érték alapján; Egy munkafüzet több Excel, PDF vagy CSV fájlhoz; Egy oszlop több oszlopra.
- Ugrás beillesztése Rejtett / szűrt sorok; Gróf és összeg háttérszínnel; Személyre szabott e-maileket küldhet több címzettnek tömegesen.
- Szuper szűrő: Hozzon létre speciális szűrősémákat, és alkalmazza azokat bármilyen lapra; Fajta hét, nap, gyakoriság és egyebek szerint; Szűrő félkövérrel, képletekkel, megjegyzésekkel ...
- Több mint 300 hatékony funkció; Működik az Office 2007-2021 és 365 verziókkal; Támogatja az összes nyelvet; Könnyű üzembe helyezés a vállalkozásban vagy szervezetben.
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 alkalmazással
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.
Ha telepítette a Kutools for Excel alkalmazást, 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 termelékenységi eszközök
A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet
- újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
- Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
- Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
- Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
- Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
- Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
- Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
- Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
- Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
Az Office fül a füles felületet hozza 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!
