श्रेणीतून रिक्त सेल काढत आहे

समस्येचे सूत्रीकरण

आमच्याकडे डेटासह सेलची श्रेणी आहे ज्यामध्ये रिक्त सेल आहेत:

केवळ माहिती असलेले पेशी सोडून रिक्त पेशी काढून टाकणे हे कार्य आहे.

पद्धत 1. उग्र आणि जलद

1. मूळ श्रेणी निवडत आहे
2. की दाबा F5, पुढील बटण हायलाइट करा (विशेष). उघडणाऱ्या विंडोमध्ये, निवडा रिक्त पेशी(रिक्त) आणि क्लिक करा OK.

   

   श्रेणीतील सर्व रिक्त सेल निवडले आहेत.

3. निवडलेल्या सेल हटवण्यासाठी आम्ही मेनूमध्ये कमांड देतो: उजवे-क्लिक करा- सेल हटवा (सेल हटवा) वरच्या दिशेने शिफ्ट सह.

पद्धत 2: अॅरे फॉर्म्युला

सोपे करण्यासाठी, वापरून आमच्या कार्यरत श्रेणींना नाव देऊ नाव व्यवस्थापक (नाव व्यवस्थापक) टॅब सुत्र (सूत्र) किंवा, एक्सेल 2003 आणि त्यापेक्षा जुने, मेनू घाला - नाव - नियुक्त करा (घाला — नाव — परिभाषित करा)

श्रेणी B3:B10 ला नाव द्या रिक्त आहे, श्रेणी D3:D10 – रिक्त नाही. श्रेणी काटेकोरपणे समान आकाराच्या असणे आवश्यक आहे आणि ते एकमेकांच्या सापेक्ष कुठेही स्थित असू शकतात.

आता दुसऱ्या श्रेणीचा पहिला सेल निवडा (D3) आणि त्यात हे भयानक सूत्र प्रविष्ट करा:

=IF(ROW() -ROW(NoEmpty)+1>NOTROWS(होय रिकामे)-COUNTBLANK(होय रिकामे);"";अप्रत्यक्ष(पत्ता(निम्नतम((जर(रिक्त<>“”),रो(रिक्त);ROW() + ROWS(रिक्त आहेत))); LINE()-ROW(रिक्त नाही)+1); स्तंभ(रिक्त आहेत); 4)))

इंग्रजी आवृत्तीमध्ये ते असेल:

=IF(ROW()-ROW(NoEmpty)+1>ROWS(रिकामे)-COUNTBLANK(रिक्त),"",अप्रत्यक्ष(पत्ता(SMALL((जर(रिक्त<>""),ROW(रिक्त),ROW() +ROWS(रिक्त आहे))),ROW()-ROW(कोणतेही रिक्त नाही)+1), COLUMN(रिक्त आहे),4)))

शिवाय, ते अॅरे फॉर्म्युला म्हणून एंटर केले पाहिजे, म्हणजे पेस्ट केल्यानंतर दाबा प्रविष्ट करा (नेहमीप्रमाणे) आणि Ctrl + Shift + एंटर करा. आता फॉर्म्युला स्वयंपूर्ण वापरून कॉपी केला जाऊ शकतो (सेलच्या खालच्या उजव्या कोपर्यात ब्लॅक क्रॉस ड्रॅग करा) - आणि आम्हाला मूळ श्रेणी मिळेल, परंतु रिक्त सेलशिवाय:

पद्धत 3. VBA मध्ये सानुकूल कार्य

श्रेण्यांमधून रिक्त सेल काढून टाकण्यासाठी आपल्याला वारंवार प्रक्रिया पुन्हा करावी लागेल अशी शंका असल्यास, एकदा मानक सेटमध्ये रिक्त सेल काढण्यासाठी आपले स्वतःचे कार्य जोडणे आणि त्यानंतरच्या सर्व प्रकरणांमध्ये ते वापरणे चांगले.

हे करण्यासाठी, व्हिज्युअल बेसिक एडिटर उघडा (ALT + F11), एक नवीन रिक्त मॉड्यूल घाला (मेनू घाला - मॉड्यूल) आणि तेथे या फंक्शनचा मजकूर कॉपी करा:

फंक्शन NoBlanks(DataRange as Range) variant() Dim N as long dim N2 as long dim Rng as long dim Rng as long dim result() variant म्हणून dim R तितका लांब मंद 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 ) = Rng.Value End जर N2 साठी पुढील Rng = N + 1 ते MaxCells Result(N2, 1) = vbNullString पुढील N2 जर Application.Caller.Rows.Count = 1 असेल तर NoBlanks = Application.Transpose(परिणाम) अन्यथा NoBlanks = निकाल End If End Function  

फाइल सेव्ह करायला विसरू नका आणि व्हिज्युअल बेसिक एडिटरवरून एक्सेलवर परत जा. आमच्या उदाहरणामध्ये हे कार्य वापरण्यासाठी:

1. रिक्त सेलची पुरेशी श्रेणी निवडा, उदाहरणार्थ F3:F10.
2. मेनूवर जा घाला - कार्य (घाला - कार्य)किंवा बटणावर क्लिक करा फंक्शन घाला (फंक्शन घाला) टॅब सुत्र (सूत्र) Excel च्या नवीन आवृत्त्यांमध्ये. श्रेणीत वापरकर्ता परिभाषित (वापरकर्ता परिभाषित) आमचे कार्य निवडा नो ब्लँक्स.
3. फंक्शन आर्ग्युमेंट म्हणून व्हॉईड्स (B3:B10) सह स्त्रोत श्रेणी निर्दिष्ट करा आणि दाबा Ctrl + Shift + एंटर कराअॅरे फॉर्म्युला म्हणून फंक्शन प्रविष्ट करण्यासाठी.

:

• एका साध्या मॅक्रोसह टेबलमधील सर्व रिकाम्या पंक्ती एकाच वेळी हटवणे
• PLEX अॅड-ऑन वापरून वर्कशीटमधील सर्व रिकाम्या पंक्ती एकाच वेळी काढून टाकणे
• सर्व रिक्त सेल द्रुतपणे भरा
• मॅक्रो म्हणजे काय, VBA मध्ये मॅक्रो कोड कुठे टाकायचा