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

Argraffwch golofn hir ar un dudalen gyda Kutools ar gyfer Excel

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.

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:

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:

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

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

Argraffwch golofn 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 Hollti i Golofnau 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 chi wneud y camau canlynol:

1. Cliciwch Kutools Byd Gwaith > Hollti i Golofnau, gweler y screenshot:

2. Yn y blwch deialog wedi'i bilio allan:

• Cliciwch y cyntaf  botwm i ddewis teitl yr ystod, ac yna cliciwch yr ail  botwm 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:

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