Ինչպե՞ս երկար սյունակ տպել մեկ էջում Excel- ում:
Ենթադրելով, որ դուք ունեք սյունակում տվյալների երկար ցուցակ, միգուցե 200 տող, և այժմ դուք պետք է տպեք դրանք, բայց տպելիս այն օգտագործում է մոտ 5 էջանոց թուղթ, ձախ կողմում միայն մեկ սյունակ և շատ սպիտակ տարածք: աջ կողմը Բառով դուք կարող եք սյունակել, բայց Excel- ը չունի այս գործառույթը: Ինչպե՞ս եք տպում երկար ցուցակի տվյալները մեկ էջում ՝ թուղթը խնայելու համար:
Տպեք երկար սյունը մեկ էջում բանաձևով
Տպեք երկար սյունը մեկ էջում ՝ VBA կոդով
Տպեք երկար սյունը մեկ էջում Excel- ի համար Kutools- ի հետ
Տպեք երկար սյունը մեկ էջում բանաձևով
Այստեղ ես կարող եմ ձեզ ներկայացնել այս խնդրի լուծման երկար բանաձև, խնդրում եմ արեք հետևյալ կերպ.
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-րդ շարքում, ապա շարունակեք լրացնելով բռնիչը քարշ տալով աջից մինչև տվյալները ցուցադրվեն: Եվ երկար սյունը բաժանվել է մի քանի սյունակների, որպեսզի մեկ էջում տեղադրվի նոր աշխատանքային թերթ: Տեսեք,
Տպեք երկար սյունը մեկ էջում ՝ 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 ստեղնը ՝ այս կոդը գործարկելու համար և ընտրված ցուցակի տվյալները, որոնք ցանկանում եք բաժանել, դուրս եկած երկխոսության դաշտում, տե՛ս նկարը.
4: Սեղմեք OK, և մուտքագրեք սյունակների քանակը, որը ցանկանում եք բաժանել: Տեսեք,
5, եւ սեղմեք OK, երկար սյունը բաժանված է հինգ սյունակի նոր աշխատանքային թերթում: Տեսեք սքրինշոթերը.
Տպեք երկար սյունը մեկ էջում Excel- ի համար Kutools- ի հետ
Թե՛ երկար բանաձևը և թե՛ VBA կոդը կարող են դժվար լինել ձեզ համար, այստեղ ես կարող եմ ձեզ ներկայացնել այս խնդրի լուծման հեշտ և հարմար մեթոդ: Excel- ի համար նախատեսված գործիքներ'S Տպել մի քանի սյունակ գործառույթը կօգնի ձեզ արագ բաժանել երկար սյունը մի քանի սյունակների, որպեսզի կարողանաք դրանք հիմնավոր կերպով տպել:
Excel- ի համար նախատեսված գործիքներ ներառում է ավելի քան 300 հարմար Excel գործիքներ: Փորձեք առանց սահմանափակումների 30 օրվա ընթացքում: Get it Now.
Երբ Kutools- ը տեղադրեք Excel- ի համար, կարող եք անել հետևյալ քայլերը.
1: Սեղմեք ձեռնարկություն > Տպել մի քանի սյունակ, տես նկարի նկարը.
2, Մեջ Տպել մի քանի սյունակ երկխոսության տուփ:
- Կտտացրեք առաջինը միջակայքի վերնագիրն ընտրելու կոճակը, ապա կտտացրեք երկրորդին կոճակը ընտրելու համար այն սյունակը, որը ցանկանում եք բաժանել:
- Դրանից հետո նշեք այն շարքերի քանակը, որոնցից ցանկանում եք տեղադրել յուրաքանչյուր էջի համար Տողեր մեկ տպված էջի համարև մուտքագրեք սյունակների քանակը, որը ցանկանում եք մեկ էջի տակ Բաժինների քանակը, Տեսեք,
3. Այնուհետեւ կտտացրեք OK, երկար ցուցակի տվյալները բաժանված են էջի հինգ սյունակների: Տեսեք սքրինշոթերը.
Նշումներ:
1. Վերնագիրը կավելացվի յուրաքանչյուր սյունակից առաջ:
2. Եթե ստուգում եք Հղում ստեղծեք ակտիվ թերթիկով տարբերակը, նոր աշխատանքային թերթի տվյալները կարող են կապված լինել աղբյուրի տվյալների հետ:
Եթե ցանկանում եք ավելին իմանալ այս հատկության մասին, խնդրում ենք կտտացնել Տպել մի քանի սյունակ.
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: