Meriv çawa rêzikên vala li Excel bi VBA, formulas û Query Powerê jêbirin

  • Vê Parve Bikin
Michael Brown

Ev tutorial dê çend hîleyên hêsan fêrî we bike ku hûn çend rêzikên vala yên di Excel de bi ewlehî jêbirin bêyî ku yek bitek agahiyê winda bikin .

Rêzên vala di Excel de pirsgirêkek e ku em hemî pê re rû bi rû ne. carekê di demekê de, nemaze dema ku daneyên ji çavkaniyên cihêreng berhev dikin an agahdariya ji cîhek din vediguhezînin. Xêzên vala dikarin di astên cihêreng de bibe sedema gelek xirecirê li pelên xebata we û jêbirina wan bi destan dikare bibe pêvajoyek dem-dixwe û xeletî. Di vê gotarê de, hûn ê çend awayên hêsan û pêbawer fêr bibin da ku valahiyên di pelên xebata xwe de derxînin.

    Çawa NA xêzên vala di Excel de jêbirin

    Çend hene awayên cihêreng ên jêbirina xetên vala yên di Excel de, lê ecêb e ku gelek çavkaniyên serhêl bi ya herî xeternak ve girêdayî ne, ango Find & amp; Hilbijêre > Biçe To Taybet > Blanks .

    Çi xelet e di vê teknîkê de? Ew di nav rêzekê de hemû valahiyan hildibijêre, û ji ber vê yekê hûn ê dawî li hemû rêzikên ku bi qasî yek şaneyek vala dihewînin jêbikin.

    Wêneya jêrîn tabloya orîjînal li milê çepê nîşan dide û tabloya encam li rastê. Û di tabloya encam de, hemî rêzên netemam çûne, heta rêza 10-an jî ku tenê tarîxa di stûna D de wenda bû:

    Xeta jêrîn: ger hûn nexwazin daneyên xwe tevlihev bikin, qet vala jê nekin rêzikên bi hilbijartina şaneyên vala. Di şûna wê de, yek ji nêzîkatiyên ku hatine nîqaş kirin bikar bînintiştên ku ji wan hewce ne tevlihevtir bikin. Ji ber vê yekê, me gavek din avêt û rêyek du-klîk çêkir da ku rêzên vala di Excel de jê bibe.

    Ligel ku Suite Ultimate li ribbona we hatî zêdekirin, li vir çawa hûn dikarin hemû rêzikên vala jêbikin di pelxebatekê de:

    1. Li ser tabloya Amûrên Ablebits , di koma Veguhertin de, bikirtînin Belkî Jê Bikin > Rêzên Vala :
    2. Pêvek dê we agahdar bike ku dê hemî rêzikên vala ji pelgeya xebatê ya çalak werin rakirin û piştrast bikin. OK bikirtînin, û di kêliyekê de, dê hemî rêzikên vala werin rakirin.

    Wekî ku di dîmendera jêrîn de tê xuyang kirin, me tenê xêzên tam vala yên ku yek şaneyek bi daneyê tune ne rakirine:

    Ji bo dîtinê Taybetmendiyên hêja yên ku bi Suite meya Ultimate ya ji bo Excel re têkildar in, hûn bi xêr hatin ku guhertoyek ceribandinê dakêşin.

    Ez ji bo xwendinê spasiya we dikim û hêvî dikim ku hefteya pêş we li ser bloga xwe bibînim!

    li jêr.

    Rêzên vala di Excel de bi VBA-ê çawa jêbirin

    Excel VBA dikare gelek tiştan rast bike, di nav de çend rêzên vala. Tiştê herî çêtirîn di derbarê vê nêzîkbûnê de ev e ku ew jêhatîbûnek bernamekirinê hewce nake. Bi tenê, yek ji kodên jêrîn hildin û di Excel-a xwe de bimeşînin (talîmat li vir in).

    Makro 1. Xetên vala di navberek hilbijartî de jêbikin

    Ev koda VBA bi bêdengî hemî valahiyan jê dike rêzikên di navbereke hilbijartî de, bêyî ku tu peyam an qutiyeke diyalogê ji bikarhêner re nîşan bide.

    Berevajî teknîka berê, makro xêzekê jê dike eger tevahiya rêz vala be . Ew xwe dispêre fonksiyona pelgeya xebatê CountA da ku hejmara şaneyên ne vala di her rêzê de bigire, û dûv re rêzikên bi hejmara sifir jêbirin.

    Bingeha Giştî ya DeleteBlankRows() Dim SourceRange As Range Dim EntireRow As Range Set SourceRange = Serlêdan. Hilbijartin Ger Nabe (SourceRange Ne Tiştek e) Paşê Application.ScreenUpdating = Derewîn Ji bo I = SourceRange.Rows.Count To 1 Step -1 Set EntireRow = SourceRange.Cells(I, 1).EntireRow Heke Application.WorksheetFunction.CountAw) 0 Hingê EntireRow.Delete End If Next Application.ScreenUpdating = Dawiya Rastî Heke End Sub

    Ji bo ku bikarhêner derfetê bide piştî xebitandina makroyê rêza mebestê hilbijêre , vê kodê bikar bînin:

    Giştî Bin RemoveBlankLines() Dim SourceRange Wek Range Dim EntireRow Wek Range Li Ser Çewtî Vegere Paşê Set SourceRange = Application.InputBox( _"Rêzek Hilbijêre:" , "Rêzên vala Jê Bike" , _ Serlêdan.Selection.Navnîşan, Binivîse :=8) Ger Nabe (Rêza Çavkaniyê Ne tiştek e) Wê demê Application.ScreenUpdating = Derewîn Ji bo I = SourceRange.Rows.Hejmar Bi 1 Gav - 1 Set EntireRow = SourceRange.Cells(I, 1).EntireRow Heke Application.WorksheetFunction.CountA(EntireRow) = 0 Paşê EntireRow.Delete End If Next Application.ScreenUpdating = Dawiya Rast Ger End Sub

    Piştî xebitandinê, makro nîşan dide qutiya têketina jêrîn, hûn rêza armancê hildibijêrin, û OK bikirtînin:

    Di kêliyekê de, hemî xêzên vala yên rêza hilbijartî dê ji holê rabin û yên mayî dê bizivirin jor:

    Makro 2. Hemî rêzên vala di Excel de jêbikin

    Ji bo rakirina hemû rêzikên vala li ser pela çalak , rêza dawî ya rêza bikarhatî diyar bike (ango rêza ku tê de şaneya paşîn a bi daneyan), û dûv re ber bi jor ve biçin û rêzên ku CountA jê re sifir vedigerîne:

    Bin DeleteAllEmptyRows() Dim LastRowIndex Wek Dim Dim RowIndex Wek Integer Dim UsedRng Wek Range Set UsedRng = Activ eSheet.UsedRange LastRowIndex = UsedRng.Row - 1 + UsedRng.Rows.Count Application.ScreenUpdating = Derewîn Ji Bo RowIndex = LastRowIndex To 1 Gav -1 Ger Application.CountA(Rêz(RowIndex)) = 0 RowI Paşê Rows). Heger RowIndex Next Application.ScreenUpdating = Bineya Dawiya Rast

    Makro 3. Ger şaneyek vala ye rêzê jêbibe

    Bi vê makroyê re, ger şaneyek di şaneyek diyarkirî de rêzek tevahî jêbibe.stûn vala ye.

    Koda jêrîn stûna A ji bo valahiyan kontrol dike. Ji bo ku rêzên li ser stûneke din jêbirin, "A" bi herfeke minasib biguherînin.

    Bin DeleteRowIfCellBlank() Li Ser Çewtiyê Stûnên Paşê Ji nû ve ("A" ).SpecialCells(xlCellTypeBlanks).EntireRow.Dawiya jêr jêbirin

    Wek Bi rastî, makro taybetmendiya Biçe To Taybet > Blanks bikar tîne, û hûn dikarin heman encamê bi pêkanîna van gavan bi destan bi dest bixin.

    Nîşe. Makro rêzên vala di tevahiya pelê de jê dike, lewra ji kerema xwe dema ku wê bikar tînin pir baldar bin. Weke tedbîr, dibe ku aqilmend be ku berî xebitandina vê makroyê pelgeya xebatê piştguh bikin.

    Hûn çawa bi VBA-yê xêzên vala di Excel de jêbirin

    Ji bo ku rêzên vala yên di Excel de bi karanîna makroyekê jê bibin, hûn dikare koda VBA-yê têxe pirtûka xweya xebatê an jî makroyek ji pirtûka meya xebatê ya nimûneyê bimeşîne.

    Makroyekê li pirtûka xweya xebatê zêde bike

    Ji bo ku makroyekê têxe pirtûka xweya xebatê, van gavan bi cih bîne:

    1. Pêxebata xebatê ya ku hûn dixwazin rêzên vala jêbikin vekin.
    2. Alt + F11 bikirtînin da ku Edîtorê Visual Basic vekin.
    3. Li pencereya çepê, rast-klîk bikin. This Workbook , û paşê bikirtînin Insert > Module .
    4. Kodê di pencereya Kodê de bişkînin.
    5. F5 pêl bikin. ji bo xebitandina makroyê.

    Ji bo talîmatên gav-bi-gav bi hûrgulî, ji kerema xwe binêre Çawa VBA-yê li Excel têxe û bikar bîne.

    Makroyek ji pirtûka meya xebatê ya nimûneyê bimeşîne

    Nimûneya me dakêşinpirtûka xebatê ya bi Makroyan re ku Rêzên Vala Jê Jê Bike û ji wir yek ji makroyên jêrîn bixebitîne:

    DeleteBlankRows - rêzên vala yên di rêza hilbijartî ya niha de radike.

    RemoveBlankLines - rêzên vala dibire û di rêzeke ku tu hildibijêrî piştî xebitandina makroyê hildibijêre.

    DeleteAllEmptyRows - hemû rêzikên vala yên pelê çalak jêdibe.

    DeleteRowIfCellBlank - ger şaneyek di stûnek taybetî de vala be rêzek jêdibe.

    Ji bo ku makroyê di Excel-ê de bimeşîne, van tiştan bikin:

    1. Vekirina pirtûka xebatê daxistiye û ger were xwestin makroyan çalak bike.
    2. Pirtûka xebatê ya xwe vekin û bigerin berbaya xebatê ya balkêş.
    3. Di kargeha xwe de, Alt + F8 bikirtînin, makroyê hilbijêrin û bikirtînin Rêveke .

    Formula jêbirina rêzikên vala di Excel de

    Heke hûn dixwazin bibînin ka hûn çi jê dibirin, formula jêrîn bikar bînin da ku rêzên vala nas bikin:

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

    Cihê ku A2 yekem e û D2 şaneya dawîn a rêza daneya yekem e.

    Vê formulê binivîse a di E2 an stûneke din a vala ya rêza 2-ê de, û destika tijîkirinê kaş bikin da ku formula xwarê kopî bikin.

    Di encamê de, hûn ê di rêzên vala de "Balk" û di rêzan de "Ne vala" bin. ku herî kêm şaneyek bi daneyan tê de heye:

    Mantiqa formulê diyar e: hûn şaneyên ne vala bi fonksiyona COUNTA dijmêrin û IF bi kar tînin da ku "Bank" ji bo hejmartina sifir, "Ne vala" vegerînin. .

    LiBi rastî, hûn dikarin bêyî IF:

    =COUNTA(A2:D2)=0

    Di vê rewşê de, formula dê ji bo xêzên vala TRUE û ji bo xetên ne vala FALSE vegere.

    Bi formula di cîh de, ji bo jêbirina xêzên vala van gavan bi cih bînin:

    1. Hûnek şaneyek di rêza sernivîsê de hilbijêrin û bikirtînin Cûrtkirin & Parzûn > Parzkirin li ser tabela Mal , di Formatan de ev ê tîrên daketî yên parzûnê li hemû şaneyên sernivîsê zêde bike.
    2. Tîra di sernavê stûna formula de bikirtînin, (Hemû Hilbijêre Hilbijêre) rakin, Blank hilbijêrin û OK bikirtînin:
    3. Hemû rêzên parzkirî hilbijêrin . Ji bo vê, li ser şaneya yekem a rêza parzkirî ya yekem bikirtînin û Ctrl + Shift + End bikirtînin da ku vebijarkê berbi şaneya paşîn a rêza parzkirî ya dawî ve bibe.
    4. Hilbijartinê rast-klîk bikin, hilbijêrin Rêz ji pêşeka kontekstê jêbikin, û dûv re piştrast bikin ku hûn bi rastî dixwazin rêzikan jêbikin:
    5. Parz bi tikandina Ctrl + Shift + L rakin. An jî tabloya Mal bikirtînin > Cûrtkirin & Parzûn > Parzkirin .
    6. Stûna bi formulê jêbibe ji ber ku êdî hewcedariya te bi wê nîne.

    Ew e! Wekî encamek, me tabloyek paqij heye ku bê xetên vala tune, lê hemî agahdarî têne parastin:

    Serişte. Li şûna ku hûn xêzên vala jêbikin, hûn dikarin rêzên ne vala li cihekî din kopî bikin. Ji bo ku wê were kirin, rêzikên "Ne vala" fîlter bikin, wan hilbijêrin û Ctrl + C bikirtînin da ku kopî bikin. Piştre veguherînekaxezek din, şaneya çepê ya jorîn a rêzika armancê hilbijêrin û Ctrl + V bikirtînin da ku lê bixin.

    Çawa bi Power Query di Excel de xetên vala derxînin

    Di Excel 2016 û Excel 2019 de, Ji bo jêbirina rêzikên vala rêyek din heye - bi karanîna taybetmendiya Power Query. Di Excel 2010 û Excel 2013 de, ew dikare wekî pêvek were daxistin.

    Nîşeya girîng! Ev rêbaz bi hişyariya jêrîn re dixebite: Power Query daneyên çavkaniyê vediguhezîne tabloyek Excel û şeklê wekî rengê tije, sînor û hin formên hejmarê diguhezîne. Ger formatkirina daneya weya orîjînal ji we re girîng e, wê hingê hûn çêtir e ku hûn rêyek din hilbijêrin ku rêzikên vala di Excel de jê bibin.

    1. Rêbera ku hûn dixwazin rêzikên vala jêbikin hilbijêrin.
    2. Here tabloya Daneyên > Bistîne & Koma veguherînin û Ji Tablo/Range bikirtînin. Ev ê tabloya we li Edîtorê Power Query bar bike.
    3. Li ser tabloya Mal ya Edîtorê Query Query, bikirtînin Rêzan Rake > Rêzên Vala Rake .
    4. Bitikîne Girtinê & Barkirin Ev ê tabloya encam li kargehek nû bar bike û Edîtorê Pirsînê bigire.

    Di encama van manîpulasyonan de, min tabloya jêrîn bêyî xetên vala, lê bi çend guheztinên nebaş girt - forma diravê winda dibe û tarîx di forma xwerû de têne xuyang kirin. li şûna ya xwerû:

    Rêzan çawa jêbirin gerşaneya di stûneke diyarkirî de vala ye

    Di destpêka vê tutoriyê de, me hişyarî da we ku hûn bi hilbijartina valahiyan xetên vala derxin. Lêbelê, ev rêbaz bi kêr tê heke hûn bixwazin rêzên li ser bingeha valahiya stûnek taybetî jêbirin .

    Wek mînak, werin em hemî rêzên ku şaneyek di stûna A de vala ye jêbikin. :

    1. Di rewşa me de stûna mifteyê, stûna A hilbijêrin.
    2. Li ser tabloya Mal , bikirtînin Bibîne & Hilbijêre > Biçe Taybetî . An jî F5 bikirtînin û bişkoja Taybet… bikirtînin.
    3. Di danûstendina Go To Taybet de, Blanks hilbijêrin û OK bikirtînin. Ev ê şaneyên vala yên di rêza hatî bikar anîn de di stûna A de hilbijêrin.
    4. Li ser her şaneyek hilbijartî rast-klîk bikin û ji pêşeka kontekstê Jêbibe… hilbijêrin.
    5. Di qutiya diyalogê Jêbibe de, Tevahiya rêz hilbijêrin û OK bikirtînin.

    Done! Rêzên ku di stûna A de nirxa wan tune ye êdî li wir nîn in:

    Heman encam bi fîlterkirina valayên stûna mifteyê dikare were bidestxistin.

    Rêzên zêde yên li binê daneyê çawa têne rakirin

    Carinan, rêzikên ku bi tevahî vala xuya dikin dibe ku bi rastî hin formatan an karakterên neçapkirî hebin. Ji bo kontrol bikin ka hucreya paşîn a bi daneyê bi rastî şaneya dawîn a ku di pelika we de hatî bikar anîn e, Ctrl + End bikirtînin. Ger viya we biriye rêzek vala dîtbarî ya li jêr daneya we, di warê Excel de, ew rêz ne vala ye. Ji bo rakirina rêzikên weha, bikinjêre:

    1. Ji bo bijartina sernivîsa rêza yekem a vala li binê daneya xwe bikirtînin.
    2. Ctrl + Shift + End bikirtînin. Ev ê hemî rêzikên ku di nav wan de format, valahî û karakterên neçapkirî tê de hene, hildibijêre.
    3. Hilbijartinê rast-klîk bike û Jêbibe… > Tevahiya rêzê hilbijêre.

    Heke daneyên we yên nisbeten piçûk hebin, dibe ku hûn bixwazin ku hemî xêzên vala yên li binê daneya xwe ji holê rakin, mînak. da ku gerok hêsantir bike. Her çend, rêyek tune ku hûn rêzên neyên bikar anîn li Excel jêbirin, tiştek tune ku hûn ji veşêrin wan asteng bikin. Bi vî awayî ye:

    1. Rêzika li jêr rêza dawîn a bi daneyan bi tikandina sernavê wê hilbijêrin.
    2. Ctrl + Shift + Tîra jêrîn bikirtînin da ku hilbijartinê berbi rêza paşîn a pelê dirêj bikin. .
    3. Ctrl + 9 bikirtînin da ku rêzên hilbijartî veşêrin. An jî li ser bijartinê rast-klîk bikin, û paşê bikirtînin Veşêre .

    Ji bo veşartina rêzan , Ctrl + A bikirtînin da ku tevahiya pelê hilbijêrin, û dûv re Ctrl + Shift + 9 bikirtînin da ku hemî rêz dîsa xuya bibin.

    Bi şêwazek wusa, hûn dikarin stûnên vala yên ku nehatine bikar anîn li rastê daneyên xwe veşêrin. Ji bo gavên hûrgulî, ji kerema xwe re rêzên ku nehatine bikar anîn li Excel veşêrin, da ku tenê qada xebatê xuya bibe.

    Rêya herî bilez a rakirina rêzên vala li Excel

    Dema ku mînakên berê dixwînin, ne wisa hîs dikin ku me ji bo şikandina gûzê şûşek bikar tîne? Li vir, li Ablebits, em tercîh dikin ku nekin

    Michael Brown dilxwazek teknolojiyê ya dilsoz e ku bi hewesek hêsankirina pêvajoyên tevlihev bi karanîna amûrên nermalavê ye. Bi zêdetirî deh salan ezmûnek di pîşesaziya teknolojiyê de, wî jêhatîbûna xwe di Microsoft Excel û Outlook, û her weha Google Sheets û Docs de pêş xist. Bloga Michael ji bo parvekirina zanyarî û pisporiya xwe bi kesên din re veqetandî ye, ji bo baştirkirina hilberî û karîgeriyê serişte û dersên hêsan-şopandinê peyda dike. Çi hûn pisporek demsalî ne an jî destpêkek in, bloga Michael ji bo ku hûn herî zêde ji van amûrên nermalava bingehîn sûd werbigirin, têgihiştinên hêja û şîretên pratîkî pêşkêşî dike.