د یوې سلسلې څخه د خالي حجرو لرې کول

د ستونزې جوړښت

موږ د ډیټا سره د حجرو لړۍ لرو چې خالي حجرې لري:

دنده د خالي حجرو لرې کول دي، یوازې د معلوماتو سره حجرې پریږدي.

طریقه 1. سخت او چټک

1. د اصلي رینج غوره کول
2. کیلي کېکاږئ F5، بل تڼۍ سرټکي (ځانګړی). په هغه کړکۍ کې چې خلاصیږي، غوره کړئ خالي حجرې(خالونه) او ځای کیکاږۍ OK.

   

   په سلسله کې ټول خالي حجرې غوره شوي.

3. موږ په مینو کې یو قومانده ورکوو ترڅو غوره شوي حجرې حذف کړئ: ښیې کلیک وکړئ- حجرې حذف کړئ (حجرې ړنګول) د پورته بدلون سره.

طريقه 2: د صف فورمول

د ساده کولو لپاره، راځئ چې زموږ د کاري سلسلې په کارولو سره نوم ورکړو نوم مدیر (د نوم مدیر) ټوپ فورمول (فارمولونه) یا، په Excel 2003 او زاړه کې، مینو داخلول – نوم – ټاکل (واخلئ - نوم - تعریف کړئ)

حد B3:B10 نوم کړئ خالي, حد D3:D10 – هیڅ نه خالي. سلسلې باید په کلکه ورته اندازه وي، او د یو بل سره په هر ځای کې واقع کیدی شي.

اوس د دوهم سلسلې (D3) لومړۍ حجره وټاکئ او دا ډارونکی فورمول پکې دننه کړئ:

=IF(ROW() -ROW(NoEmpty)+1>NOTROWS(YesEmpty)-COUNTBLANK(YesEmpty)؛""؛مستقیم(پته(لوست(((که(خالي<>"")،ROW(خالي)؛ROW() + قطار (خالي دي))؛ کرښه ()-ROW (هیڅ خالي نشته) + 1؛ کالم (خالي دي)؛ 4)))

په انګلیسي نسخه کې به دا وي:

=IF(ROW()-ROW(NoEmpty)+1> ROWS(خالي)-COUNTBLANK(خالي)،""،مستقیم(پته)(کوچنی((که(خالي<>""،ROW(خالي)،ROW() قطار

سربیره پردې، دا باید د صف فورمول په توګه داخل شي، د بیلګې په توګه د پیسټ کولو وروسته فشار ورکړئ وليکئ (د معمول په څیر) او Ctrl + Shift + داخل کړئ. اوس فارمول د اتوماتیک په کارولو سره کاپي کیدی شي (د حجرې په ښکته ښیې کونج کې تور کراس کش کړئ) - او موږ به اصلي حد ترلاسه کړو ، مګر پرته له خالي حجرو:

طریقه 3. په VBA کې دودیز فعالیت

که چیرې داسې شک شتون ولري چې تاسو به ډیری وختونه د سلسلې څخه د خالي حجرو لرې کولو کړنلاره تکرار کړئ ، نو دا به غوره وي چې یوځل معیاري ټاکل شوي ته د خالي حجرو لرې کولو لپاره خپل فعالیت اضافه کړئ ، او په راتلونکو ټولو قضیو کې یې وکاروئ.

د دې کولو لپاره، د بصری بنسټیز مدیر پرانیزئ (ALT + F11)، یو نوی خالي ماډل داخل کړئ (مینو داخل کړئ - ماډل) او د دې فنکشن متن هلته کاپي کړئ:

فنکشن NoBlanks(د ډیټا رینج د رینج په څیر) د ویرینټ په توګه () Dim N لکه اوږده Dim N2 په څیر اوږده Dim Rng د رینج په توګه Dim MaxCells د اوږده کم پایلې په توګه () د ویرینټ په توګه ډیم R په توګه اوږده ډیم C لکه اوږد MaxCells = Application.WorksheetFunction.Max( _ Application.Caller.Cells.Count، DataRange.Cells.Count) ReDim پایله (1 څخه MaxCells، 1 څخه تر 1) په DataRange.Cells کې د هر Rng لپاره که Rng.Value <> vbNullString بیا N = N + 1 پایله(N, 1 ) = Rng.Value پای که د N2 لپاره بل Rng = N + 1 د MaxCells پایلې(N2, 1) = vbNullString بل N2 که Application.Caller.Rows.Count = 1 نو بیا NoBlanks = Application.Transpose(نتیجه) نور NoBlanks = پایله پای که پای فنکشن  

د فایل خوندي کول مه هیروئ او بیرته د لید اساسی مدیر څخه Excel ته واړوئ. زموږ په مثال کې د دې فنکشن کارولو لپاره:

1. د خالي حجرو کافي سلسله غوره کړئ، د بیلګې په توګه F3:F10.
2. مینو ته لاړ شه داخل کړئ - فعالیت (داخل کړئ - فعالیت)یا په تڼۍ کلیک وکړئ فعالیت داخل کړئ (فنکشن داخل کړئ) ټوپ فورمول (فارمولونه) د Excel په نویو نسخو کې. په کټګورۍ کې کارن ټاکل شوی (د کارونکي تعریف شوی) زموږ فعالیت غوره کړئ هیڅ بلاکونه.
3. د منبع سلسله د voids (B3:B10) سره د فنکشن دلیل او فشار په توګه مشخص کړئ Ctrl + Shift + داخل کړئد صف فورمول په توګه فنکشن ته د ننوتلو لپاره.

:

• په جدول کې ټول خالي قطارونه په یوځل کې د ساده میکرو سره حذف کول
• د PLEX اضافې په کارولو سره په یوځل په یوه کاري پاڼه کې ټول خالي قطارونه لرې کول
• ټول خالي حجرې ژر ډک کړئ
• میکرو څه دي، چیرته چې په VBA کې میکرو کوډ داخل کړئ