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

Ինչպե՞ս Excel- ում արագ ջնջել բազմաթիվ դատարկ սյուններ:

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

Heնջել բազմաթիվ դատարկ սյուններ աշխատանքային թերթում բանաձևով

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

Selectionնջեք բազմաթիվ դատարկ սյուններ ընտրության / ակտիվ թերթի / ամբողջ աշխատանքային գրքում ՝ օգտակար հատկությամբ

BAնջել բազմաթիվ դատարկ սյունակներ վերնագրով ՝ օգտագործելով VBA կոդ


Heնջել բազմաթիվ դատարկ սյուններ աշխատանքային թերթում բանաձևով

Excel- ում դուք կարող եք կիրառել բանաձև `սյունակները դատարկ լինել-չճանաչելու համար, ապա օգտագործելու այն Տեսակ առանձնահատկությունը `բոլոր դատարկ սյունակները միասին դասավորելու համար, և այնուհետև դրանք միանգամից ջնջելու համար: Խնդրում եմ, արեք այսպես.

1, Ավելացրեք նոր տող ձեր տվյալների տիրույթի վերևում, տես նկարի նկարը.

2, Դրանից հետո մուտքագրեք ներքևի բանաձևը A1 բջիջի մեջ, ապա լրացրեք բռնիչը աջ կողմում, որպեսզի այս բանաձևը այլ բջիջների վրա կիրառվի, aՇՄԱՐՏՈՒԹՅՈՒՆ կցուցադրվի, եթե սյունը դատարկ է, հակառակ դեպքում ցուցադրվում է ԿԵ displayed displayed, տե՛ս նկարը.

=COUNTA(A2:A1048576)=0

3, Դրանից հետո ընտրեք տվյալների տիրույթը ՝ ներառյալ օգնականի շարքը, և այնուհետև կտտացրեք Ամսաթիվ > Տեսակ, տես նկարի նկարը.

4, Դուրս ցցված Տեսակ երկխոսության վանդակում, սեղմեք Ընտրանքներ կոճակը, հետևյալում Դասավորել ընտրանքները երկխոսություն, ընտրեք Տեսակավորել ձախից աջ տարբերակը, տես սքրինշոթեր.

5: Սեղմեք OK կոճակը վերադարձնելու համար Տեսակ երկխոսություն, ապա ընտրեք 1 տող - ից Դասավորել ըստ բաց թողեք եւ ընտրեք Բջջային արժեքներ - ից Տեսակավորել Բաժին ընտրել Ամենամեծը ՝ ամենափոքրը - ից կարգ բաժին, տես նկարի նկարը.

6, Հետո բոլոր դատարկ սյունները տեսակավորվել են ձեր տվյալների ձախ կողմում, և այժմ պարզապես անհրաժեշտ է ընտրել բոլոր սյունակները, ապա աջ սեղմումով ընտրել ջնջել այս դատարկ սյունները միանգամից ջնջելու համար տես նկարի նկարը.


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

Եթե ​​ցանկանում եք օգտագործել VBA մակրո, ամեն ինչ շատ ավելի հեշտ է ընթանում: Հետևյալ VBA կոդը կարող է օգնել ձեզ, խնդրում ենք արեք հետևյալ կերպ.

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

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

VBA կոդ. Selectionնջել ընտրության մեջ բազմաթիվ դատարկ սյուններ.

Sub DeleteEmptyColumns () 'Updateby Extendoffice
Dim rng As Range Dim InputRng As Range xTitleId = "KutoolsforExcel" Սահմանել InputRng = Application.Selection Set InputRng = Application.InputBox ("Range:", xTitleId, InputRng.Adres, Type: = 8) Application.ScreenUpdating = False For i = InputRng.Columns.Count To 1 Step -1 Set rng = InputRng.Cells (1, i) .EntireColumn If Application.WorksheetFunction.CountA (rng) = 0 Ապա rng.Dlelete End If Next Application.ScreenUpdating = True End Sub

