Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս 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- ում այս առաջադրանքին հասնելու համար:

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

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
It deleted all my names in my first name column! Auuggh!
This comment was minimized by the moderator on the site
Thanks its very helpful page with basic excel option :)
This comment was minimized by the moderator on the site
Hi, can anyone guide how i can delete blank cells in a row or column...note whole blank column or rows... only blank cell i need to delete in a column
This comment was minimized by the moderator on the site
Hello,


try to implement below code
This comment was minimized by the moderator on the site
Hi, the thing which you are mentioned is so helpfull. I want a small help from your side. Daily am download the some files and using pivot prepared the reports. It is daily task for me and routine process. How can i do it with out using pivot. Ex: If i prepared the reports on yesterday in "A" Excel file. Next day in "A" Excel file just i replace the new "B" Excel file data. By this automatically report would be create? Is it possible?
This comment was minimized by the moderator on the site
Very helpful page. Thank you. :-) My challenge is that I have columns with headers, but no data in that column. Only the header is present. How would one go about deleting columns where there is no data, but the header is there? :o
This comment was minimized by the moderator on the site
the above details are very helpful for my personal use. Thanks for your guidance. M.KARTHIKEYAN :-)
This comment was minimized by the moderator on the site
I found it much simpler to go to the line after my last line of data, enter "Shift-Ctrl-End" to highlight all blank lines that followed(much faster), right click and enter "delete all rows/columns". The system didn't waste so much time searching this way and so it was clean in the blink of an eye and files that were 20 MB were dropped to a size of 20 kb.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations