ọdịnaya
Ịmepụta nsogbu ahụ
Anyị nwere ọtụtụ sel nwere data nwere mkpụrụ ndụ efu:
Ọrụ ahụ bụ iwepụ mkpụrụ ndụ efu, na-ahapụ naanị sel nwere ozi.
Usoro 1. siri ike na ngwa ngwa
- Ịhọrọ oke izizi
- Pịa igodo F5, bọtịnụ ọzọ Mata (Pụrụ iche). Na mpio mepere emepe, họrọ Selụ efu(Oghere) na pịa OK.
A na-ahọrọ mkpụrụ ndụ efu niile dị na nso.
- Anyị na-enye iwu na menu ka ihichapụ mkpụrụ ndụ ahọpụtara: pịa aka nri- Hichapụ mkpụrụ ndụ (Hichapụ cell) na ngbanwe elu.
Usoro 2: Usoro nhazi
Iji mee ka ọ dị mfe, ka anyị jiri aha ọkwa ọrụ anyị Onye njikwa aha (Onye njikwa aha) tab usoro (Formula) ma ọ bụ, na Excel 2003 na karịa, menu Fanye – Aha – Kenye (Tinye - Aha - Kọwaa)
Kpọọ oke B3:B10 Nwee efu, nso D3:D10 - Enweghị efu. Ogo ga-abụrịrị otu nha, enwere ike ịnọ ebe ọ bụla n'akụkụ ibe ya.
Ugbu a họrọ cell nke mbụ nke oke nke abụọ (D3) wee tinye usoro egwu a n'ime ya:
= Ọ BỤRỤ (ỤRỤ () -ROW (NoEmpty)+1>NOTROWS (YesEmpty) -COUNTBLANK (Ee Empty);""; INDIRECT (ADDRESS(LAWEST((Ọ BỤRỤ (Empty <>"") + ROWS (Enwere ihe efu))); EKERE () ROW (Enweghị ihe efu)+1); COLUMN (Enwere ihe efu); 4)))
N'asụsụ Bekee ọ ga-abụ:
= Ọ BỤRỤ (ỤRỤ ()-ROW (NoEmpty)+1>ỤRỤ(Efuo) -COUNTBLANK(Ihe efu),"",",INDIRECT(ADDRESS(obere((Ọ BỤRỤ (Efu<>"")] + ROWS(Nnwere ihe efu))), ROW ()-ROW (Enweghị ihe efu)+1), kọlụm (Nnwere ihe efu),4)))
Ọzọkwa, a ga-etinyerịrị ya ka ọ bụrụ usoro nhazi, ntụgharị pịa ma tapawa Tinye (dị ka ọ dị na mbụ) na Ctrl + Shift + Tinye. Ugbu a enwere ike depụtaghachi usoro ahụ site na iji autocomplete (dọkpụrụ obe ojii na akuku aka nri ala nke cell) - anyị ga-enweta oke mbụ, mana enweghị sel efu:
Usoro 3. Ọrụ omenala na VBA
Ọ bụrụ na enwere enyo na ị ga-emeghachi usoro ahụ maka iwepụ mkpụrụ ndụ efu site na oke, mgbe ahụ ọ ka mma ịgbakwunye ọrụ nke gị maka iwepụ mkpụrụ ndụ efu na ọkọlọtọ setịpụrụ otu ugboro, ma jiri ya mee ihe na ikpe niile.
Iji mee nke a, mepee Visual Basic Editor (ALT+F11), fanye modul ọhụrụ efu (nchịkọta Fanye – Modul) ma detuo ederede ọrụ a ebe ahụ:
Ọrụ NoBlanks(DataRange Dị Ka Range) Dị Ka 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) For each Rng In DataRange.Cells If Rng.Value <> vbNullString Mgbe ahụ N = N + 1 Result(N, 1) ) = Rng.Uru Ọgwụgwụ Ọ bụrụ na Rng Na-esote Maka N2 = N + 1 Iji MaxCells Nsonaazụ (N2, 1) = vbNullString Na-esote N2 Ọ bụrụ Ngwa.Caller.Rows.Count = 1 Mgbe ahụ NoBlanks = Application.Transpose(Nsonaazụ) Else NoBlanks = Nsonaazụ Ọgwụgwụ Ọ bụrụ Ọgwụgwụ Ọrụ
Echefula ịchekwa faịlụ ahụ wee laghachi na Visual Basic Editor gaa na Excel. Iji ọrụ a na ihe atụ anyị:
- Họrọ nso nso nke mkpụrụ ndụ efu, dịka ọmụmaatụ F3:F10.
- Gaa na menu Ntinye - Ọrụ (Fanye - Ọrụ)ma ọ bụ pịa bọtịnụ Fanye ọrụ (Fanye ọrụ) tab usoro (Formula) na nsụgharị Excel ọhụrụ. Na ngalaba Akọwapụtara Onye Ọrụ (Kwapụtara onye ọrụ) họrọ ọrụ anyị NoBlanks.
- Ezipụta nso nso a na oghere (B3:B10) dị ka arụmụka ọrụ wee pịa Ctrl + Shift + Tinyeịbanye ọrụ dị ka usoro nhazi.
:
- Iji nnukwu nnukwu ihichapụ ahịrị niile efu na tebụl ozugbo
- Iwepu ahịrị niile efu na mpempe akwụkwọ ọrụ ozugbo site na iji mgbakwunye PLEX
- Ngwa jujuo sel niile efu
- Kedu ihe bụ macros, ebe ị ga-etinye koodu macro na VBA