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

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

Az Office fül lehetővé teszi a füles szerkesztést és böngészést az Office-ban, és sokkal könnyebbé teszi a munkáját ...
A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet
  • 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.

nyíl kék jobb buborék 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:

doc-print-long-column1


nyíl kék jobb buborék 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:

doc-print-long-column2

4. Kattints OK, és írja be az osztani kívánt oszlopok számát. Lásd a képernyőképet:

doc-print-long-column3

5. és kattintson OK, a hosszú oszlop öt oszlopra lett felosztva egy új munkalapon. Képernyőképek megtekintése:

doc-print-long-column4 -2 doc-print-long-column5

nyíl kék jobb buborék 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:

doc-print-long-column6

2. Az Több oszlop nyomtatása párbeszédablak:

  • Kattintson az elsőre doc-gomb gombbal válassza ki a tartomány címét, majd kattintson a másodikra doc-gombgombot 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:

doc-print-long-column7

3. Ezután kattintson OK, a hosszú lista adatait egy oszlopban öt oszlopra osztották fel. Képernyőképek megtekintése:

doc-print-long-column8 -2 doc-print-long-column9

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.
kte lap 201905

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!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (13)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Üdvözöljük, lenne egy kérdésem a második opcióval kapcsolatban: "Hosszú oszlop nyomtatása egy oldalra VBA kóddal". Ha egynél több oszlop van a tartományban, hogyan használhatom ugyanazt a kódot. Tegyük fel, hogy a "$A$2:$C$118" tartomány, hogyan tudom működni. Kösz.
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm az információt! Nagyon hasznos volt és könnyen használható - még annak is, aki nem rendelkezik erős számítógépes ismeretekkel (én az első módszert használtam)
A weboldal moderátora ezt a megjegyzést minimalizálta
Miután órákig keresgéltem az interneten, erre bukkantam. Pontosan az, amit kerestem. Szép munka, és köszönöm, hogy időt szakított erre.
A weboldal moderátora ezt a megjegyzést minimalizálta
Tisztelt Uram! Köszönjük ezt a munkát! Ez a VBA kód nagyon hasznos a munkámhoz, örülök, hogy pillanatok alatt elvégezhetem a feladatomat. Köszönöm. ....
A weboldal moderátora ezt a megjegyzést minimalizálta
Használhat egy egyszerű képletet =OFFSET(Sheet1!$A$1,(ROW()-2)*5+COLUMN(),0) az adatok vízszintes áramlásához 5 oszlopban. Ezután kiválaszthatja az Oldalméretet, minden oldalra nyomtathatja az első sort stb. Egyszerű, ügyes, nincs VBA
A weboldal moderátora ezt a megjegyzést minimalizálta
Van mód ennek a képletnek a módosítására úgy, hogy 3 helyett 1 oszloppal működjön?
A weboldal moderátora ezt a megjegyzést minimalizálta
Engem is érdekelne egy ilyen megoldás.
A weboldal moderátora ezt a megjegyzést minimalizálta
hova megy ez a képlet? Több sort próbálok kinyomtatni több oszloppal egy oldalon többsoros elrendezésben. Ehhez hasonló:

John Smith 1. hét
John Smith 2. hét
John Smith összesíti


Több mint 100 sorom van IJ-ig
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm! A képlet zökkenőmentesen működött!
A weboldal moderátora ezt a megjegyzést minimalizálta
Vagy egyszerűen másolhatja a táblázatot, és beillesztheti egy Word dokumentumba, annyi oszloppal, amennyit csak akar.
A weboldal moderátora ezt a megjegyzést minimalizálta
Van egy 10,000 XNUMX számból álló oszlopom, és a VBA makró több oldalon is tartalmaz egy táblázatot. Azt szeretném azonban, ha az egyes oldalak numerikusan vannak rendezve, nem pedig az oszlopok. Minden segítséget nagyra értékelünk.
A weboldal moderátora ezt a megjegyzést minimalizálta
Van egy 10,000 XNUMX egyedi számból álló oszlopom, mindegyik rendezve. A VBA kód táblázatot biztosít, de az oszlopok egyenként vannak rendezve.
Azt szeretném, ha minden oldal numerikusan lenne rendezve, így könnyen követhető az adatok oldalról oldalra. Minden javaslatot szívesen fogadunk.
Keith
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Paterson!
Talán a következő VBA-kód tehet egy szívességet:
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



Próbáld ki, remélem tud segíteni!
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi