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

Sut i argraffu colofn hir ar un dudalen yn Excel?

Gan dybio bod gennych chi restr hir o ddata mewn colofn, efallai 200 rhes, ac nawr mae angen i chi eu hargraffu, ond pan fyddwch chi'n argraffu, mae'n defnyddio tua 5 papur, gyda dim ond un golofn ar yr ochr chwith, a llawer o le gwyn ar yr ochr dde. Mewn gair, gallwch golofn, ond nid oes gan Excel y swyddogaeth hon. Sut ydych chi'n argraffu'r data rhestr hir ar un dudalen i achub y papur?

Argraffu colofn hir ar un dudalen gyda fformiwla

Argraffu colofn hir ar un dudalen gyda chod VBA

Argraffu colofn hir ar un dudalen gyda Kutools ar gyfer Excel

Tab Swyddfa Galluogi Golygu a Pori Tabbed yn y Swyddfa, a Gwneud Eich Gwaith yn Haws Orau ...
Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%
  • Ailddefnyddio Unrhyw beth: Ychwanegwch y fformwlâu, siartiau ac unrhyw beth arall a ddefnyddir fwyaf cymhleth i'ch ffefrynnau, a'u hailddefnyddio'n gyflym yn y dyfodol.
  • Mwy nag 20 o nodweddion testun: Rhif Detholiad o Llinyn Testun; Tynnu neu Dynnu Rhan o Testunau; Trosi Rhifau ac Arian Cyfred yn Eiriau Saesneg.
  • Uno Offer: Llyfrau Gwaith a Thaflenni Lluosog yn Un; Uno Celloedd Lluosog / Rhesi / Colofnau Heb Golli Data; Uno Rhesi a Swm Dyblyg.
  • Hollti Offer: Rhannwch Ddata yn Daflenni Lluosog Yn Seiliedig ar Werth; Un Llyfr Gwaith i Ffeiliau Lluosog Excel, PDF neu CSV; Un Golofn i Golofnau Lluosog.
  • Gludo Sgipio Rhesi Cudd / Hidlo; Cyfrif A Swm yn ôl Lliw Cefndir; Anfon E-byst wedi'u Personoli at Dderbynwyr Lluosog mewn Swmp.
  • Hidlo Gwych: Creu cynlluniau hidlo datblygedig a'u cymhwyso i unrhyw daflenni; Trefnu yn yn ôl wythnos, dydd, amlder a mwy; Hidlo gan feiddgar, fformwlâu, sylw ...
  • Mwy na 300 o nodweddion pwerus; Yn gweithio gyda'r Swyddfa 2007-2019 a 365; Yn cefnogi pob iaith; Defnydd hawdd yn eich menter neu sefydliad.

swigen dde glas saeth Argraffu colofn hir ar un dudalen gyda fformiwla


Yma, gallaf gyflwyno fformiwla hir i ddatrys y broblem hon, gwnewch fel hyn:

1. Mewn taflen waith newydd o'ch llyfr gwaith gweithredol, nodwch y fformiwla =IF(OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)="","",OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)) i mewn i'r gell A1.

Nodiadau: Sheet1 yw'r daflen waith sydd â'r rhestr hir rydych chi am ei cholofnio.

45 yw'r rhif rhes rydych chi am restru'r data mewn colofn.

Maent i gyd yn newidynnau, a gallwch eu newid fel eich angen.

2. Yna dewiswch gell A1, a llusgwch y handlen llenwi i lawr i res 45, ac yna ewch ymlaen i lusgo'r handlen llenwi ar draws i'r dde nes bod y data wedi'i arddangos. Ac mae'r golofn hir wedi'i rhannu'n sawl colofn i ffitio ar un dudalen mewn taflen waith newydd. Gweler y screenshot:

doc-print-hir-colofn1


swigen dde glas saeth Argraffu colofn hir ar un dudalen gyda chod VBA

Gall y cod VBA canlynol hefyd eich helpu i rannu rhestr hir o ddata yn sawl colofn, fel y gallwch argraffu'r data ac arbed papur.

1. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

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. Yna pwyswch y F5 allwedd i redeg y cod hwn, a dewis y data rhestr rydych chi am ei rannu yn y blwch deialog popped up, gweler y screenshot:

doc-print-hir-colofn2

4. Cliciwch OK, a nodwch nifer y colofnau rydych chi am eu rhannu. Gweler y screenshot:

doc-print-hir-colofn3

5. a chliciwch OK, mae'r golofn hir wedi'i rhannu'n bum colofn mewn taflen waith newydd. Gweler sgrinluniau:

doc-print-hir-colofn4 -2 doc-print-hir-colofn5

swigen dde glas saeth Argraffu colofn hir ar un dudalen gyda Kutools ar gyfer Excel

