contents
Fòmasyon pwoblèm nan
Nou gen yon seri selil ak done ki gen selil vid:
Travay la se retire selil vid, kite selil sèlman ki gen enfòmasyon.
Metòd 1. Gras ak vit
- Chwazi seri orijinal la
- Peze kle a F5, bouton kap vini an Souliye (Espesyal). Nan fenèt ki ouvè a, chwazi Selil vid(Vid) epi klike sou OK.
Tout selil vid nan seri a yo chwazi.
- Nou bay yon lòd nan meni an pou efase selil chwazi yo: klike sou dwa- Efase selil yo (Efase selil yo) ak chanjman anlè.
Metòd 2: Fòmil etalaj
Pou senplifye, ann bay non chenn k ap travay nou yo lè l sèvi avèk Non Manadjè (Non Manadjè) tab fòmil (Fòmil) oswa, nan Excel 2003 ak pi gran, meni an Mete – Non – Asiyen (Antre — Non — Defini)
Bay non seri a B3:B10 HaveEmpty, ranje D3:D10 – NoneEmpty. Ranje yo dwe estrikteman menm gwosè a, epi yo ka lokalize nenpòt kote parapò youn ak lòt.
Koulye a, chwazi premye selil dezyèm seri a (D3) epi antre fòmil pè sa a nan li:
=SI(RANJÈ () -RANJÈ (NonVide)+1>NOTROWS(WiVide)-COUNTBLANK(WiVide);””;INDIRÈK(ADRÈS(PI BAS((SI(Vide<>“”,RANJÈ(Vide);Wi)RANJÈ () + RANJ (Gen vid))); LINE ()-RANJ (Pa gen vid)+1); COLUMN (Gen vid); 4)))
Nan vèsyon angle a li pral:
=SI(RANJÈ ()-RANJY (NonVide)+1>RANJEY (Vide)-COUNTBLANK(Vide),””,INDIRÈK(ADRESÈ(TI((SI(Vide<>“”,RANJEY(Vide),Vide),) +RANJ (Genyen Vide))), RANJÈ ()-RANJÈ (Pa gen Vide)+1), COLÒN (Genyen Vide), 4)))
Anplis, li dwe antre kòm yon fòmil etalaj, sa vle di peze apre kole Antre nan (tankou dabitid) ak Ctrl + Shift + Mete. Koulye a, fòmil la ka kopye desann lè l sèvi avèk autocomplete (trenen kwa nwa a nan kwen ki pi ba dwat selil la) - epi nou pral jwenn seri orijinal la, men san yo pa selil vid:
Metòd 3. Custom fonksyon nan VBA
Si gen yon sispèk ke ou pral souvan oblije repete pwosedi a pou retire selil vid nan seri, Lè sa a, li pi bon ajoute pwòp fonksyon ou pou retire selil vid nan seri estanda a yon fwa, epi sèvi ak li nan tout ka ki vin apre yo.
Pou fè sa, louvri Editè Visual Basic (ALT + F11), mete yon nouvo modil vid (meni Mete – Modil) epi kopye tèks fonksyon sa a la:
Fonksyon 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 Rezilta (1 Pou MaxCells, 1 Pou 1) Pou chak Rng nan DataRange.Cells Si Rng.Value <> vbNullString Lè sa a, N = N + 1 Rezilta (N, 1 ) = Rng.Value Fen Si Next Rng Pou N2 = N + 1 Pou MaxCells Rezilta (N2, 1) = vbNullString Next N2 Si Application.Caller.Rows.Count = 1 Lè sa a, NoBlanks = Application.Transpose(Result) Else NoBlanks = Rezilta End If End Fonksyon
Pa bliye sove fichye a epi chanje soti nan Visual Basic Editè a Excel. Pou itilize fonksyon sa a nan egzanp nou an:
- Chwazi yon seri ase selil vid, pou egzanp F3:F10.
- Ale nan meni an Mete - Fonksyon (Antre — Fonksyon)oswa klike sou bouton an Mete fonksyon (Antre Fonksyon) tab fòmil (Fòmil) nan nouvo vèsyon Excel. Nan kategori Itilizatè defini (Itilizatè a defini) chwazi fonksyon nou an NoBlanks.
- Espesifye seri sous la ak vid (B3:B10) kòm agiman fonksyon an epi peze Ctrl + Shift + Metepou antre nan fonksyon an kòm yon fòmil etalaj.
:
- Efase tout ranje vid nan yon tab nan yon fwa ak yon makro senp
- Retire tout ranje vid nan yon Fèy travay alafwa lè l sèvi avèk adisyon PLEX la
- Rapid ranpli tout selil vid yo
- Ki sa ki macros, ki kote yo mete kòd macro nan VBA