Werrej
Formulazzjoni tal-problema
Għandna firxa ta 'ċelloli b'dejta li fiha ċelloli vojta:
Il-kompitu huwa li jitneħħew ċelloli vojta, li jħallu biss ċelloli bl-informazzjoni.
Metodu 1. Aħrax u veloċi
- Għażla tal-firxa oriġinali
- Agħfas iċ-ċavetta F5, buttuna li jmiss Highlight (Speċjali). Fit-tieqa li tiftaħ, agħżel Ċelloli vojta(Vojti) u kklikkja OK.
Iċ-ċelloli vojta kollha fil-firxa jintgħażlu.
- Nagħtu kmand fil-menu biex tħassar iċ-ċelloli magħżula: ikklikkja bil-lemin- Ħassar iċ-ċelloli (Ħassar Ċelloli) b'ċaqliq 'il fuq.
Metodu 2: Formula Array
Biex tissimplifika, ejja nsemmu l-firxiet tax-xogħol tagħna bl-użu Maniġer tal-Ismijiet (Isem Maniġer) tab formula (Formuli) jew, f'Excel 2003 u anzjani, il-menu Daħħal – Isem – Assenja (Daħħal — Isem — Iddefinixxi)
Semmi l-firxa B3:B10 HaveEmpty, medda D3:D10 – XejnVojt. Il-firxiet għandhom ikunu strettament tal-istess daqs, u jistgħu jinstabu kullimkien relattivi għal xulxin.
Issa agħżel l-ewwel ċellola tat-tieni firxa (D3) u daħħal din il-formula tal-biża' fiha:
=JEKK(ROW() -ROW(LeVojta)+1>NOTROWS(IvaVojta)-COUNTBLANK(IvaVojta);””;INDIRETT(INDIRIZZI(L-BAĦXAR((IF(Vota<>“”,ROW(Vota);ROW()) + RINGOLI(Hemm Vojt))); LINJA()-ROW(Mhux Vojta)+1); KOLONNA (Hemm Vojta); 4)))
Fil-verżjoni bl-Ingliż se jkun:
=IF(ROW()-ROW(NoEmpty)+1>ROWS(Volja)-COUNTBLANK(Volja),””,INDIRETT(INDIRIZZI(ŻGĦAR((IF(Vota<>“”,ROW(Vota),ROW())) +ROWS(HaveEmpty))), ROW()-ROW(NoEmpty)+1), COLUMN(HaveEmpty),4)))
Barra minn hekk, għandha tiddaħħal bħala formula array, jiġifieri agħfas wara t-twaħħil Ikteb (bħas-soltu) u Ctrl + Shift + Daħħal. Issa l-formula tista 'tiġi kkupjata bl-użu ta' awtokompletazzjoni (dragg is-salib iswed fir-rokna t'isfel tal-lemin taċ-ċellula) - u se nġibu l-firxa oriġinali, iżda mingħajr ċelloli vojta:
Metodu 3. Funzjoni tad-dwana f'VBA
Jekk ikun hemm suspett li ħafna drabi jkollok tirrepeti l-proċedura għat-tneħħija ta 'ċelloli vojta minn firxiet, allura huwa aħjar li żżid il-funzjoni tiegħek stess biex tneħħi ċelloli vojta fis-sett standard darba, u tużaha fil-każijiet kollha sussegwenti.
Biex tagħmel dan, iftaħ l-Editur Visual Basic (ALT + F11), daħħal modulu vojt ġdid (menu Daħħal – Modulu) u kkopja t-test ta' din il-funzjoni hemmhekk:
Funzjoni 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 = Applikazzjoni.WorksheetFunction.Max( _ Application.Caller.Cells.Count, DataRange.Cells.Count) Riżultat ReDim (1 Sa MaxCells, 1 Sa 1) Għal Kull Rng F'DataRange.Cells Jekk Rng.Value <> vbNullString Imbagħad N = N + 1 Riżultat (N, 1 ) = Rng.Valur Tmiem Jekk Li jmiss Rng Għal N2 = N + 1 Biex MaxCells Riżultat(N2, 1) = vbNullString N2 Li jmiss Jekk Applikazzjoni.Caller.Rows.Count = 1 Imbagħad NoBlanks = Applikazzjoni.Transpose(Riżultat) Else NoBlanks = Riżultat Tmiem Jekk Tmiem Funzjoni
Tinsiex issalva l-fajl u taqleb lura mill-Editur Visual Basic għal Excel. Biex tuża din il-funzjoni fl-eżempju tagħna:
- Agħżel firxa suffiċjenti ta 'ċelloli vojta, pereżempju F3:F10.
- Mur fil-menu Daħħal – Funzjoni (Daħħal — Funzjoni)jew ikklikkja fuq il-buttuna Daħħal il-funzjoni (Daħħal il-Funzjoni) tab formula (Formuli) f'verżjonijiet aktar ġodda ta' Excel. Fil-kategorija Iddefinit mill-Utent (Iddefinit mill-Utent) agħżel il-funzjoni tagħna Noblanks.
- Speċifika l-firxa tas-sors bi vojt (B3:B10) bħala l-argument tal-funzjoni u agħfas Ctrl + Shift + Daħħalbiex tidħol fil-funzjoni bħala formula array.
:
- Tħassar ir-ringieli vojta kollha f'tabella f'daqqa b'makro sempliċi
- Tneħħi r-ringieli vojta kollha f'folja tax-xogħol f'daqqa billi tuża l-add-on PLEX
- Imla malajr iċ-ċelloli vojta kollha
- X'inhuma macros, fejn daħħal il-kodiċi makro f'VBA