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

Ինչպե՞ս տպել աշխատաթերթը առանց դատարկ տողերի Excel- ում:

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

Թաքցրեք դատարկ շարքերը նախքան VBA կոդով տպելը
Excel- ի համար Kutools- ով տպելուց առաջ ջնջեք դատարկ շարքերը


Թաքցրեք դատարկ շարքերը նախքան VBA կոդով տպելը

Նախքան աշխատաթերթը տպելը, կարող եք գործարկել ստորև նշված VBA կոդը ՝ նշված տիրույթում դատարկ տողերը թաքցնելու համար: Խնդրում եմ արեք հետևյալ կերպ.

1. Սեղմեք ալտ + F11 բացել ստեղները Microsoft Visual Basic կիրառման համար պատուհան.

2. Մեջ Microsoft Visual Basic կիրառման համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Եվ այնուհետև պատճենեք և տեղադրեք ներքևում գտնվող VBA կոդի մեջ Մոդուլի պատուհանում:

VBA կոդ. Թաքցնել դատարկ տողերը ընտրված տիրույթում

Sub HideBlankRows()
	Dim xRg As Range
	Dim xCell As Range
	Dim xAddress As String
	Dim xUpdate As Boolean
	Dim I As Long
	On Error Resume Next
	xAddress = Application.ActiveWindow.RangeSelection.Address
	Set xRg  = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)
	Set xRg  = Application.Intersect(xRg, ActiveSheet.UsedRange)
	If xRg Is Nothing Then Exit Sub
		If xRg.Areas.Count > 1 Then
			MsgBox "Don't support multiple ranges", , "Kutools for Excel"
			Exit Sub
			End If
			xUpdate = Application.ScreenUpdating
			Application.ScreenUpdating = False
			For I = 1 To xRg.Rows.Count
				xRg.Rows(I).EntireRow.Hidden = (Application.CountA(xRg.Rows(I)) = 0)
			Next
			Application.ScreenUpdating = xUpdate
		End Sub

3. Սեղմեք F5 կոդը գործարկելու բանալին, ապա ա Excel- ի համար նախատեսված գործիքներ երկխոսության պատուհանը հայտնվում է, խնդրում ենք ընտրել այն դատարկ շարքերով տիրույթը, որը չեք ցանկանում տպել, և այնուհետև կտտացրեք այն OK կոճակը:

Այնուհետեւ ընտրված տիրույթում գտնվող բոլոր դատարկ տողերը անմիջապես թաքնվում են: Դրանից հետո կարող եք սկսել տպել աշխատանքային թերթը առանց դատարկ շարքերի:

ՆշումՏպելուց հետո կարող եք ցուցադրել այս դատարկ շարքերը հետևյալ VBA կոդով:

VBA կոդ. Ընտրված տիրույթում ցուցադրել բոլոր դատարկ շարքերը

Sub UnhideRows()
	Dim xRg As Range
	Dim xCell As Range
	Dim xAddress As String
	Dim xUpdate As Boolean
	On Error Resume Next
	xAddress = Application.ActiveWindow.RangeSelection.Address
	Set xRg = Application.InputBox("Please select a range to unhide the blank rows", "Kutools for Excel", xAddress, , , , , 8)
	Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
	If xRg Is Nothing Then Exit Sub
		xUpdate = Application.ScreenUpdating
		Application.ScreenUpdating = False
		xRg.EntireRow.Hidden = False
		Application.ScreenUpdating = xUpdate
	End Sub

Excel- ի համար Kutools- ով տպելուց առաջ ջնջեք դատարկ շարքերը

Եթե ​​ցանկանում եք տպել աշխատանքային թերթ առանց դատարկ շարքերի, ապա խորհուրդ ենք տալիս բոլոր դատարկ շարքերը ջնջել հետևյալով Deleteնջել դատարկ շարքերը օգտակարությունը Excel- ի համար նախատեսված գործիքներ, ապա կարող եք ձեռքով տպել աշխատաթերթը:

Նախքան դիմելը Excel- ի համար նախատեսված գործիքներ, խնդրում եմ նախ ներբեռնեք և տեղադրեք այն.

1: սեղմեք Կուտոլս > ջնջել > Deleteնջել դատարկ շարքերը > Ընտրված տիրույթում/Ակտիվ թերթում/Ընտրված թերթերում/Բոլոր թերթերում հիմնվելով ձեր կարիքների վրա: Տեսեք,

Նշում: Մի տիրույթում դատարկ տողերը ջնջելու համար նախ ընտրեք այս միջակայքը և այնուհետև կիրառեք գործառույթը:

2. Դրանից հետո բացվում է երկխոսության տուփ ՝ ձեզ ասելու համար, թե քանի տող է ջնջվել, սեղմեք այստեղ OK կոճակը:

Այժմ բոլոր դատարկ տողերը ջնջված են: Կարող եք սկսել տպել ձեր աշխատաթերթը:

ՆշումՀետադարձ կապ. Այս օգտակար օժանդակությունը Ctrl + Z.

  Եթե ​​ցանկանում եք ունենալ անվճար փորձաշրջան (30-օր) այս կոմունալ, խնդրում ենք կտտացնել այն ներբեռնելու համար, և այնուհետև անցեք գործողությունը կիրառելու վերը նշված քայլերին համապատասխան:


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (0)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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