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

Ինչպե՞ս զտել ցուցակը և ջնջել Excel- ում մնացած թաքնված կամ տեսանելի շարքերը:

Filտված ցուցակի համար գուցե անհրաժեշտ լինի ջնջել թաքնված կամ տեսանելի շարքերը, որպեսզի պահպանեք միայն օգտակար տվյալները: Այս հոդվածում մենք ձեզ ցույց կտանք Excel- ում զտված ցուցակի մնացած թաքնված կամ տեսանելի տողերը ջնջելու մեթոդներ:

BAնջեք թաքնված տողերը ակտիվ աշխատանքային թերթում VBA կոդով
Deleteնջեք զտված ցուցակի տեսանելի շարքերը `ընտրելով բոլոր տեսանելի բջիջները
Excel- ի համար Kutools- ի միջոցով հեշտությամբ ջնջեք ֆիլտրացված ցուցակի թաքնված կամ տեսանելի շարքերը


BAնջեք թաքնված տողերը ակտիվ աշխատանքային թերթում VBA կոդով

Այս բաժինը ցույց կտա ձեզ VBA կոդ ՝ ակտիվ թերթում թաքնված տողերը ջնջելու համար: Խնդրում եմ արեք հետևյալ կերպ.

1. Ակտիվացրեք աշխատաթերթը, որն անհրաժեշտ է թաքնված տողերը ջնջելու համար, սեղմեք ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

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

VBA կոդ. Deleteնջել թաքնված շարքերը

Sub RemoveHiddenRows()
	Dim xRow As Range
	Dim xRg As Range
	Dim xRows As Range
	On Error Resume Next
	Set xRows = Intersect(ActiveSheet.Range("A:A").EntireRow, ActiveSheet.UsedRange)
	If xRows Is Nothing Then Exit Sub
		For Each xRow In xRows.Columns(1).Cells
			If xRow.EntireRow.Hidden Then
				If xRg Is Nothing Then
					Set xRg = xRow
				Else
					Set xRg = Union(xRg, xRow)
				End If
			End If
		Next
		If Not xRg Is Nothing Then
			MsgBox xRg.Count & " hidden rows have been deleted", , "Kutools for Excel"
			xRg.EntireRow.Delete
		Else
			MsgBox "No hidden rows found", , "Kutools for Excel"
		End If
	End Sub

3. Սեղմեք F5 ծածկագիրը գործելու համար: Եթե ​​ակտիվ թերթում կան թաքնված տողեր, ծածկագիրը գործարկելուց հետո կհայտնվի երկխոսության տուփ, որը կպատմի, թե քանի թաքնված տող է ջնջվել: Սեղմիր OK կոճակը թաքնված տողերը ջնջելու համար: Տեսեք,

փաստաթուղթը ջնջել հանգիստը 1

Հակառակ դեպքում, կոդը գործարկելուց հետո դուք կստանաք հետևյալ երկխոսության տուփը:

փաստաթուղթը ջնջել հանգիստը 1

Նշումվերոհիշյալ VBA կոդը ոչ միայն կարող է ջնջել զտված ցուցակի թաքնված տողերը, այլև ջնջել թաքնված շարքերը, որոնք նախկինում ձեռքով թաքցրել եք:


Deleteնջեք զտված ցուցակի տեսանելի շարքերը `ընտրելով բոլոր տեսանելի բջիջների առանձնահատկությունը

Filտված ցուցակի տեսանելի տողերը ջնջելու համար կատարեք հետևյալը.

1. Ընտրեք բոլոր զտված շարքերը և սեղմեք F5 բանալին բացելու համար Գնալ երկխոսության տուփ, ապա կտտացրեք հատուկ կոճակ Տեսեք,

փաստաթուղթը ջնջել հանգիստը 1

2. Մեջ Գնալ հատուկ երկխոսության տուփ, ստուգեք Միայն տեսանելի բջիջներ տարբերակը, ապա կտտացրեք OK կոճակը:

փաստաթուղթը ջնջել հանգիստը 1

3. Այժմ ընտրված են բոլոր տեսանելի տողերը, աջով կտտացրեք ընտրությանը և այնուհետև կտտացրեք Ջնջել տողերը.

փաստաթուղթը ջնջել հանգիստը 1

Մինչ այժմ բոլոր տեսանելի շարքերը ջնջվում են զտված ցուցակից:


Excel- ի համար Kutools- ի միջոցով հեշտությամբ ջնջեք ֆիլտրացված ցուցակի թաքնված կամ տեսանելի շարքերը

Վերոնշյալ երկու մեթոդները կարող են լինել Excel- ի շատ օգտվողների ցանկության լուծումներ, այստեղ մենք ձեզ ներկայացնում ենք հարմար գործիք: Հետ Deleteնջել թաքնված (տեսանելի) շարքերը և սյունակները օգտակարությունը Excel- ի համար նախատեսված գործիքներ, Դուք կարող եք հեշտությամբ ջնջել թաքնված տողերը ընտրված տիրույթում / թերթերում, ակտիվ թերթում կամ Excel- ի բոլոր աշխատանքային թերթերում:

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

