Kuidas eemaldada tühjad veerud Excelis

Michael Brown

31-05-2023 Excel
  • Jaga Seda
Michael Brown

Õpetus õpetab teile, kuidas eemaldada Excelis tühjad veerud makro, valemi ja nupuvajutuse abil.

Nii triviaalne kui see ka ei kõla, tühjade veergude kustutamine Excelis ei ole midagi, mida saab teha vaid hiireklikiga. Seda ei saa teha ka kahe klikiga. Väljavaade vaadata läbi kõik oma töölehe veerud ja eemaldada tühjad käsitsi on kindlasti midagi, mida tahaksite vältida. Õnneks pakub Microsoft Excel väga palju erinevaid funktsioone ja kasutades neidfunktsioone loomingulistel viisidel saate hakkama peaaegu iga ülesandega!

    Kiire viis tühjade veergude kustutamiseks, mida ei tohiks kunagi kasutada

    Kui tegemist on tühjade kohtade eemaldamisega Excelis (kas tegemist on tühjade lahtrite, ridade või veergudega), tuginevad paljud veebipõhised ressursid Mine eriline > Aherained käsk. Ärge kunagi tehke seda oma töölehtedel!

    See meetod ( F5 > Eriline... > Aherained ) leiab ja valib kõik tühjad lahtrid vahemikus:

    Kui te nüüd teete paremklõpsu valitud lahtritel ja valite Kustuta > Kogu veerg , kõik veerud, mis sisaldavad vähemalt üks tühi lahter Kui olete seda kogemata teinud, vajutage Ctrl + Z, et kõik tagasi saada.

    Nüüd, kui te teate vale viisi tühjade veergude kustutamiseks Excelis, vaatame, kuidas seda õigesti teha.

    Kuidas eemaldada tühjad veerud Excelis VBAga

    Kogenud Exceli kasutajad teavad seda rusikareeglit: et mitte raisata tunde millegi käsitsi tegemiseks, investeerige paar minutit makro kirjutamisse, mis teeb seda teie eest automaatselt.

    Alljärgnev VBA makro eemaldab kõik tühjad veerud valitud vahemikus. Ja teeb seda turvaliselt - kustutatakse ainult täiesti tühjad veerud. Kui veerus on ühe lahtri väärtus, isegi mingi valemi poolt tagastatud tühi string, siis jääb selline veerg alles.

    Excelmakro: tühjade veergude eemaldamine Exceli tabelist Public Sub DeleteEmptyColumns() Dim SourceRange As Range Dim EntireColumn As Range On Error Resume Next Set SourceRange = Application.InputBox( _ "Select a range:" , "Delete Empty Columns" , _ Application.Selection.Address, Type :=8) If Not (SourceRange Is Nothing ) Then Application.ScreenUpdating = False For i = SourceRange.Columns.Count To 1Step -1 Set EntireColumn = SourceRange.Cells(1, i).EntireColumn If Application.WorksheetFunction.CountA(EntireColumn) = 0 Then EntireColumn.Delete End If Next Application.ScreenUpdating = True End If End Sub

    Kuidas kasutada makrot Tühjade veergude kustutamine

    Järgnevalt on toodud sammud makro lisamiseks Excelisse:

    1. Vajutage Alt + F11, et avada Visual Basic'i redaktor.
    2. Klõpsake menüüribal Sisesta > Moodul .
    3. Sisestage ülaltoodud kood koodide aknasse.
    4. Makro käivitamiseks vajutage F5.
    5. Kui avaneb hüpikakenüüri dialoog, lülituge huvipakkuvale töölehele, valige soovitud vahemik ja klõpsake OK:

    Kui te ei soovi makrot oma töölehele lisada, saate seda käivitada meie näidistöövihikust. Järgnevalt on kirjeldatud, kuidas:

    1. Laadige alla meie näidistööraamat tühjade veergude eemaldamiseks Excelis, avage see ja lubage sisu, kui seda küsitakse.
    2. Avage oma töövihik või lülitage juba avatud töövihik.
    3. Vajutage oma töövihikus Alt + F8 , valige käsk DeleteEmptyColumns makro ja klõpsake Käivita .
    4. Valige avanevas dialoogis vahemik ja klõpsake nuppu OK .

    Mõlemal juhul kõrvaldatakse kõik tühjad veerud valitud vahemikus:

    Excelis tühjade veergude tuvastamine ja kustutamine valemi abil

    Ülaltoodud makro eemaldab tühjad veerud kiiresti ja vaikselt. Kuid kui te olete "kõik-kui-kontrolli all" tüüpi inimene (nagu mina :), siis võite soovida visuaalselt näha veerusid, mis eemaldatakse. Selles näites tuvastame kõigepealt tühjad veerud valemi abil, et saaksite need kiiresti üle vaadata ja seejärel eemaldada kõik või mõned neist veergudest.

    Märkus. Enne millegi lõplikku kustutamist, eriti tundmatut tehnikat kasutades, soovitan tungivalt teha varukoopia oma töövihiku, et olla kindel, kui midagi läheb valesti.

    Kui varukoopia on turvalises kohas, tehke järgmised toimingud:

    Samm 1. Sisestage uus rida

    Lisage uus rida oma tabeli ülaossa. Selleks tehke paremklõps esimese rea päises ja klõpsake nuppu Sisesta Ärge muretsege andmete struktuuri/korralduse moonutamise pärast - selle rea saate hiljem kustutada.

    Samm 2. Tühjade veergude tuvastamine

    Sisestage äsja lisatud rea kõige vasakpoolsemasse lahtrisse järgmine valem:

    =COUNTA(A2:A1048576)=0

    Ja seejärel kopeerige valem teistesse veergudesse, lohistades täitekäepidet.

    Valemi loogika on väga lihtne: COUNTA kontrollib tühjade lahtrite arvu veerus, alates reast 2 kuni reani 1048576, mis on rea maksimum Excel 2019 - 2007. Te võrdlete seda arvu nulliga ja tulemuseks on TRUE tühjades veergudes ja FALSE veergudes, mis sisaldavad vähemalt ühte mitte-tühja lahtrit. Tänu suhteliste lahtriviidete kasutamisele kohandab valem õigesti iga veeru jaokskus see on kopeeritud.

    Juhul, kui te seadistate töölehe kellegi teise jaoks, võite soovida veerud mõttekamalt märgistada. Pole probleemi, seda saab hõlpsasti teha sarnase IF-avaldusega:

    =IF(COUNTA(A2:A1048576)=0, "Tühi", "Mitte tühi")

    Nüüd näitab valem selgesõnaliselt, millised veerud on tühjad ja millised mitte:

    Vihje. Võrreldes makroga annab see meetod rohkem paindlikkust selles osas, milliseid veerge tuleks tühjaks lugeda. Selles näites kontrollime kogu tabelit, kaasa arvatud päise rida. See tähendab, et kui veerg sisaldab ainult päise, ei loeta sellist veergu tühjaks ja seda ei kustutata. Kui soovite kontrollida ainult andmeridu. veeru pealkirjade ignoreerimine , eemaldage sihtvahemikust (A3:A1048576) pealkirjarida(d). Selle tulemusena loetakse veerg, millel on pealkiri ja milles ei ole muid andmeid, tühjaks ja kustutatakse. Samuti saate piirata vahemikku viimase kasutatud reaga, mis meie puhul oleks A11.

    Samm 3. Tühjade veergude eemaldamine

    Kui teil on mõistlik arv veerge, saate lihtsalt valida need, mille esimeses reas on "Tühi" (mitme veeru valimiseks hoidke Ctrl-klahvi all, kui klõpsate veeru tähtedel). Seejärel klõpsake paremal hiireklahviga mis tahes valitud veerul ja valige Kustuta kontekstmenüüst:

    Kui teie töölehel on kümneid või sadu veerge, on mõistlik tuua kõik tühjad veerud vaatamiseks. Selleks tehke järgmist:

    1. Valige ülemine rida koos valemitega, minge valiku Andmed tab> Sorteerimine ja filtreerimine gruppi ja klõpsake nuppu Sorteeri nuppu.
    2. Ilmuvas hoiatusdialoogis valige Laiendage valikut ja klõpsake Sort...

    3. See avab Sorteeri dialoogiaknas, kus klõpsate Valikud... nuppu, valige Sorteerimine vasakult paremale, ja klõpsake OK .

    4. Konfigureerige ainult üks sorteerimistase, nagu allpool näidatud, ja klõpsake OK:
      • Sorteerimine: Rida 1
      • Sorteerimine: lahtri väärtused
      • Järjekord: A-st Z-ni

      Selle tulemusena viiakse tühjad veerud töölehe vasakusse ossa:

    5. Valige kõik tühjad veerud - klõpsake esimese veeru tähe peal, vajutage Shift ja seejärel klõpsake viimase tühja veeru tähe peal.
    6. Tehke paremklõps valitud veergudel ja valige Kustuta hüpikmenüüst.

    Valmis! Te olete vabanenud tühjadest veergudest ja nüüd ei takista miski valemitega ülemise rea kustutamist.

    Kiireim viis tühjade veergude eemaldamiseks Excelis

    Selle õpetuse alguses kirjutasin, et Excelis ei ole tühjade veergude kustutamiseks ühe klõpsuga võimalust. Tegelikult ei ole see päris tõsi. Ma oleks pidanud ütlema, et ei ole sisseehitatud võimalust. Meie Ultimate Suite'i kasutajad saavad Excelis tühikuid eemaldada sõna otseses mõttes paari klõpsuga :)

    Sihttöölehel lülitage Ablebits tööriistad vahekaart, klõpsake Kustuta tühjad kohad ja valida Tühjad veerud :

    Et veenduda, et tegemist ei olnud juhusliku hiireklikiga, küsib lisavahend teilt kinnitust, et soovite tõesti tühjad veerud sellelt töölehelt eemaldada:

    Klõpsake OK , ja hetkega on kõik tühjad veerud kadunud!

    Nagu eespool kirjeldatud makro, kustutab see tööriist ainult need veerud, mis on täiesti tühi Veerud, millel on ükskõik milline üksikväärtus, sealhulgas pealkirjad, säilivad.

    Kustuta tühjad kohad on vaid üks kümnetest imelistest funktsioonidest, mis võivad teie elu Exceli kasutajana lihtsamaks muuta. Kui soovite rohkem teada saada, siis olete teretulnud alla laadima meie Ultimate Suite for Exceli prooviversiooni.

    Tühjad veerud ei kustutata! Miks?

    Väljaanne : Olete proovinud kõiki ülaltoodud meetodeid, kuid üks või mitu tühja veergu on teie töölehel kinni. Miks?

    Tõenäoliselt seetõttu, et need veerud ei ole tegelikult tühjad. Paljud erinevad, inimsilmale nähtamatud märgid võivad teie Exceli tabelites märkamatult varitseda, eriti kui olete importinud teavet välisest allikast. See võib olla lihtsalt tühi string või tühik, mitte- katkestav tühik või mõni muu mitte-trükitav märk.

    Süüdlase leidmiseks valige probleemse veeru esimene lahter ja vajutage Ctrl + allapoole noolt . Näiteks allpool esitatud ekraanipildil ei ole veerg C tühi, sest C6-s on üks tühik:

    Tehke lahtril topeltklõps, et näha, mis seal tegelikult on, või vajutage lihtsalt Delete-klahvi, et tundmatust millestki vabaneda. Ja seejärel korrake ülaltoodud protsessi, et teada saada, kas selles veerus on veel mingeid nähtamatuid asju. Samuti võite oma andmed puhastada, eemaldades juhtivad, tagumised ja mittekatkendavad tühikud.

    Tänan teid lugemise eest ja loodan, et näeme teid järgmisel nädalal meie blogis!

    Eelmine postitus Kuidas teha Excelis jooksvat summat (kumulatiivse summa valem)
    Järgmine postitus Kuidas eemaldada Exceli lehed: näidata mitut või kõiki peidetud lehte

    Michael Brown on pühendunud tehnoloogia entusiast, kelle kirg on tarkvaratööriistade abil keerukate protsesside lihtsustamine. Rohkem kui kümneaastase kogemusega tehnoloogiatööstuses on ta lihvinud oma oskusi Microsoft Excelis ja Outlookis, samuti Google Sheetsis ja Docsis. Michaeli ajaveebi eesmärk on jagada oma teadmisi ja teadmisi teistega, pakkudes hõlpsasti järgitavaid näpunäiteid ja õpetusi tootlikkuse ja tõhususe parandamiseks. Olenemata sellest, kas olete kogenud professionaal või algaja, pakub Michaeli ajaveebi väärtuslikke teadmisi ja praktilisi nõuandeid nende oluliste tarkvaratööriistade maksimaalseks kasutamiseks.