Cealla folamh a bhaint as raon

Foirmiú na faidhbe

Tá raon cealla againn le sonraí ina bhfuil cealla folamh:

 

Is é an tasc a bhaint cealla folamh, ag fágáil ach cealla le faisnéis.

Modh 1. Rough agus tapa

  1. Roghnú an raon bunaidh
  2. Brúigh an eochair F5, an chéad chnaipe eile Aibhsigh (Speisialta). Sa fhuinneog a osclaíonn, roghnaigh Cealla folamh(Falamh) agus cliceáil OK.

    Cealla folamh a bhaint as raon

    Roghnaítear gach cealla folamh sa raon.

  3. Tugaimid ordú sa roghchlár cealla roghnaithe a scriosadh: cliceáil ar dheis- Scrios cealla (Scrios Cealla) le haistriú aníos.

Modh 2: Foirmle Eagar

A shimpliú, a ligean ar ainm ár raonta oibre ag baint úsáide as Bainisteoir Ainm (Bainisteoir Ainm) tab foirmle (foirmlí) nó, in Excel 2003 agus níos sine, an roghchlár Ionsáigh – Ainm – Sann (Ionsáigh — Ainm — Sainmhínigh)

 

Ainmnigh an raon B3:B10 Bíodh Folamh agat, raon D3:D10 – Neamhfholamh. Ní mór raonta a bheith go docht ar an méid céanna, agus is féidir a bheith suite in áit ar bith i gcoibhneas lena chéile.

Anois roghnaigh an chéad chill den dara raon (D3) agus cuir an fhoirmle scanrúil seo isteach ann:

=IF(ROW() -ROW(Folamh)+1>NOTROWS(Tá Folamh)-COUNTBLANK(Tá Folamh);””;INDIRECT(SEOLADH(SEOLADH ISÍOS((MAS(Folamh<>"",ROW(Folamh);ROW() + ROWS(Tá Folamh)); LÍNE()-ROW(Gan Folamh)+1); COLÚN(Tá Folamh); 4)))

Sa leagan Béarla beidh sé:

=IF(ROW()-ROW(NoEmpty)+1>ROWS(Folamh)-COUNTBLANK(Folamh)),"",INDIRECT(SEOLADH(SMALL((IF(Folamh<>"",ROW(Folamh),ROW() +ROWS(Bíodh Folamh)), ROW()-ROW(Gan Folamh)+1), COLUMN(Bíodh Folamh),4)))

Ina theannta sin, ní mór é a iontráil mar fhoirmle eagair, ie brúigh tar éis é a ghreamú Iontráil (mar is gnáth) agus Ctrl + Shift + Iontráil. Anois is féidir an fhoirmle a chóipeáil síos ag baint úsáide as uathchríochnú (tarraing an chros dhubh sa chúinne íochtarach ar dheis den chill) - agus gheobhaidh muid an raon bunaidh, ach gan cealla folamh:

 

Modh 3. Feidhm saincheaptha i VBA

Má tá amhras ann go gcaithfidh tú an nós imeachta a dhéanamh arís chun cealla folamh a bhaint as raonta, ansin is fearr d'fheidhm féin chun cealla folamh a bhaint leis an gcaighdeán socraithe uair amháin, agus é a úsáid i ngach cás ina dhiaidh sin.

Chun é seo a dhéanamh, oscail an Eagarthóir Visual Basic (ALT + F11), cuir isteach modúl nua folamh (roghchlár Ionsáigh – Modúl) agus cóipeáil téacs na feidhme seo ansin:

Feidhm NoBlanks(Sonraí Raon Mar Raon) Mar Athraitheach() Dim N Chomh Fada N2 Chomh Fada Dim Rng Mar Raon Dim MaxCells Chomh Fada Gan Toradh() Mar Athróg Dim R Chomh Fada Dim C Mar Fada MaxCells = Feidhmchlár.Bileog OibreFunction.Max( _ Application.Caller.Cells.Count, DataRange.Cells.Count) Toradh ReDim(1 Go MaxCells, 1 Go 1) Do Gach Rng I DataRange.Cells If Rng.Value <> vbNullString Ansin N = N + 1 Toradh(N, 1 ) = Rng.Value Deireadh Má Rng Ar Aghaidh Do N2 = N + 1 Go Toradh MaxCells(N2, 1) = vbNullString Ar Aghaidh N2 Má Application.Caller.Rows.Count = 1 Ansin NoBlanks = Application.Transpose(Toradh) Eile NoBlanks = Toradh Críoch Má chríochnaíonn Feidhm  

Ná déan dearmad an comhad a shábháil agus athrú ar ais ón Eagarthóir Visual Basic go Excel. Chun an fheidhm seo a úsáid inár sampla:

  1. Roghnaigh raon dóthanach cealla folmha, mar shampla F3:F10.
  2. Téigh go dtí an roghchlár Ionsáigh – Feidhm (Ionsáigh — Feidhm)nó cliceáil ar an gcnaipe Ionsáigh feidhm (Ionsáigh Feidhm) tab foirmle (foirmlí) i leaganacha níos nuaí de Excel. Sa chatagóir Úsáideoir Sainithe (Sainithe ag an úsáideoir) roghnaigh ár bhfeidhm Bána.
  3. Sonraigh an raon foinse agus na folúntais (B3:B10) mar argóint na feidhme agus brúigh Ctrl + Shift + Iontráilchun an fheidhm a iontráil mar fhoirmle eagar.

:

  • Gach sraitheanna folamh a scriosadh i dtábla ag an am céanna le macra simplí
  • Bain úsáid as an mbreiseán PLEX gach sraith fholamh i mbileog oibre a bhaint láithreach
  • Líon tapa na cealla folamh go léir
  • Cad iad na macraí, cá háit le cód macra a chur isteach i VBA

 

Leave a Reply