Si të fshini rreshtat bosh në Excel me VBA, formula dhe Power Query

  • Shperndaje Kete
Michael Brown

Ky tutorial do t'ju mësojë disa truke të thjeshta për të fshirë shumë rreshta bosh në Excel në mënyrë të sigurtë pa humbur asnjë informacion të vetëm .

Rreshtat bosh në Excel janë një problem me të cilin përballemi të gjithë herë pas here, veçanërisht kur kombinohen të dhëna nga burime të ndryshme ose importohen informacione nga diku tjetër. Linjat boshe mund të shkaktojnë shumë kërdi në fletët tuaja të punës në nivele të ndryshme dhe fshirja e tyre me dorë mund të jetë një proces që kërkon kohë dhe i prirur për gabime. Në këtë artikull, do të mësoni disa metoda të thjeshta dhe të besueshme për të hequr boshllëqet në fletët tuaja të punës.

    Si MOS të hiqni linjat bosh në Excel

    Ka disa mënyra të ndryshme për të fshirë linjat boshe në Excel, por çuditërisht shumë burime në internet qëndrojnë me më të rrezikshmin, përkatësisht Gjeni & Zgjidh > Shko te Speciali > Banks .

    Çfarë të keqe ka kjo teknikë? Ai zgjedh të gjitha boshllëqet në një gamë, dhe për pasojë do të përfundoni duke fshirë të gjitha rreshtat që përmbajnë sa një qelizë bosh.

    Imazhi i mëposhtëm tregon tabelën origjinale në të majtë dhe tabela që rezulton në të djathtë. Dhe në tabelën që rezulton, të gjitha rreshtat jo të plota janë zhdukur, madje edhe rreshti 10 ku mungonte vetëm data në kolonën D:

    Rinia e fundit: nëse nuk doni të ngatërroni të dhënat tuaja, mos i fshini kurrë bosh rreshtave duke zgjedhur qelizat bosh. Në vend të kësaj, përdorni një nga qasjet më të konsideruara të diskutuarai bëjnë gjërat më komplekse sesa duhet. Pra, bëmë një hap më tej dhe krijuam një rrugë me dy klikime për të fshirë rreshtat bosh në Excel.

    Me Ultimate Suite të shtuar në shiritin tuaj, ja se si mund të fshini të gjitha rreshtat bosh në një fletë pune:

    1. Në skedën Mjetet Ablebits , në grupin Transformo , kliko Fshi boshllëqet > Rreshtat bosh :
    2. Shtesa do t'ju informojë se të gjitha rreshtat bosh do të hiqen nga fleta aktive e punës dhe do të kërkojë konfirmimin. Klikoni OK, dhe në një moment, të gjitha rreshtat bosh do të eliminohen.

    Siç tregohet në pamjen e mëposhtme të ekranit, ne kemi hequr vetëm vija absolutisht bosh që nuk kanë një qelizë të vetme me të dhëna:

    Për të gjetur nga veçoritë më të mrekullueshme të përfshira me Ultimate Suite për Excel, jeni të mirëpritur të shkarkoni një version provë.

    Ju falënderoj që lexoni dhe shpresoj t'ju shohim në blogun tonë javën e ardhshme!

    më poshtë.

    Si të hiqni rreshtat bosh në Excel me VBA

    Excel VBA mund të rregullojë shumë gjëra, duke përfshirë shumë rreshta bosh. Gjëja më e mirë për këtë qasje është se nuk kërkon ndonjë aftësi programimi. Thjesht, kapni një nga kodet e mëposhtme dhe ekzekutoni atë në Excel (udhëzimet janë këtu).

    Makro 1. Fshi linjat bosh në një gamë të zgjedhur

    Ky kod VBA fshin në heshtje të gjitha boshllëqet rreshtave në një diapazon të zgjedhur, pa shfaqur ndonjë mesazh ose kuti dialogu për përdoruesit.

    Ndryshe nga teknika e mëparshme, makro fshin një rresht nëse i gjithë rreshti është bosh . Ai mbështetet në funksionin e fletës së punës CountA për të marrë numrin e qelizave jo bosh në çdo rresht dhe më pas fshin rreshtat me numërimin zero.

    Publike Sub DeleteBlankRows() Dim SourceRange As Range Dim EntireRow As Range Set SourceRange = Application. Përzgjedhja Nëse Jo (SourceRange nuk është asgjë) Pastaj Application.ScreenUpdating = False Për I = SourceRange.Rows.Count në 1 Hapi -1 Set EntireRow = SourceRange.Cells(I, 1).EntireRow If Application.WorksheetFunction.CountAw)(EntireRow) 0 Pastaj EntireRow.Delete End If Next Application.ScreenUpdating = Fundi i vërtetë Nëse End Sub

    Për t'i dhënë përdoruesit një mundësi për të zgjedhur diapazonin e synuar pas ekzekutimit të makros , përdorni këtë kod:

    Publik Nën RemoveBlankLines() Dim SourceRange si Range Dim EntireRow as Range On Gabim Rifillo Tjetër Set SourceRange = Application.InputBox( _"Zgjidh një varg:" , "Fshi rreshtat bosh" , _ Application.Selection.Address, Lloji :=8) Nëse Jo (Source Range Is Nothing ) Atëherë Application.ScreenUpdating = False Për I = SourceRange.Rows. Numëroni në 1 hap - 1 Vendos EntireRow = SourceRange.Cells(I, 1).EntireRow If Application.WorksheetFunction.CountA(EntireRow) = 0 Pastaj EntireRow.Delete End If Next Application.ScreenUpdating = True Fund If End Sub

    Pas ekzekutimit, shfaqet makro në kutinë e mëposhtme të hyrjes, ju zgjidhni diapazonin e synuar dhe klikoni OK:

    Në një moment, të gjitha linjat boshe në diapazonin e zgjedhur do të eliminohen dhe ato të mbetura do të zhvendosen lart:

    Makro 2. Fshini të gjitha rreshtat bosh në Excel

    Për të hequr të gjitha rreshtat bosh fletën aktive , përcaktoni rreshtin e fundit të diapazonit të përdorur (d.m.th. rreshtin që përmban qeliza e fundit me të dhëna), dhe më pas shkoni lart duke fshirë linjat për të cilat CountA kthen zero:

    Sub DeleteAllEmptyRows() Dim LastRowIndex si numër i plotë Dim RowIndex si numër i plotë Dim UsedRng si varg Set UsedRng = Activ eSheet.UsedRange LastRowIndex = UsedRng.Row - 1 + UsedRng.Rows.Count Application.ScreenUpdating = False Për RowIndex = LastRowIndex në 1 Hapi -1 Nëse Application.CountA(Rreshtat (Rreshti (Rreshti Endex)) = 0 RowIndex). Nëse Next RowIndex Application.ScreenUpdating = True End Sub

    Macro 3. Fshini rreshtin nëse qeliza është bosh

    Me këtë makro, ju mund të fshini një rresht të tërë nëse një qelizë në të specifikuarkolona është bosh.

    Kodi i mëposhtëm kontrollon kolonën A për boshllëqe. Për të fshirë rreshtat e bazuar në një kolonë tjetër, zëvendësoni "A" me një shkronjë të përshtatshme.

    Nën DeleteRowIfCellBlank() Në gabim Rifillo kolonat e ardhshme( "A" ).SpecialCells(xlCellTypeBlanks).EntireRow.Fshi fundin e nënës

    Si Në fakt, makro përdor veçorinë Shko te Speciali > Banks dhe mund të arrish të njëjtin rezultat duke i kryer këto hapa me dorë.

    Shënim. Makroja fshin rreshtat bosh në të gjithë fletën , ndaj ju lutemi të jeni shumë të kujdesshëm kur e përdorni. Si masë paraprake, mund të jetë e mençur të bëni kopje rezervë të fletës së punës përpara se të ekzekutoni këtë makro.

    Si të hiqni linjat bosh në Excel me VBA

    Për të fshirë rreshtat bosh në Excel duke përdorur një makro, ju ose mund të futni kodin VBA në librin tuaj të punës ose të ekzekutoni një makro nga libri ynë shembull i punës.

    Shtoni një makro në librin tuaj të punës

    Për të futur një makro në librin tuaj të punës, kryeni këto hapa:

    1. Hapni fletën e punës ku dëshironi të fshini rreshtat bosh.
    2. Shtypni Alt + F11 për të hapur Redaktuesin Visual Basic.
    3. Në panelin e majtë, kliko me të djathtën This Workbook , dhe më pas kliko Fut > Moduli .
    4. Ngjit kodin në dritaren e Kodit.
    5. Shtypni F5 për të ekzekutuar makro.

    Për udhëzimet e detajuara hap pas hapi, ju lutemi shihni Si të futni dhe përdorni VBA në Excel.

    Ekzekutoni një makro nga libri ynë i mostrës së punës

    Shkarkoni mostrën tonëlibër pune me makro për të fshirë rreshtat bosh dhe për të ekzekutuar një nga makrot e mëposhtme prej andej:

    DeleteBlankRows - heq rreshtat bosh në intervalin e zgjedhur aktualisht.

    RemoveBlankLines - fshin rreshtat bosh dhe zhvendoset lart në një interval që zgjidhni pas ekzekutimit të makros.

    DeleteAllEmptyRows - fshin të gjitha linjat boshe në fletën aktive.

    DeleteRowIfCellBlank - fshin një rresht nëse një qelizë në një kolonë specifike është bosh.

    Për të ekzekutuar makron në Excel, bëni sa më poshtë:

    1. Hapni Libri i punës i shkarkuar dhe aktivizo makrot nëse kërkohet.
    2. Hap librin tuaj të punës dhe lundroni te fleta e punës me interes.
    3. Në fletën tuaj të punës, shtypni Alt + F8, zgjidhni makron dhe kliko Run .

    Formula për të fshirë rreshtat bosh në Excel

    Në rast se dëshironi të shihni se çfarë po fshini, përdorni formulën e mëposhtme për të identifikuar vijat boshe:

    =IF(COUNTA(A2:D2)=0, "Blank", "Not blank")

    Ku A2 është e para dhe D2 është qeliza e fundit e përdorur e rreshtit të parë të të dhënave.

    Fut këtë formulë a në E2 ose ndonjë kolonë tjetër bosh në rreshtin 2 dhe tërhiqni dorezën e mbushjes për të kopjuar formulën poshtë.

    Si rezultat, do të keni "Bank" në rreshtat bosh dhe "Jo bosh" në rreshtat që përmbajnë të paktën një qelizë me të dhëna:

    Logjika e formulës është e qartë: ju numëroni qelizat jo bosh me funksionin COUNTA dhe përdorni deklaratën IF për të kthyer "Blank" për numërimin zero, "Jo bosh" përndryshe .

    NëNë fakt, ju mund të bëni mirë pa IF:

    =COUNTA(A2:D2)=0

    Në këtë rast, formula do të kthejë TRUE për rreshtat bosh dhe FALSE për linjat jo bosh.

    Me formula në vend, kryeni këto hapa për të fshirë linjat boshe:

    1. Zgjidhni çdo qelizë në rreshtin e kokës dhe klikoni Rendit & Filtro > Filtri në skedën Home , në Formatet Kjo do të shtojë shigjetat e filtrimit me zbritje në të gjitha qelizat e kokës.
    2. Klikoni shigjetën në kokën e kolonës së formulës, zgjidhni (Zgjidh të gjitha), zgjidhni Blash dhe klikoni OK :
    3. Zgjidhni të gjitha rreshtat e filtruar . Për këtë, klikoni në qelizën e parë të rreshtit të parë të filtruar dhe shtypni Ctrl + Shift + End për të zgjeruar përzgjedhjen në qelizën e fundit të rreshtit të fundit të filtruar.
    4. Klikoni me të djathtën në përzgjedhjen, zgjidhni Fshini rreshtin nga menyja e kontekstit dhe më pas konfirmoni që vërtet dëshironi të fshini rreshta të tëra:
    5. Hiqni filtrin duke shtypur Ctrl + Shift + L . Ose klikoni në skedën Shtëpia > Renditni & Filtro > Filtro .
    6. Fshi kolonën me formulën pasi nuk të nevojitet më.

    Kjo është! Si rezultat, ne kemi një tabelë të pastër pa rreshta bosh, por të gjithë informacionin e ruajtur:

    Këshillë. Në vend të fshirjes së rreshtave bosh, mund të kopjoni rreshta jo bosh në diku tjetër. Për ta bërë këtë, filtroni rreshtat "Jo bosh", zgjidhni ato dhe shtypni Ctrl + C për të kopjuar. Pastaj kaloni nënjë fletë tjetër, zgjidhni qelizën e sipërme majtas të gamës së destinacionit dhe shtypni Ctrl + V për të ngjitur.

    Si të hiqni linjat boshe në Excel me Power Query

    Në Excel 2016 dhe Excel 2019, ekziston një mënyrë tjetër për të fshirë rreshtat bosh - duke përdorur veçorinë Power Query. Në Excel 2010 dhe Excel 2013, ai mund të shkarkohet si një shtesë.

    Shënim i rëndësishëm! Kjo metodë funksionon me paralajmërimin e mëposhtëm: Power Query konverton të dhënat burimore në një tabelë Excel dhe ndryshon formatimin, si p.sh. ngjyra e mbushjes, kufijtë dhe disa formate numrash. Nëse formatimi i të dhënave tuaja origjinale është i rëndësishëm për ju, atëherë më mirë zgjidhni një mënyrë tjetër për të hequr rreshtat bosh në Excel.

    1. Zgjidhni diapazonin ku dëshironi të fshini linjat boshe.
    2. Shko te skeda Të dhënat > Merr & Transformoni grupin dhe klikoni Nga Tabela/Range . Kjo do të ngarkojë tabelën tuaj në Redaktorin e Query Power.
    3. Në skedën Home të Redaktuesit të Query Power, kliko Hiq rreshtat > Hiq rreshtat bosh .
    4. Klikoni Mbyll & Load Kjo do të ngarkojë tabelën që rezulton në një fletë pune të re dhe do të mbyllë Redaktuesin e Pyetjeve.

    Si rezultat i këtyre manipulimeve, mora tabelën e mëposhtme pa vija boshe, por me disa ndryshime të këqija - formati i monedhës humbet dhe datat shfaqen në formatin e paracaktuar në vend të atij të personalizuar:

    Si të fshihen rreshtat nëseqeliza në një kolonë të caktuar është bosh

    Në fillim të këtij tutoriali, ne ju paralajmëruam që të mos hiqni linjat boshe duke zgjedhur boshllëqet. Megjithatë, kjo metodë është e dobishme nëse dëshironi të fshini rreshtat bazuar në boshllëqet në një kolonë specifike .

    Si shembull, le të heqim të gjitha rreshtat ku një qelizë në kolonën A është bosh :

    1. Zgjidhni kolonën kryesore, kolonën A në rastin tonë.
    2. Në skedën Home , kliko Gjej & Zgjidhni > Shko te Speciale . Ose shtypni F5 dhe klikoni butonin Special… .
    3. Në dialogun Shko te Speciali , zgjidhni Banks dhe kliko OK . Kjo do të zgjedhë qelizat bosh në diapazonin e përdorur në kolonën A.
    4. Klikoni me të djathtën në çdo qelizë të zgjedhur dhe zgjidhni Fshi... nga menyja e kontekstit.
    5. Në kutinë e dialogut Fshi , zgjidhni I gjithë rreshti dhe klikoni OK.

    U krye! Rreshtat që nuk kanë një vlerë në kolonën A nuk janë më: ​​

    I njëjti rezultat mund të arrihet duke filtruar boshllëqet në kolonën kryesore.

    Si të hiqni linjat shtesë poshtë të dhënave

    Ndonjëherë, rreshtat që duken plotësisht bosh mund të përmbajnë disa formate ose karaktere jo të printueshme. Për të kontrolluar nëse qeliza e fundit me të dhëna është me të vërtetë qeliza e fundit e përdorur në fletën tuaj të punës, shtypni Ctrl + End. Nëse kjo ju ka çuar në një rresht vizualisht bosh poshtë të dhënave tuaja, për sa i përket Excel, ai rresht nuk është bosh. Për të hequr rreshta të tillë, bëninë vijim:

    1. Klikoni kokën e rreshtit të parë bosh poshtë të dhënave tuaja për ta zgjedhur atë.
    2. Shtypni Ctrl + Shift + End . Kjo do të zgjedhë të gjitha rreshtat që përmbajnë çdo gjë, duke përfshirë formatet, hapësirat dhe karakteret që nuk shtypen.
    3. Klikoni me të djathtën mbi përzgjedhjen dhe zgjidhni Fshi... > Rreshtin e plotë.

    Nëse keni një grup relativisht të vogël të dhënash, mund të dëshironi të hiqni qafe të gjitha linjat boshe poshtë të dhënave tuaja, p.sh. për ta bërë më të lehtë lëvizjen. Megjithëse, nuk ka asnjë mënyrë për të fshirë rreshtat e papërdorur në Excel, nuk ka asgjë që do t'ju pengonte t'i fshehni ato. Ja se si:

    1. Zgjidhni rreshtin poshtë rreshtit të fundit me të dhëna duke klikuar kokën e tij.
    2. Shtypni Ctrl + Shift + Shigjetën poshtë për të shtrirë përzgjedhjen në rreshtin e fundit të fletës .
    3. Shtypni Ctrl + 9 për të fshehur rreshtat e zgjedhur. Ose kliko me të djathtën në përzgjedhjen dhe më pas kliko Fshihe .

    Për të zbuluar rreshtat , shtypni Ctrl + A për të zgjedhur të gjithë fletën dhe më pas shtypni Ctrl + Shift + 9 për t'i bërë sërish të dukshme të gjitha linjat.

    Në një mënyrë të ngjashme, ju mund të fshehni kolonat bosh të papërdorura në të djathtë të të dhënave tuaja. Për hapat e detajuar, ju lutemi shihni Fshih rreshtat e papërdorura në Excel në mënyrë që të jetë e dukshme vetëm zona e punës.

    Mënyra më e shpejtë për të hequr rreshtat bosh në Excel

    Kur lexoni shembujt e mëparshëm, apo jo ndiheni sikur po përdornim një vare për të çarë një arrë? Këtu, në Ablebits, ne preferojmë të mos bëjmë

    Michael Brown është një entuziast i përkushtuar i teknologjisë me një pasion për thjeshtimin e proceseve komplekse duke përdorur mjete softuerike. Me më shumë se një dekadë përvojë në industrinë e teknologjisë, ai ka përmirësuar aftësitë e tij në Microsoft Excel dhe Outlook, si dhe Google Sheets dhe Docs. Blogu i Michael është i përkushtuar ndaj ndarjes së njohurive dhe ekspertizës së tij me të tjerët, duke ofruar këshilla dhe mësime të thjeshta për t'u ndjekur për të përmirësuar produktivitetin dhe efikasitetin. Pavarësisht nëse jeni një profesionist me përvojë apo fillestar, blogu i Michael ofron njohuri të vlefshme dhe këshilla praktike për të përfituar sa më shumë nga këto mjete softuerike thelbësore.