رينج مان خالي خانن کي هٽائڻ

مسئلي جي جوڙجڪ

اسان وٽ ڊيٽا سان گڏ سيلز جو هڪ سلسلو آهي جنهن ۾ خالي سيل شامل آهن:

ڪم خالي خاني کي ختم ڪرڻ آهي، صرف معلومات سان سيلز کي ڇڏي ڏيو.

طريقو 1. سخت ۽ تيز

1. اصل حد چونڊيو
2. پريس کي دٻايو F5، اڳيون بٽڻ هاء ڏس (خاص). کليل ونڊو ۾، چونڊيو خالي خانا(خالي) ۽ ڪلڪ ڪريو OK.

   

   رينج ۾ سڀ خالي خانا چونڊيا ويا آهن.

3. اسان مينيو ۾ حڪم ڏيون ٿا منتخب ٿيل سيلز کي حذف ڪرڻ لاءِ: ساڄي ڪلڪ ڪريو- سيلز کي ختم ڪريو (سيلز کي حذف ڪريو) مٿي واري شفٽ سان.

طريقو 2: صفا فارمولا

آسان ڪرڻ لاءِ، اچو ته نالو ڏيون اسان جي ڪم ڪندڙ حدن کي استعمال ڪندي نالي وارو مئنيجر (نالو مئنيجر) ٽئب فارمولا (فارمولا) يا، Excel 2003 ۽ پراڻن ۾، مينيو داخل ڪريو - نالو - مقرر ڪريو (داخل ڪريو - نالو - وضاحت ڪريو)

حد جو نالو ڏيو B3:B10 خالي ڪريو, حد D3:D10 - ڪو به خالي نه. حدون سختي سان ساڳي سائيز هجڻ گهرجن، ۽ هڪ ٻئي جي نسبت ڪٿي به واقع ٿي سگهن ٿيون.

ھاڻي ٻئي رينج (D3) جو پھريون سيل چونڊيو ۽ ان ۾ ھي خوفناڪ فارمولا داخل ڪريو:

=IF(ROW() -ROW(NoEmpty)+1>NOTROWS(YesEmpty)-COUNTBLANK(YesEmpty)؛""؛ INDIRECT(ADDRESS(LOWEST((IF(Empty<>"")،ROW(خالي)؛ROW() + ROWS(خالي آهن)))؛ LINE()-ROW(خالي ناهي)+1؛ ڪالم (اتي خالي آهن)؛ 4)))

انگريزي ورزن ۾ اهو ٿيندو:

=IF(ROW()-ROW(NoEmpty)+1>ROWS(خالي)-COUNTBLANK(خالي)،""،انڊائريڪٽ(ADDRESS(SMALL((If(خالي<>"")،ROW(خالي)،ROW() +ROWS(خالي آهن)))،ROW()-ROW(NoEmpty)+1،COLUMN(خالي آهن)،4)))

ان کان علاوه، اهو لازمي طور تي داخل ٿيڻ گهرجي هڪ صف فارمولا، يعني پيسٽ ڪرڻ کان پوء دٻايو شامل ڪريو (هميشه وانگر) ۽ Ctrl + Shift + داخل. ھاڻي فارمولا کي خودڪار طريقي سان نقل ڪري سگھجي ٿو (سيل جي ھيٺئين ساڄي ڪنڊ ۾ ڪارو ڪراس کي ڇڪيو) - ۽ اسان اصل حد حاصل ڪنداسين، پر خالي سيلن کان سواء:

طريقو 3. VBA ۾ ڪسٽم فنڪشن

جيڪڏهن ڪو شڪ آهي ته توهان کي قطارن مان خالي سيلز کي هٽائڻ جي طريقيڪار کي بار بار ورجائڻو پوندو، پوء بهتر آهي ته توهان جي پنهنجي فنڪشن کي خالي سيلز کي هٽائڻ لاء هڪ ڀيرو معياري سيٽ ۾ شامل ڪريو، ۽ ان کي ايندڙ سڀني ڪيسن ۾ استعمال ڪريو.

ائين ڪرڻ لاءِ، کوليو Visual Basic Editor (ALT + ايفڪسيميمڪس)، نئون خالي ماڊل داخل ڪريو (مينيو داخل ڪريو - ماڊل) ۽ اتي هن فنڪشن جو متن نقل ڪريو:

فنڪشن NoBlanks(DataRange As Reng) As Variant() Dim N As long Dim N2 جيتري ڊگھي Dim Rng جيتري حد تائين 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 نتيجا(1 کان MaxCells، 1 کان 1) DataRange.Cells ۾ هر Rng لاءِ جيڪڏهن Rng.Value <> vbNullString پوءِ N = N + 1 نتيجا(N, 1 ). End If End فنڪشن  

فائل کي محفوظ ڪرڻ نه وساريو ۽ Visual Basic Editor کان Excel ڏانهن واپس وڃو. اسان جي مثال ۾ هن فنڪشن کي استعمال ڪرڻ لاء:

1. خالي خانن جي ڪافي حد منتخب ڪريو، مثال طور F3:F10.
2. مينيو ڏانھن وڃو داخل ڪريو - فنڪشن (داخل ڪريو - فنڪشن)يا بٽڻ تي ڪلڪ ڪريو فنڪشن داخل ڪريو (فڪشن داخل ڪريو) ٽئب فارمولا (فارمولا) ايڪسل جي نئين ورزن ۾. درجي ۾ استعمال ڪندڙ جي تعريف (استعمال ڪندڙ جي وضاحت) اسان جي فنڪشن کي چونڊيو بي بلاڪ.
3. وائڊس (B3:B10) سان ماخذ جي حد بيان ڪريو جيئن فنڪشن دليل ۽ پريس ڪريو Ctrl + Shift + داخلفنڪشن کي هڪ صف فارمولا طور داخل ڪرڻ لاء.

:

• ھڪڙي سادي ميڪرو سان ھڪڙي ٽيبل ۾ سڀ خالي قطارون ختم ڪرڻ
• PLEX add-on استعمال ڪندي ھڪڙي ورڪ شيٽ ۾ سڀ خالي قطارون ھٽائڻ
• جلدي ڀريو سڀ خالي خانا
• ميڪرو ڇا آهن، جتي VBA ۾ ميڪرو ڪوڊ داخل ڪرڻ لاء