ינהאַלט
פאָרמולאַטיאָן פון די פּראָבלעם
מיר האָבן אַ קייט פון סעלז מיט דאַטן וואָס כּולל ליידיק סעלז:
די אַרבעט איז צו באַזייַטיקן ליידיק סעלז, לאָזן בלויז סעלז מיט אינפֿאָרמאַציע.
אופֿן 1. פּראָסט און שנעל
- סעלעקטינג דער אָריגינעל קייט
- דרוק דעם שליסל F5, ווייַטער קנעפּל הויכפּונקט (ספּעציעל). אין די פֿענצטער וואָס אָפּענס, סעלעקטירן ליידיק סעלז(בלאַנקס) און גיט OK.
אַלע ליידיק סעלז אין די קייט זענען אויסגעקליבן.
- מיר געבן אַ באַפֿעל אין די מעניו צו ויסמעקן אויסגעקליבן סעלז: רעכט גיט- ויסמעקן סעלז (מעקן צעלן) מיט אַרוף יבעררוק.
אופֿן 2: מענגע פאָרמולע
צו פאַרפּאָשעטערן, לאָזן אונדז נאָמען אונדזער אַרבעט ריינדזשאַז ניצן נאָמען מאַנאַגער (נאָמען פאַרוואַלטער) קוויטל פאָרמולע (פאָרמולעס) אָדער, אין עקססעל 2003 און עלטער, די מעניו אַרייַנלייגן - נאָמען - באַשטימען (אַרייַנלייגן - נאָמען - דעפינירן)
נאָמען די קייט B3:B10 האָבן ליידיק, קייט D3:D10 - None Empty. ריינדזשאַז מוזן זיין שטרענג די זעלבע גרייס, און קענען זיין ליגן ערגעץ קאָרעוו צו יעדער אנדערער.
איצט סעלעקטירן דער ערשטער צעל פון די רגע קייט (D3) און אַרייַן דעם סקערי פאָרמולע אין עס:
=IF(ROW() -ROW(NoEmpty)+1>NOTROWS(Yesempty)-COUNTBLANK(YesEmpty);"";INDIRECT(ADDRESS(LOWEST((IF(Empty<>“",ROOW(Empty); ROW() + ROWS (עס זענען ליידיק))); שורה ()-רודערן (קיין ליידיק) +1); זייַל (עס זענען ליידיק); 4)))
אין די ענגליש ווערסיע עס וועט זיין:
=IF(ROW()-ROW(NoEmpty)+1>ROWS(Empty)-COUNTBLANK(Empty),"",INDIRECT(ADDRESS(SMALL((IF(Empty<>“",ROOW(Empty), ROW() + ROWS(האָבן עמפּטי))), רודערן()-רודערן(ניט עמפּטי)+1), קאָלום (האָבן עמפּטי), 4)))
דערצו, עס מוזן זיין אריין ווי אַ מענגע פאָרמולע, ד"ה דריקן נאָך פּאַסטינג אַרייַן (ווי געוויינטלעך) און Ctrl + Shift + Enter. איצט די פאָרמולע קענען זיין קאַפּיד אַראָפּ מיט אַוטאָקאָמפּלעטע (שלעפּן די שוואַרץ קרייַז אין דער נידעריקער רעכט ווינקל פון דער צעל) - און מיר וועלן באַקומען די אָריגינעל קייט, אָבער אָן ליידיק סעלז:
אופֿן 3. מנהג פֿונקציע אין וובאַ
אויב עס איז אַ חשד אַז איר אָפט האָבן צו איבערחזרן די פּראָצעדור פֿאַר רימוווינג ליידיק סעלז פון ריינדזשאַז, עס איז בעסער צו לייגן דיין אייגענע פונקציע פֿאַר רימוווינג ליידיק סעלז צו די נאָרמאַל שטעלן אַמאָל, און נוצן עס אין אַלע סאַבסאַקוואַנט קאַסעס.
צו טאָן דאָס, עפֿענען די Visual Basic Editor (ALT + F11), אַרייַנלייגן אַ נייַ ליידיק מאָדולע (מעניו אַרייַנלייגן - מאָדולע) און נאָכמאַכן דעם טעקסט פון דעם פֿונקציע דאָרט:
פֿונקציע 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) רעדים רעזולטאַט (1 צו מאַקססעללס, 1 צו 1) פֿאַר יעדער רנג אין DataRange.Cells אויב Rng.Value <> vbNullString דעמאָלט N = N + 1 רעזולטאַט (N, 1) ) = רנג.וואַלוע סוף אויב ווייַטער רנג פֿאַר נ2 = ען + 1 צו מאַקססעללס רעזולטאַט(נ2, 1) = וובנוללסטרינג ווייַטער נ2 אויב אַפּפּליקאַטיאָן.קאַללער.ראָווס.קאָונט = 1 דעמאָלט נאָבלאַנקס = אַפּפּליקאַטיאָן.טראַנספּאָסע(רעזולטאַט) אַנדערש נאָבלאַנקס = רעזולטאַט סוף אויב סוף פֿונקציע
דו זאלסט נישט פאַרגעסן צו ראַטעווען די טעקע און באַשטימען צוריק פון די וויסואַל באַסיק עדיטאָר צו עקססעל. צו נוצן דעם פֿונקציע אין אונדזער בייַשפּיל:
- אויסקלייַבן אַ גענוג קייט פון ליידיק סעלז, פֿאַר בייַשפּיל F3: F10.
- גיין צו די מעניו אַרייַנלייגן - פֿונקציע (אַרייַנלייגן - פֿונקציע)אָדער דריקט אויף די קנעפּל אַרייַנלייגן פֿונקציע (אַרייַנלייגן פֿונקציע) קוויטל פאָרמולע (פאָרמולעס) אין נייַער ווערסיעס פון עקססעל. אין קאַטעגאָריע באַניצער דיפיינד (באַניצער דעפינירט) קלייַבן אונדזער פֿונקציע NoBlanks.
- ספּעציפיצירן די מקור קייט מיט וווידז (B3: B10) ווי די פונקציע אַרגומענט און דריקן Ctrl + Shift + Enterצו אַרייַן די פֿונקציע ווי אַ מענגע פאָרמולע.
:
- דיליטינג אַלע ליידיק ראָוז אין אַ טיש אין אַמאָל מיט אַ פּשוט מאַקראָו
- רימוווינג אַלע ליידיק ראָוז אין אַ ווערקשיט אין אַמאָל מיט די PLEX אַדישאַן
- שנעל פּלאָמבירן אַלע ליידיק סעלז
- וואָס זענען מאַקראָס, ווו צו אַרייַנלייגן מאַקראָו קאָד אין וובאַ