3. Սեղմեք F5 ստեղնը `այս մակրո գործարկման համար, ելնող պատուհանում ընտրեք ձեզ անհրաժեշտ աշխատանքային շրջանակը: Տեսեք,

4. Սեղմել OK, ապա ընտրության բոլոր դատարկ սյունները հանվում են: Տեսեք,


Selectionնջեք բազմաթիվ դատարկ սյուններ ընտրության / ակտիվ թերթի / ամբողջ աշխատանքային գրքում ՝ օգտակար հատկությամբ

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

Tips:Սա կիրառելու համար Deleteնջել թաքնված (տեսանելի) շարքերը և սյունակները հատկությունը, նախ, դուք պետք է ներբեռնեք այն Excel- ի համար նախատեսված գործիքներ, ապա գործառույթը կիրառեք արագ և հեշտությամբ:

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներԽնդրում եմ արեք հետևյալ կերպ

1: Սեղմեք Կուտոլս > ջնջել > Deleteնջել թաքնված (տեսանելի) շարքերը և սյունակները, տես նկարի նկարը.

2, Մեջ Deleteնջել թաքնված (տեսանելի) շարքերը և սյունակները երկխոսության տուփ, նշեք այն շրջանակը, որը ցանկանում եք կիրառել գործողությունը Տես բացվող ցուցակ: (Եթե ընտրում եք Ընտրված տիրույթում, դուք պետք է ընտրեք մի տիրույթ, որն առաջին հերթին ցանկանում եք օգտագործել:) Եվ ապա ստուգեք Սյունակ տակ Deleteնջել տեսակը. Ընտրեք Դատարկ սյուններ - ից Մանրամասն տեսակը, Տեսեք,

3. Այնուհետեւ կտտացրեք OK, Եվ դատարկ սյունները ջնջվել են ընտրված տիրույթից: Տեսեք,


BAնջել բազմաթիվ դատարկ սյունակներ վերնագրով ՝ օգտագործելով VBA կոդ

Երբեմն գուցե ցանկանաք ջնջել բոլոր դատարկ սյունակները, որոնք աշխատանքային էջում միայն վերնագիր են պարունակում, հետևյալ VBA կոդը կարող է ձեզ լավություն բերել, կատարեք հետևյալ քայլերով.

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

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

VBA կոդ. Վերնագրով ջնջել բոլոր դատարկ սյունակները

Sub deleteblankcolwithheader()
'updateby Extendoffice
    Dim xEndCol As Long
    Dim I As Long
    Dim xDel As Boolean
    On Error Resume Next
    xEndCol = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    If xEndCol = 0 Then
        MsgBox "There is no data on """ & ActiveSheet.Name & """ .", vbExclamation, "Kutools for Excel"
        Exit Sub
    End If
    Application.ScreenUpdating = False
    For I = xEndCol To 1 Step -1
        If Application.WorksheetFunction.CountA(Columns(I)) <= 1 Then
            Columns(I).Delete
            xDel = True
        End If
    Next
    If xDel Then
        MsgBox "All blank column(s) with only a header row have been deleted.", vbInformation, "Kutools for Excel"
    Else
        MsgBox "There are no Columns to delete as each one has more data (rows) than just a header.", vbExclamation, "Kutools for Excel"
    End If
    Application.ScreenUpdating = True
End Sub

3, Դրանից հետո սեղմեք F5 ստեղնը ՝ այս կոդն աշխատեցնելու համար, և հուշման տուփ դուրս կգա ՝ հիշեցնելու համար, որ վերնագրով դատարկ սյունները կջնջվեն, տես նկարի նկարը.

4. Եվ այնուհետև կտտացրեք OK կոճակին, ընթացիկ աշխատանքային թերթում միայն վերնագիր ունեցող բոլոր դատարկ սյունները միանգամից ջնջվում են: Տեսեք սքրինշոթերը.


Ավելի հարաբերական հոդվածներ.

  • Excel- ում ջնջեք բոլոր նկարները կամ այլ օբյեկտները
  • Եթե ​​ցանկանում եք ջնջել բոլոր նկարները Microsoft Excel- ից, գուցե ժամանակատար լինի յուրաքանչյուր նկար ընտրելն ու դրանք մեկ առ մեկ ջնջելը: Հետևյալ հնարքները կարող են հեշտացնել ձեր աշխատանքը ՝ բոլոր նկարները ջնջելու համար:
  • Excel- ում ֆոնի գույնի հիման վրա ջնջեք տողերը
  • Ինչպե՞ս կարող եք ջնջել ամբողջ շարքերը ՝ հիմնվելով ֆոնի գույնի վրա: Այս օրինակում ես պետք է ջնջեմ բոլոր տողերը, որոնք բջիջները լցված են կապույտ ֆոնի գույնով, ինչպես ցույց է տրված հետևյալ նկարը: Այս հոդվածով դուք կստանաք մի քանի կոդեր `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 ներքևում

Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (8)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինձ համար շատ ավելի պարզ էր տվյալների վերջին տողից հետո գնալ գիծ, ​​մուտքագրել «Shift-Ctrl-End»՝ ընդգծելու հաջորդող բոլոր դատարկ տողերը (շատ ավելի արագ), աջ սեղմել և մուտքագրել «ջնջել բոլոր տողերը/սյունակները»: Համակարգն այդքան ժամանակ չկորցրեց այս եղանակով որոնելու համար, ուստի այն մաքուր էր աչք թարթելու մեջ, իսկ 20 ՄԲ ծավալով ֆայլերը իջեցվեցին մինչև 20 կբ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
վերը նշված մանրամասները շատ օգտակար են իմ անձնական օգտագործման համար: Շնորհակալություն ձեր առաջնորդության համար: Մ.ՔԱՐԹԻԿԵՅԱՆ :-)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ օգտակար էջ։ Շնորհակալություն. :-) Իմ մարտահրավերն այն է, որ ես վերնագրերով սյունակներ ունեմ, բայց տվյալ սյունակում տվյալներ չկան: Առկա է միայն վերնագիրը: Ինչպե՞ս կարելի է ջնջել այն սյունակները, որտեղ տվյալներ չկան, բայց վերնագիրն այնտեղ է: :o
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև ձեզ, ձեր նշածը շատ օգտակար է: Ես ուզում եմ մի փոքր օգնություն ձեր կողմից: Ամեն օր ներբեռնում եմ որոշ ֆայլեր և առանցքի օգնությամբ պատրաստում եմ հաշվետվությունները: Դա ինձ համար ամենօրյա խնդիր է և սովորական գործընթաց: Ինչպես կարող եմ դա անել առանց առանցքի օգտագործելու: Օրինակ. Եթե երեկ ես պատրաստել եմ հաշվետվությունները «A» Excel ֆայլում: Հաջորդ օրը «A» Excel ֆայլում ես պարզապես փոխարինում եմ նոր «B» Excel ֆայլի տվյալները: Այս ինքնաբերաբար հաշվետվությունը կստեղծվի՞: Դա հնարավոր է?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, որևէ մեկը կարող է ուղղորդել, թե ինչպես կարող եմ ջնջել դատարկ բջիջները տողում կամ սյունակում...նշեք ամբողջ դատարկ սյունակը կամ տողերը... միայն դատարկ բջիջը, որը ես պետք է ջնջեմ սյունակում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,


փորձեք կիրառել ստորև բերված կոդը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն իր շատ օգտակար էջը հիմնական Excel տարբերակով :)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այն ջնջեց իմ բոլոր անունները իմ անվան սյունակում: Օ՜
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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