Efnisyfirlit
Mótun vandans
Við höfum svið af frumum með gögnum sem innihalda tómar frumur:
Verkefnið er að fjarlægja tómar frumur, þannig að aðeins frumur eru með upplýsingar.
Aðferð 1. Gróft og hratt
- Að velja upprunalega svið
- Ýttu á takkann F5, næsta hnappur Highlight (Sérstakt). Í glugganum sem opnast velurðu Tómar klefar(Autt) og smelltu OK.
Allar tómar hólf á sviðinu eru valdar.
- Við gefum skipun í valmyndinni til að eyða völdum frumum: hægrismelltu- Eyða frumum (Eyða frumum) með tilfærslu upp á við.
Aðferð 2: Fylkisformúla
Til að einfalda, skulum við nefna vinnusvið okkar með því að nota Nafnastjóri (Nafnastjóri) flipi uppskrift (Formúlur) eða, í Excel 2003 og eldri, valmyndinni Setja inn - Nafn - Úthluta (Setja inn - Nafn - Skilgreina)
Nefndu sviðið B3:B10 Hafa tómt, svið D3:D10 – Enginn Tómur. Svæði verða að vera nákvæmlega sömu stærð og geta verið staðsett hvar sem er miðað við hvert annað.
Veldu nú fyrsta reitinn á öðru sviðinu (D3) og sláðu inn þessa skelfilegu formúlu inn í það:
= Ef (röð () -ROW (NOUNTY) +1> Notrows (Yesempty) -CountBlank (Yesempty); ””; óbein (heimilisfang (lægsta ((ef (tóm <> “”, röð (tóm); röð () + ROWS(Það eru tómar))); LINE()-ROW(Engin tóm)+1); DÁLUR(Það eru tómar); 4)))
Í ensku útgáfunni verður það:
= Ef (röð ()-Röð (Noempty) +1> Raðir (tóm) -CountBlank (tómt), “”, óbeint (heimilisfang (lítið ((ef (tóm <> “”, röð (tóm), röð () +ROWS(HafaEmpty))),ROW()-ROW(NoEmpty)+1),COLUMN(HaveEmpty),4)))
Þar að auki verður að færa það inn sem fylkisformúlu, þ.e. ýta á eftir að líma Sláðu inn (eins og venjulega) og Ctrl + Shift + Sláðu inn. Nú er hægt að afrita formúluna niður með sjálfvirkri útfyllingu (dragðu svarta krossinn neðst í hægra horni reitsins) - og við fáum upprunalega sviðið, en án tómra reita:
Aðferð 3. Sérsniðin aðgerð í VBA
Ef grunur leikur á að þú þurfir oft að endurtaka aðferðina við að fjarlægja tómar reiti úr sviðum, þá er betra að bæta eigin aðgerð til að fjarlægja tómar reiti einu sinni við staðalsettið og nota það í öllum síðari tilfellum.
Til að gera þetta skaltu opna Visual Basic Editor (ALT + F11), settu inn nýja tóma einingu (valmynd Settu inn - Eining) og afritaðu texta þessarar aðgerðar þangað:
Fall NoBlanks(DataRange As Range) As Variant() Dim N As Long Dim N2 As Long Dim Rng As Range Dim MaxCells As Long Dim Result() As Variant Dim R As Long Dim C As Long MaxCells = Application.WorksheetFunction.Max( _ Application.Caller.Cells.Count, DataRange.Cells.Count) ReDim Result(1 To MaxCells, 1 To 1) Fyrir hvern Rng í DataRange.Cells Ef Rng.Value <> vbNullString Þá N = N + 1 Niðurstaða(N, 1 ) = Rng.Value End If Next Rng For N2 = N + 1 To MaxCells Result(N2, 1) = vbNullString Next N2 If Application.Caller.Rows.Count = 1 Then NoBlanks = Application.Transpose(Result) Else NoBlanks = Niðurstaða End If End Function
Ekki gleyma að vista skrána og skipta aftur úr Visual Basic Editor í Excel. Til að nota þessa aðgerð í dæminu okkar:
- Veldu nægjanlegt svið af tómum hólfum, til dæmis F3:F10.
- Farðu í valmyndina Setja inn - Virka (Setja inn — Virka)eða smelltu á hnappinn Settu inn aðgerð (Setja inn aðgerð) flipi uppskrift (Formúlur) í nýrri útgáfum af Excel. Í flokki Notandi skilgreindur (Notandi skilgreindur) veldu hlutverk okkar Noblanks.
- Tilgreindu upprunasviðið með ógildum (B3:B10) sem fallrök og ýttu á Ctrl + Shift + Sláðu inntil að slá inn fallið sem fylkisformúlu.
:
- Eyða öllum tómum línum í töflu í einu með einföldum fjölvi
- Að fjarlægja allar tómar línur í vinnublaði í einu með því að nota PLEX viðbótina
- Fylltu fljótt í allar tómar reiti
- Hvað eru fjölvi, hvar á að setja inn stórkóða í VBA