cuntenutu
Formulazione di u prublema
Avemu una gamma di cellule cù dati chì cuntenenu cellule vacanti:
U compitu hè di caccià e cellule viote, lascendu solu cellule cù informazioni.
Metudu 1. Rough and fast
- Selezzione di a gamma originale
- Pulsà a chjave F5, buttone dopu valurisazione (Speciale). In a finestra chì apre, selezziunate Cellule viote(Spatu) è cliccate OK.
Tutte e cellule viote in a gamma sò selezziunate.
- Demu un cumandamentu in u menù per sguassà e cellule selezziunate: cliccate right-click- Sguassà e cellule (Eliminate e cellule) cù u turnu ascendente.
Metudu 2: Formula Array
Per simplificà, chjamemu i nostri intervalli di travagliu utilizendu Manager di Nome (Nome Manager) Insignia fòrmula (formule) o, in Excel 2003 è più vechji, u menu Inserisci - Nome - Assigna (Inserisci — Nome — Definisce)
Nominate a gamma B3: B10 AvèViotu, gamma D3: D10 - NisunuViotu. I ranges deve esse strettamente di a stessa dimensione, è ponu esse situati in ogni locu relative unu à l'altru.
Avà selezziunate a prima cellula di a seconda gamma (D3) è entre in questa formula spaventosa:
= IF ( FILA () - FILA ( NoVota) + 1> NOTROWS (SìVoto) - COUNTBLANK (SìVoto);"";INDIRECT (ADDRESS (PIÙ BASSU) ((IF (Voto <> "", FILA (Viota); FILA () + RIGHE (Ci sò vacanti))); LINE () - ROW (Senza viotu) + 1); COLUMN (Ci sò vacanti); 4)))
In a versione inglese sarà:
= IF ( FILA ( ) - FILA ( NoViota ) + 1 > RIGHE ( Viota ) - COUNTBLANK ( Viota ), " " , INDIRIZZA INDIRECTA ( PICCOLA ( ( IF ( Viota < > " " , FILA ( Viota ), FILA ( ) + FILA (AveteVota))), FILA () - FILA (Nessuna Vuota) + 1), COLONNA (AvèVota), 4)))
Inoltre, deve esse inseritu cum'è una formula di array, vale à dì pressu dopu incolla Rinsignate (cum'è di solitu) è Ctrl + Shift + Enter. Avà a formula pò esse copiata cù l'autocomplete (trascinate a croce negra in l'angulu inferjuri à a destra di a cellula) - è averemu a gamma originale, ma senza cellule viote:
Metudu 3. Funzione persunalizata in VBA
Se ci hè un suspettu chì duverete spessu ripetiri a prucedura per caccià e cellule viote da intervalli, allora hè megliu aghjunghje a vostra propria funzione per sguassà e cellule vacanti à u settore standard una volta, è l'utilizanu in tutti i casi successivi.
Per fà questu, apre u Visual Basic Editor (ALT + F11), inserisci un novu modulu viotu (menu Inserisce - Modulu) è copià u testu di sta funzione quì:
Funzione 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) Per ogni Rng in DataRange.Cells If Rng.Value <> vbNullString Allora N = N + 1 Result (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 Allora NoBlanks = Application.Transpose (Result) Else NoBlanks = Result End If End Function
Ùn vi scurdate di salvà u schedariu è torna da u Visual Basic Editor à Excel. Per utilizà sta funzione in u nostru esempiu:
- Selezziunate un intervallu suffirenziu di cellule viote, per esempiu F3: F10.
- Andà à u menu Inserisci - Funzione (Inserisci - Funzione)o cliccate nant'à u buttone Inserisce a funzione (Inserisci Funzione) Insignia fòrmula (formule) in e versioni più recenti di Excel. In categuria Definitu da l'Usuariu (User Defined) sceglite a nostra funzione NoBlanks.
- Specificate a gamma di fonte cù vuoti (B3: B10) cum'è l'argumentu di a funzione è pressu Ctrl + Shift + Enterper entre in a funzione cum'è una formula array.
:
- Eliminazione di tutte e fila vacanti in una tavula in una volta cù una macro simplice
- Eliminazione di tutte e fila vacanti in un fogliu di travagliu in una volta utilizendu l'add-on PLEX
- Riempite rapidamente tutte e cellule viote
- Chì sò i macros, induve inserisce u codice macro in VBA