Efallai y bydd y fformiwla hir a'r cod VBA yn anodd i chi, yma gallaf gyflwyno dull hawdd a chyfleus i chi ddatrys y broblem hon. Kutools ar gyfer Excel'S Argraffu Colofnau Lluosog gall swyddogaeth eich helpu i rannu'r golofn hir yn gyflym i sawl colofn fel y gallwch eu hargraffu'n rhesymol.

Kutools ar gyfer Excel yn cynnwys mwy na 300 o offer Excel defnyddiol. Am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Get it Now.

Pan fyddwch wedi gosod Kutools ar gyfer Excel, gallwch wneud fel y camau canlynol:

1. Cliciwch Menter > Argraffu Colofnau Lluosog, gweler y screenshot:

doc-print-hir-colofn6

2. Yn y Argraffu Colofnau Lluosog blwch deialog:

  • Cliciwch y cyntaf botwm doc botwm i ddewis teitl yr ystod, ac yna cliciwch yr ail botwm docbotwm i ddewis y golofn rydych chi am ei rhannu.
  • Yna nodwch nifer y rhesi rydych chi am eu rhoi ar bob tudalen Rhesi ar bob tudalen argraffedig, a nodwch nifer y colofnau rydych chi eu heisiau mewn un dudalen o dan Nifer y segmentau. Gweler y screenshot:

doc-print-hir-colofn7

3. Yna cliciwch OK, mae'r data rhestr hir wedi'i rannu'n bum colofn mewn tudalen. Gweler sgrinluniau:

doc-print-hir-colofn8 -2 doc-print-hir-colofn9

Nodiadau:

1. Ychwanegir y teitl cyn pob colofn.

2. Os gwiriwch Creu dolen gyda'r ddalen weithredol opsiwn, gellir cysylltu'r data taflen waith newydd â'r data ffynhonnell.

Os ydych chi eisiau gwybod mwy am y nodwedd hon, cliciwch Argraffu Colofnau Lluosog.


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (13)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae gen i gwestiwn yn ymwneud â'r ail opsiwn "Argraffu colofn hir ar un dudalen gyda chod VBA". Os oes gen i fwy nag un golofn mewn ystod sut alla i ddefnyddio'r un cod. Dywedwch yr ystod o "$A$2:$C$118" sut alla i wneud iddo weithio. Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am y wybodaeth yma! Roedd yn ddefnyddiol iawn ac yn hawdd ei ddefnyddio - hyd yn oed i rywun heb sgiliau cyfrifiadurol cryf (defnyddiais y dull cyntaf)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ar ôl chwilio'r rhyngrwyd am oriau, fe wnes i faglu ar draws hwn. Dyna'n union yr oeddwn yn edrych amdano. Gwaith da a diolch am gymryd yr amser ar gyfer hyn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Syr Diolch am y gwaith hwn, Mae'r Cod VBA hwn yn ddefnyddiol iawn ar gyfer fy ngwaith, rwy'n falch o gwblhau fy nhasg mewn eiliadau. Diolch. ....
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gallwch ddefnyddio fformiwla syml = OFFSET(Taflen1!$A$1,(ROW()-2)*5+COLUMN(),0) i adael i'r data lifo'n llorweddol mewn 5 colofn. Yna gallwch ddewis maint Tudalen, argraffu rhes gyntaf ar bob tudalen, ac ati Syml, taclus, dim VBA
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd i addasu'r fformiwla hon i weithio gyda 3 colofn yn lle 1?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Byddai gennyf ddiddordeb mewn datrysiad fel hwn hefyd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
ble mae'r fformiwla hon yn mynd? Rwy'n ceisio argraffu rhesi lluosog gyda sawl colofn ar un dudalen mewn cynllun rhes lluosog. Yn debyg i hyn:

john smith wythnos 1
john smith wythnos 2
cyfansymiau john smith


Mae gen i dros 100 o resi gyda hyd at IJ
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch! Gweithiodd y fformiwla yn ddi-dor!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Neu gallwch gopïo'r tabl, a'i gludo mewn dogfen Word, gyda chymaint o golofnau ag y dymunwch ei chael.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gen i golofn o 10,000 o rifau a bydd y macro VBA yn darparu tabl ar sawl tudalen. Fodd bynnag, byddai'n well gennyf fod pob tudalen yn cael ei didoli'n rhifiadol yn hytrach na'r golofn. Gwerthfawrogir unrhyw help.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gen i golofn o 10,000 o rifau unigryw, i gyd wedi'u didoli. Mae'r cod VBA yn darparu tabl, ond mae'r Colofnau'n cael eu didoli'n unigol.
Byddai'n well gennyf fod pob tudalen wedi'i didoli'n rhifiadol mor hawdd i ddilyn y data fesul tudalen. Croesewir unrhyw awgrymiadau.
Keith
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Paterson,
Efallai y gall y cod VBA canlynol wneud ffafr i chi:
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



Ceisiwch, gobeithio y gall eich helpu!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir