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

Ինչպե՞ս երկար սյունակ տպել մեկ էջում Excel- ում:

Ենթադրելով, որ դուք ունեք սյունակում տվյալների երկար ցուցակ, միգուցե 200 տող, և այժմ դուք պետք է տպեք դրանք, բայց տպելիս այն օգտագործում է մոտ 5 էջանոց թուղթ, ձախ կողմում միայն մեկ սյունակ և շատ սպիտակ տարածք: աջ կողմը Բառով դուք կարող եք սյունակել, բայց Excel- ը չունի այս գործառույթը: Ինչպե՞ս եք տպում երկար ցուցակի տվյալները մեկ էջում ՝ թուղթը խնայելու համար:

Տպեք երկար սյունը մեկ էջում բանաձևով

Տպեք երկար սյունը մեկ էջում ՝ VBA կոդով

Տպեք երկար սյունը մեկ էջում Excel- ի համար Kutools- ի հետ

Office Tab- ը միացրեք Tabbed խմբագրումը և զննարկումը Office- ում, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք ...
Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով
  • Վերաօգտագործել ցանկացած բան. Ավելացրեք առավել օգտագործված կամ բարդ բանաձևերը, գծապատկերները և ցանկացած այլ բան ձեր նախընտրածներին և հետագայում արագորեն օգտագործեք դրանք:
  • Ավելի քան 20 տեքստի առանձնահատկություններ. Հանեք համարը տեքստային տողից; Հանել կամ հեռացնել տեքստերի մի մասը; Թվերն ու արժույթները վերածեք անգլերեն բառերի:
  • Միաձուլել գործիքներըԲազմաթիվ աշխատանքային գրքեր և թերթեր մեկում; Միավորել բազմաթիվ բջիջներ / տողեր / սյուններ ՝ առանց տվյալների կորստի: Միաձուլեք կրկնօրինակ տողերն ու գումարը:
  • Պառակտման գործիքներՏվյալները պառակտել բազմակի թերթերի ՝ հիմնված արժեքի վրա. Մեկ աշխատանքային գրքույկ ՝ բազմակի Excel, PDF կամ CSV ֆայլեր; Մեկ սյունակ մի քանի սյունակներից:
  • Կպցնել բաց թողնելը Թաքնված / Filտված շարքեր; Հաշվելը և գումարը ըստ Ֆոնի գույնի; Personalանգվածային տարբերակով ստացողներին ուղարկեք անհատականացված էլ.
  • Սուպեր ֆիլտր Ստեղծեք զտման առաջադեմ սխեմաներ և կիրառեք ցանկացած թերթի վրա; Տեսակ ըստ շաբաթվա, օրվա, հաճախականության և ավելին; ֆիլտր համարձակ, բանաձևերով, մեկնաբանությամբ ...
  • Ավելի քան 300 հզոր հատկություններ; Աշխատում է Office 2007-2021 և 365-ի հետ; Աջակցում է բոլոր լեզուներին; Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում:

նետ կապույտ աջ պղպջակ Տպեք երկար սյունը մեկ էջում բանաձևով

Այստեղ ես կարող եմ ձեզ ներկայացնել այս խնդրի լուծման երկար բանաձև, խնդրում եմ արեք հետևյալ կերպ.

1, Ձեր ակտիվ աշխատանքային գրքի նոր աշխատանքային թերթում մուտքագրեք բանաձևը =IF(OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)="","",OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)) մեջ A1 բջիջ:

Notes: Sheet1 այն աշխատանքային թերթն է, որն ունի երկար ցուցակ, որը ցանկանում եք սյունակել:

45 տողի համարն է, որը ցանկանում եք սյունակում թվարկել տվյալները:

Բոլորն էլ փոփոխական են, և դրանք կարող եք փոխել ըստ ձեր պահանջի:

2, Այնուհետև ընտրեք A1 բջիջը և լրացնելու բռնիչը ներքև քաշեք 45-րդ շարքում, ապա շարունակեք լրացնելով բռնիչը քարշ տալով աջից մինչև տվյալները ցուցադրվեն: Եվ երկար սյունը բաժանվել է մի քանի սյունակների, որպեսզի մեկ էջում տեղադրվի նոր աշխատանքային թերթ: Տեսեք,

doc-print-long-column1


նետ կապույտ աջ պղպջակ Տպեք երկար սյունը մեկ էջում ՝ VBA կոդով

Հետևյալ VBA կոդը կարող է նաև օգնել տվյալների երկար ցուցակը բաժանել մի քանի սյունակների, որպեսզի կարողանաք տպել տվյալները և խնայել թուղթ:

1, Պահեք պահեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներև տեղադրեք հետևյալ կոդը Մոդուլի պատուհանում:

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, Դրանից հետո սեղմեք F5 ստեղնը ՝ այս կոդը գործարկելու համար և ընտրված ցուցակի տվյալները, որոնք ցանկանում եք բաժանել, դուրս եկած երկխոսության դաշտում, տե՛ս նկարը.

doc-print-long-column2

4: Սեղմեք OK, և մուտքագրեք սյունակների քանակը, որը ցանկանում եք բաժանել: Տեսեք,

doc-print-long-column3

5, եւ սեղմեք OK, երկար սյունը բաժանված է հինգ սյունակի նոր աշխատանքային թերթում: Տեսեք սքրինշոթերը.

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

նետ կապույտ աջ պղպջակ Տպեք երկար սյունը մեկ էջում Excel- ի համար Kutools- ի հետ

Թե՛ երկար բանաձևը և թե՛ VBA կոդը կարող են դժվար լինել ձեզ համար, այստեղ ես կարող եմ ձեզ ներկայացնել այս խնդրի լուծման հեշտ և հարմար մեթոդ: Excel- ի համար նախատեսված գործիքներ'S Տպել մի քանի սյունակ գործառույթը կօգնի ձեզ արագ բաժանել երկար սյունը մի քանի սյունակների, որպեսզի կարողանաք դրանք հիմնավոր կերպով տպել:

Excel- ի համար նախատեսված գործիքներ ներառում է ավելի քան 300 հարմար Excel գործիքներ: Փորձեք առանց սահմանափակումների 30 օրվա ընթացքում: Get it Now.

Երբ Kutools- ը տեղադրեք Excel- ի համար, կարող եք անել հետևյալ քայլերը.

1: Սեղմեք ձեռնարկություն > Տպել մի քանի սյունակ, տես նկարի նկարը.

doc-print-long-column6

2, Մեջ Տպել մի քանի սյունակ երկխոսության տուփ:

  • Կտտացրեք առաջինը դոկ-կոճակ միջակայքի վերնագիրն ընտրելու կոճակը, ապա կտտացրեք երկրորդին դոկ-կոճակկոճակը ընտրելու համար այն սյունակը, որը ցանկանում եք բաժանել:
  • Դրանից հետո նշեք այն շարքերի քանակը, որոնցից ցանկանում եք տեղադրել յուրաքանչյուր էջի համար Տողեր մեկ տպված էջի համարև մուտքագրեք սյունակների քանակը, որը ցանկանում եք մեկ էջի տակ Բաժինների քանակը, Տեսեք,

doc-print-long-column7

3. Այնուհետեւ կտտացրեք OK, երկար ցուցակի տվյալները բաժանված են էջի հինգ սյունակների: Տեսեք սքրինշոթերը.

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

Նշումներ:

1. Վերնագիրը կավելացվի յուրաքանչյուր սյունակից առաջ:

2. Եթե ստուգում եք Հղում ստեղծեք ակտիվ թերթիկով տարբերակը, նոր աշխատանքային թերթի տվյալները կարող են կապված լինել աղբյուրի տվյալների հետ:

Եթե ​​ցանկանում եք ավելին իմանալ այս հատկության մասին, խնդրում ենք կտտացնել Տպել մի քանի սյունակ.


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (13)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ես հարց ունեմ երկրորդ տարբերակի հետ կապված՝ «Տպել երկար սյունակը մեկ էջում VBA կոդով»։ Եթե ​​միջակայքում ունեմ մեկից ավելի սյունակ, ինչպես կարող եմ օգտագործել նույն կոդը: Եկեք ասենք «$A$2:$C$118»-ի միջակայքը, թե ինչպես կարող եմ դա անել: Շնորհակալություն։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն այս տեղեկատվության համար: Դա շատ օգտակար էր և հեշտ օգտագործման համար, նույնիսկ այն մարդու համար, ով չուներ ուժեղ համակարգչային հմտություններ (ես օգտագործեցի առաջին մեթոդը)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինտերնետում ժամերով փնտրելուց հետո ես պատահաբար հանդիպեցի սա. Դա հենց այն է, ինչ ես փնտրում էի: Հաճելի աշխատանք և շնորհակալություն դրա համար ժամանակ հատկացնելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի պարոն Շնորհակալություն այս աշխատանքի համար, այս VBA ծածկագիրը շատ օգտակար է իմ աշխատանքի համար, ես ուրախ եմ, որ իմ առաջադրանքն ավարտեցի վայրկյանների ընթացքում: Շնորհակալություն. ....
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դուք կարող եք օգտագործել պարզ բանաձև =OFFSET(Sheet1!$A$1,(ROW()-2)*5+COLUMN(),0)՝ թույլ տալու համար, որ տվյալները հոսեն հորիզոնական 5 սյունակներում: Այնուհետև կարող եք ընտրել Էջի չափը, տպել առաջին տողը յուրաքանչյուր էջի վրա և այլն: Պարզ, կոկիկ, առանց VBA-ի
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս բանաձևը փոփոխելու միջոց կա՞ 3-ի փոխարեն 1 սյունակով աշխատելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինձ նույնպես կհետաքրքրի նման լուծում.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ուր է գնում այս բանաձեւը Ես փորձում եմ տպել մի քանի տողեր մի քանի սյունակներով մեկ էջի վրա՝ մի քանի տողերի դասավորությամբ: Սրա նման.

Ջոն Սմիթ շաբաթ 1
Ջոն Սմիթ շաբաթ 2
Ջոն Սմիթի ընդհանուր գումարը


Ես ունեմ ավելի քան 100 տող մինչև IJ-ով
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն! Բանաձևը անխափան աշխատեց:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կամ կարող եք պարզապես պատճենել աղյուսակը և տեղադրել այն word փաստաթղթում՝ այնքան սյունակներով, որոնք ցանկանում եք ունենալ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ունեմ 10,000 թվերի սյունակ, և VBA մակրոները մի քանի էջերի վրա կներկայացնեն աղյուսակ: Այնուամենայնիվ, ես կնախընտրեի, որ յուրաքանչյուր էջ դասավորված լինի թվային, այլ ոչ թե սյունակի: Ցանկացած օգնություն գնահատելի է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ունեմ 10,000 եզակի թվերի սյունակ՝ բոլորը տեսակավորված: VBA կոդը տրամադրում է աղյուսակ, սակայն սյունակները տեսակավորված են առանձին:
Ես կնախընտրեի, որ յուրաքանչյուր էջ թվային կերպով դասավորված լինի այնքան հեշտ՝ հետևել տվյալներին էջ առ էջ: Ցանկացած առաջարկություն առավել ողջունելի է:
Keith
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Պատերսոն,
Միգուցե հետևյալ VBA կոդը կարող է ձեզ լավություն անել.
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



Խնդրում եմ փորձեք, հուսով եմ, որ դա կարող է օգնել ձեզ:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից