समस्या का निरूपण
हमारे पास डेटा के साथ कई सेल हैं जिनमें खाली सेल हैं:
कार्य केवल जानकारी के साथ कोशिकाओं को छोड़कर, खाली कोशिकाओं को हटाना है।
विधि 1. रफ एंड फास्ट
- मूल श्रेणी का चयन
- कुंजी दबाएं F5, अगला बटन हाइलाइट (विशेष). खुलने वाली विंडो में, चुनें खाली सेल(रिक्त स्थान) और क्लिक करें OK.
श्रेणी में सभी खाली सेल चुने गए हैं।
- हम चयनित सेल को हटाने के लिए मेनू में एक कमांड देते हैं: राइट-क्लिक- सेल हटाएं (सेल हटाएं) ऊपर की ओर शिफ्ट के साथ।
विधि 2: ऐरे फॉर्मूला
सरल बनाने के लिए, आइए हमारी कार्य श्रेणियों का उपयोग करके नाम दें नाम प्रबंधक (नाम प्रबंधक) टैब सूत्र (सूत्र) या, Excel 2003 और पुराने में, मेनू सम्मिलित करें - नाम - असाइन करें (सम्मिलित करें - नाम - परिभाषित करें)
श्रेणी को नाम दें B3:B10 खाली है, श्रेणी D3:D10 - कोई नहीं खाली. रेंज सख्ती से एक ही आकार की होनी चाहिए, और एक दूसरे के सापेक्ष कहीं भी स्थित हो सकती हैं।
अब दूसरी श्रेणी (D3) के पहले सेल का चयन करें और इसमें इस डरावने सूत्र को दर्ज करें:
=IF(ROW() -ROW(NoEmpty)+1>NOTROWS(YesEmpty)-COUNTBLANK(YesEmpty);””; + पंक्तियाँ (खाली हैं)); लाइन () - पंक्ति (कोई खाली नहीं) +1); कॉलम (खाली हैं); 4)))
अंग्रेजी संस्करण में यह होगा:
=IF(ROW()-ROW(NoEmpty)+1>ROWS(Empty)-COUNTBLANK(Empty),,"",INDIRECT(ADDRESS(SMALL((IF(Empty<>"",ROW(Empty), ROW()) + पंक्तियाँ (HaveEmpty)), ROW()- ROW (NoEmpty)+1), COLUMN (HaveEmpty), 4)))
इसके अलावा, इसे एक सरणी सूत्र के रूप में दर्ज किया जाना चाहिए, अर्थात चिपकाने के बाद दबाएं दर्ज (हमेशा की तरह) और Ctrl + Shift + Enter. अब स्वत: पूर्ण का उपयोग करके सूत्र को कॉपी किया जा सकता है (सेल के निचले दाएं कोने में काले क्रॉस को खींचें) - और हमें मूल श्रेणी मिल जाएगी, लेकिन खाली कोशिकाओं के बिना:
विधि 3. वीबीए में कस्टम फ़ंक्शन
यदि आपको संदेह है कि आपको श्रेणियों से खाली कोशिकाओं को हटाने की प्रक्रिया को अक्सर दोहराना होगा, तो खाली कोशिकाओं को मानक सेट में एक बार हटाने के लिए अपने स्वयं के फ़ंक्शन को जोड़ना बेहतर है, और बाद के सभी मामलों में इसका उपयोग करें।
ऐसा करने के लिए, विजुअल बेसिक एडिटर खोलें (ALT + F11), एक नया खाली मॉड्यूल डालें (मेनू सम्मिलित करें - मॉड्यूल) और इस फ़ंक्शन के टेक्स्ट को वहां कॉपी करें:
फ़ंक्शन NoBlanks (डेटारेंज रेंज के रूप में) संस्करण के रूप में () मंद एन के रूप में लंबे समय तक मंद एन 2 के रूप में लंबे मंद रेंज के रूप में मंद रेंज के रूप में मंद मैक्ससेल लंबे मंद परिणाम के रूप में () रूप में मंद आर के रूप में लंबे मंद सी के रूप में लंबे मैक्ससेल्स = आवेदन। वर्कशीटफंक्शन। मैक्स ( _ 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 If Next Rng For N2 = N + 1 To MaxCells Result(N2, 1) = vbNullString Next N2 If Application.Caller.Rows.Count = 1 तो NoBlanks = Application.Transpose(Result) Else NoBlanks = Result एंड इफ एंड फंक्शन
फ़ाइल को सहेजना न भूलें और Visual Basic Editor से Excel में वापस स्विच करें। हमारे उदाहरण में इस फ़ंक्शन का उपयोग करने के लिए:
- रिक्त कक्षों की पर्याप्त श्रेणी का चयन करें, उदाहरण के लिए F3:F10।
- मेनू पर जाएं सम्मिलित करें - फ़ंक्शन (सम्मिलित करें - फ़ंक्शन)या बटन पर क्लिक करें फ़ंक्शन डालें (सम्मिलित समारोह) टैब सूत्र (सूत्र) एक्सेल के नए संस्करणों में। श्रेणी में उपयोगकर्ता परिभाषित (उपयोगकर्ता परिभाषित) हमारा कार्य चुनें नो ब्लैंक्स.
- फंक्शन आर्ग्युमेंट के रूप में सोर्स रेंज को voids (B3:B10) के साथ निर्दिष्ट करें और दबाएं Ctrl + Shift + Enterफ़ंक्शन को सरणी सूत्र के रूप में दर्ज करने के लिए।
:
- एक साधारण मैक्रो के साथ एक बार में एक तालिका में सभी खाली पंक्तियों को हटाना
- PLEX ऐड-ऑन का उपयोग करके एक बार में वर्कशीट में सभी खाली पंक्तियों को हटाना
- सभी खाली सेल को तुरंत भरें
- मैक्रोज़ क्या हैं, VBA में मैक्रो कोड कहाँ डालें?