Inanis cellas removere a rhoncus

Formula quaestionis

Cellulas varias habemus cum notitia quae cellulas vacuas continet;

 

Negotium est cellas vacuas removere, cum notitias tantum cellas relinquere.

Modus 1. aspera et ieiunium

  1. Discriptis originali range
  2. Key Preme F5, deinde button Highlight (Special). In fenestra quod aperit, lego Cellulae vacuae(blank) et click OK.

    Inanis cellas removere a rhoncus

    Omnes cellae vacuae in latitudine deliguntur.

  3. Praecipimus in menu delere cellulas selectas: ius-click- Cellulae delete (Delere Cellulae) cum sursum subcinctus.

Modus II: Ordinatio Formulae

Ut simpliciorem reddere, nomen nostrum iugis operantes utendo nomen Manager (Name Manager) Tab formula: (Formulae) vel, in Excel 2003 et antiquiorem, in menu Inserta - Nomen - Assign (Insert - nomen - Define)

 

Nomen rhoncus B3: B10 HaveEmpty, range D3:D10 - NoneEmpty. Amplitudo stricte debet esse septa, et alicubi inter se relativa collocari possunt.

Nunc cellulam primam secundae range (D3) elige et hanc formulam FORMIDULOSUS in eam ingredere:

= SI (ROW() -ROW (NoEmpty) + I> NOTROWS (YesEmpty) -COUNTBLANK (YesEmpty); ""; INDIRECT (ADDRESS (INFIM ((IF (inanis<>"", VERSUS (inanis); VERSUS () VERSUS (Vana)));

In versione Anglica erit:

= SI (ROW () -ROW (NoEmpty) + I> ORDINES (Inanis) -COUNTBLANK (Inanis) "", INDIRECT (ADDRESS (S PAULLUS ((IF (Inanis <>"", VERSUS (Inanis), VERSUS () ROW()-ROW(NoEmpty)+), COLUMN(HaveEmpty),1)))

Praeterea notanda est formula ordinata, id est torcular post past Enter (Ut solet) and * + + Accidit Shift Intra. Nunc formula describi potest utens autocompleto (traho nigram crucem in angulo dextro inferiore cellae) — et originalis ambitum obtinebimus, sed sine cellulis inanes;

 

Modus 3. Consuetudo functionis in VBA

Si suspicio est quod saepe repetendum erit processum ad cellas vacuas a iugis tollendas, melius est munus tuum addere ad cellulas vacuas ad normam semel statuto tollendas et in omnibus casibus subsequentibus utere.

Facere hoc, Editor Visual aperi (Alt + F11), Modulus inanis novum inserere (menu Inserere - OMNIBUS) et textum huius functionis ibi exscribere;

Munus NoBlanks (DataRange sicut Range) ut Variant () Dim N ut Long Dim N2 sicut Long Dim Rng sicut Range Dim MaxCells sicut Long Dim Result () Variant Dim R ut Long Dim C ut Long MaxCells = Application.WorksheetFunction.Max (_ Application.Caller.Cells.Count, DataRange.Cells.Count) ReDim Ex (I Ad MaxCells, I Ad I) Nam quisque Rng in DataRange.Cells si Rng.Value <> vbNullString Deinde N = N + I Ex (N, I ) = Rng.Value Finis Si Proximum Rng Pro N1 = N + 1 Ad MaxCells Proventus(N1, 1) = vbNullString Next N1 Si Application.Caller.Rows.Count = 2 Tunc NoBlanks = Application.Transpose(Result) Vel NoBlanks = Result Finis si finis Function

Noli oblivisci tabellam servare et ab editore Visual Basic Editor ut Excel. Hoc munus utamur in exemplo nostro:

  1. Locus satis amplis cellulis vacuis, exempli gratia F3:F10.
  2. Ad ex menu Inserta - Function (Insert - Function)aut click in puga pyga Munus inserta (Insert Function) Tab formula: (Formulae) in recentioribus versionibus Excel. In categoria ShadowMenu (User Defined) munus eligere nostrum NoBlanks.
  3. Specificare fontem vagandi cum evacuationibus (B3:B10) ut munus argumenti et torcular + + Accidit Shift Intramunus inire ut ordinata formula.

:

  • Deletis omnes ordines vacuos in mensa statim simplici macro
  • Ordines inanes omnes removens in officina statim utens PLEX adaugeo
  • Velox implent omnes cellulas vacuas
  • Quae sunt macra, ubi tortor codicem in VBA inserere

 

Leave a Reply