1. Եթե ցանկանում եք ջնջել միայն զտված ցուցակի թաքնված կամ տեսանելի շարքերը, խնդրում ենք ձեռքով ընտրեք զտված շարքը և այնուհետև կտտացրեք Կուտոլս > ջնջել > Deleteնջել թաքնված (տեսանելի) շարքերը և սյունակները, Տեսեք,

2. Մեջ Deleteնջել թաքնված (տեսանելի) շարքերը և սյունակը երկխոսության տուփ, պահեք այն Ընտրված տիրույթում ընտրված է Տես բացվող ցուցակ (ըստ անհրաժեշտության կարող եք ընտրել այլ տարբերակներ), ստուգեք Rows տարբերակը Deleteնջել տեսակը բաժնում, իսկ Մանրամասն տեսակը հատված, ստուգել Տեսանելի շարքեր or Թաքնված շարքեր տարբերակ, որքան անհրաժեշտ է: Եվ վերջապես կտտացրեք այն OK կոճակը:

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

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


Utնջեք ֆիլտրացված ցուցակի թաքնված կամ տեսանելի շարքերը Kutools- ի միջոցով Excel- ի համար


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (7)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հետադարձ կապ. մակրո թաքնված տողերի ջնջումների համար. սա չափազանց երկար է տևում 900 հազար տողերի վրա՝ օգտակար լինելու համար: 2+ ժամ OC'd Threadripper 1950X-ի վրա և դեռ աշխատում է (ստիպված էր ավարտել առաջադրանքը): Այն օպտիմիզացնելու որևէ միջոց կա՞ մի քանի միջուկներ օգտագործելու համար, թե՞ սա VBA սահմանափակում է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Կոդը օպտիմիզացված է։ Խնդրում ենք փորձել: Շնորհակալություն մեկնաբանության համար։

Sub RemoveHiddenRows()
Dim xFlag-ը որպես բուլյան
Dim xStr, xTemp As String
Dim xDiv, xMod As Long
Dim I, xCount, xRows As Long
Dim xRg, xCell, xDRg As Range
Dim xArr() Որպես տող
Ս.թ. սխալի Ռեզյումե Next
Դիմում. ScreenUpdating = Սուտ է
Application.EnableEvents = False
Սահմանել xRg = Intersect(ActiveSheet.Range("A:A").EntireRow, ActiveSheet.UsedRange)
Եթե ​​xRg-ը ոչինչ է, ապա դուրս եկեք Sub
xRows = xRg.Rows.Count
Սահմանել xRg = xRg (1)
xFlag = Ճշմարիտ
xTemp = ""
xCount = 0
I = 1-ից մինչև xRows-ի համար
Սահմանել xCell = xRg.Offset(I - 1, 0)
Do while xFlag
Եթե ​​xCell.EntireRow.Hidden Այնուհետեւ
xStr = xCell.Address
xFlag = Սխալ
Ուրիշ
GoTo Ctn
Վերջ: Եթե
Հանգույց
Եթե ​​xCell.EntireRow.Hidden Այնուհետեւ
xTemp = xStr & "," & xCell.Address
Վերջ: Եթե
Եթե ​​Len(xTemp) > 171 Ապա
xCount = xCount + 1
ReDim Պահպանել xArr (1-ից xCount)
xArr(xCount) = xStr
xStr = xCell.Address
Ուրիշ
xStr = xTemp
Վերջ: Եթե
Ctn:
հաջորդ
xCount = xCount + 1
ReDim Պահպանել xArr (1-ից xCount)
xArr(xCount) = xStr
Համար I = xCount 1 Քայլ -1
Եթե ​​ես = 1 Ապա
xStr = Mid(xArr(I), InStr(xArr(I), ",") + 1, Len(xArr(I)) - InStr(xArr(I), ","))
Ուրիշ
xStr = xArr (I)
Վերջ: Եթե
Եթե ​​xDRg-ը ոչինչ է, ապա
Սահմանել xDRg = Range (xStr)
Ուրիշ
Սահմանել xDRg = Միություն (xDRg, միջակայք (xStr))
Վերջ: Եթե
Եթե ​​(Len(xDRg.Address) >= 244) Կամ (xCount = 1) Ապա
xDRg.EntireRow.Delete
Սահմանել xDRg = Ոչինչ
Վերջ: Եթե
հաջորդ
Application.EnableEvents = Ճիշտ է
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հրաշալի է, շնորհակալություն: Կվերանայեմ իմ հաջորդ հնարավորության դեպքում / դրա անհրաժեշտության դեպքում և կպատասխանեմ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Թաքնված տողերը ջնջելու VBA կոդն անթերի աշխատում էր առանց ջարդելու: ՇՆՈՐՀԱԿԱԼՈՒԹՅՈՒՆ!!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն տեղեկատվության համար: Սա ուսանելի է եղել։ Խնդրում եմ, կա՞ տարբերակ զտելու և ջնջելու կոնկրետ թվերի համար մինչև 1 միլիոն տողերում: Կարո՞ղ է վերը նշված կոդը փոփոխվել դրա համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Կներեք, որ կոդը չեմ փորձարկել նման հսկայական շարքի տվյալների մեջ: Գուցե դուք կարող եք պատճենել ձեր տվյալները և ստուգել, ​​թե արդյոք կոդը կարող է աշխատել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, այս VBA կոդը շատ օգտակար է:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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