आम तौर पर एक्सेल वर्कशीट में हम कॉलम शॉर्टकट को हटाने के लिए दो अलग-अलग तरीके होते हैं एक कीबोर्ड शॉर्टकट और दूसरा राइट-क्लिक और इंसर्ट विधि का उपयोग करके लेकिन वीबीए में हमें किसी भी कॉलम को एक साथ डिलीट करने के लिए डिलीट कमांड और पूरे कॉलम स्टेटमेंट का उपयोग करना पड़ता है। यह है कि यदि हमें किसी एकल स्तंभ को हटाने की आवश्यकता होती है तो हम एकल स्तंभ संदर्भ देते हैं, लेकिन कई स्तंभों के लिए हम कई स्तंभ संदर्भ देते हैं।
एक्सेल VBA डिलीट कॉलम
हम एक्सेल में कई क्रियाएं करते हैं जैसे कि कट, कॉपी, पेस्ट, ऐड, डिलीट, इंसर्ट और ऐसी कई चीजें जो हम नियमित तौर पर करते हैं। हम VBA कोडिंग का उपयोग करके इन सभी कार्यों का उपयोग कर सकते हैं। VBA में जो महत्वपूर्ण अवधारणाएँ हमें सीखने को मिलती हैं, उनमें से एक है "डिलीटिंग कॉलम"। इस लेख में, हम आपको दिखाएंगे कि वीबीए में इस डिलीट कॉलम विकल्प का उपयोग कैसे करें।
एक्सेल VBA में कॉलम डिलीट क्या करता है?
जैसा कि नाम से कहा गया है, यह निर्दिष्ट कॉलम को हटा देगा। इस कार्य को करने के लिए, हमें पहले यह पहचानना होगा कि हमें किस कॉलम को हटाना है। हटाने के लिए कॉलम का चयन एक परिदृश्य से दूसरे में भिन्न होता है, इसलिए हम इस लेख में कुछ महत्वपूर्ण और अक्सर सामना किए गए परिदृश्यों को कवर करेंगे।
कॉलम हटाना आसान है। सबसे पहले, हमें कॉलम का चयन करने के लिए COLUMNS प्रॉपर्टी का उपयोग करने की आवश्यकता है, इसलिए नीचे VBA में कॉलम डिलीट विधि का सिंटैक्स है।
कॉलम (कॉलम संदर्भ)। डिलीट करें
तो हम इस तरह कोड का निर्माण कर सकते हैं:
कॉलम (2)। हटाएं या कॉलम ("बी") हटाएं
इससे कॉलम नंबर 2 यानी कॉलम बी डिलीट हो जाएगा।
यदि हम कई कॉलम हटाना चाहते हैं, तो हम कॉलम नहीं डाल सकते। हमें कॉलम हेडर, यानी अक्षर द्वारा कॉलम को संदर्भित करना होगा।
कॉलम ("ए: डी")। हटाएं
यह कॉलम को A से D, यानी पहले 4 कॉलम तक हटा देगा।
इस तरह, हम विशेष कॉलम को हटाने के लिए VBA में "डिलीट कॉलम" विधि का उपयोग कर सकते हैं। नीचे के खंड में, हम इसे बेहतर समझने के लिए और अधिक उदाहरण देखेंगे। पढ़ते रहिये।
एक्सेल VBA के उदाहरण कॉलम विधि को हटा दें
नीचे VBA का उपयोग करके कॉलम हटाने के उदाहरण दिए गए हैं।
उदाहरण # 1 - हटाएँ विधि का उपयोग करना
मान लें कि आपके पास डेटशीट है, नीचे जैसा कुछ है।
यदि हम कॉलम महीने "मार्च" को हटाना चाहते हैं, तो पहले कॉलम की संपत्ति चुनें।
कोड:
उप Delete_Example1 () कॉलम (अंतिम उप)
कॉलम संख्या या वर्णमाला का उल्लेख करें। इस मामले में, यह 3 या सी है।
कोड:
उप Delete_Example1 () कॉलम (3)। अंत उप
डिलीट विधि का उपयोग करें।
नोट: आपको हटाए गए विधि का चयन करने के लिए IntelliSense सूची नहीं मिलेगी। बस "हटाएं" टाइप करेंकोड:
उप Delete_Example1 () कॉलम (3)। डिलीट एंड सब
या आप इस तरह कॉलम एड्रेस डाल सकते हैं।
कोड:
उप Delete_Example1 () कॉलम ("C")
इस कोड को F5 कुंजी का उपयोग करके चलाएं, या आप मैन्युअल रूप से चला सकते हैं और परिणाम देख सकते हैं।
दोनों कोड उल्लेखित कॉलम को हटाने का काम करेंगे।
यदि हम कई कॉलम हटाना चाहते हैं, तो हमें उन्हें वर्णमाला में उल्लेख करना होगा। हम यहां कॉलम नंबर का उपयोग नहीं कर सकते।
यदि हम कॉलम 2 से 4 को हटाना चाहते हैं, तो हम नीचे दिए गए कोड को पास कर सकते हैं।
कोड:
उप Delete_Example1 () कॉलम ("C: D")
इस कोड को मैन्युअल रूप से रन विकल्प के माध्यम से चलाएं या F5 कुंजी दबाएं। यह कॉलम "फ़रवरी," "मार्च," और "अप्रैल" को हटा देगा।
उदाहरण # 2 - वर्कशीट नाम के साथ कॉलम हटाएं
उपरोक्त VBA कोड का उपयोग करके कॉलम को हटाने का एक सिंहावलोकन है। हालाँकि, स्तंभों को हटाने का यह अच्छा अभ्यास नहीं है। वर्कशीट नाम का उल्लेख किए बिना, कॉलम को नेत्रहीन रूप से हटाना खतरनाक है।
यदि आपने वर्कशीट के नाम का उल्लेख नहीं किया है, तो जो भी शीट सक्रिय है, वह उस शीट के कॉलम को हटा देगी।
सबसे पहले, हमें उसके नाम से वर्कशीट का चयन करना होगा।
कोड:
उप Delete_Example2 () कार्यपत्रक ("बिक्री पत्रक")। अंत उप चुनें
शीट का चयन करने के बाद, हमें कॉलम का चयन करना होगा। हम VBA RANGE ऑब्जेक्ट का उपयोग करके भी कॉलम का चयन कर सकते हैं।
कोड:
सब Delete_Example2 () वर्कशीट ("बिक्री शीट")। चयन सीमा ("बी: डी"): हटाए गए उप को हटा दें।
यह कार्यपत्रक "बिक्री पत्रक" के कॉलम B से D को हटा देगा। इस कोड के लिए, यह कोई बात नहीं है जो सक्रिय है। फिर भी, यह केवल उस शीट के उल्लिखित कॉलम को हटा देगा।
हम सिंगल लाइन में भी VBA कोड का निर्माण कर सकते हैं।
कोड:
उप Delete_Example2 () वर्कशीट ("बिक्री शीट")। रेंज ("बी: डी")। डिलीट एंड।
यह वर्कशीट "सेल्स शीट" का चयन किए बिना भी कॉलम "B से D" को हटा देता है।
उदाहरण # 3 - रिक्त कॉलम हटाएं
मान लें कि आपके पास नीचे की तरह वैकल्पिक खाली कॉलम हैं।
इसलिए, प्रत्येक वैकल्पिक कॉलम को हटाएं जिसे हम नीचे दिए गए कोड का उपयोग कर सकते हैं।
कोड:
सब डिलीट_एक्सप्लोम 3 () डिम k अस इंटेगर फॉर k = 1 टु 4 कॉलम (k + 1)। आगे अगला k एंड सब उप।
इस कोड को F5 कुंजी या मैन्युअल रूप से चलाएं। फिर, यह सभी वैकल्पिक रिक्त कॉलम को हटा देगा, और हमारा डेटा इस तरह दिखाई देगा।
उदाहरण # 4 - ब्लैंक सेल्स कॉलम हटाएं
अब, इस उदाहरण को देखें। ऐसी कुछ स्थितियाँ हैं जहाँ हमें संपूर्ण स्तंभ को हटाने की आवश्यकता होती है यदि कोई रिक्त कक्ष डेटा श्रेणी में पाए जाते हैं। एक उदाहरण के लिए नीचे दिए गए डेटा पर विचार करें।
पीले रंग की सभी कोशिकाएँ खाली होती हैं। तो यहाँ, मेरी आवश्यकता सभी रिक्त सेल कॉलम को हटाने की है। नीचे दिया गया कोड ऐसा करेगा।
कोड:
सब Delete_Example4 () रेंज ("A1: F9")। चयन का चयन करें। विशेष चयन (xlCellTypeBlanks)। चयन का चयन करें।
इस कोड लाइन को मैं आपके लिए लाइन द्वारा समझाता हूं।
हमारा डेटा A1 से F9 तक है, इसलिए सबसे पहले, मुझे उस सीमा का चयन करने की आवश्यकता है, और नीचे दिया गया कोड होगा।
रेंज ("A1: F9")। चयन करें
कक्षों की इस चयनित श्रेणी में, मुझे उन कक्षों का चयन करना होगा जो रिक्त हैं। इसलिए एक रिक्त सेल का चयन करने के लिए, हमें विशेष सेल संपत्ति की आवश्यकता होती है, और उस संपत्ति में, हमने सेल प्रकार को रिक्त के रूप में उपयोग किया है।
चयन। विशेष क्षेत्र (xlCellTypeBlanks)। चयन करें
अगला, यह सभी रिक्त कक्षों का चयन करेगा, और चयन में, हम चयन के पूरे कॉलम को हटा रहे हैं।
चयन .EntireColumn.Delete
तो हमारा अंतिम परिणाम इस तरह दिखेगा।
जहाँ भी इसे रिक्त कक्ष मिला है, इसने उन रिक्त कक्षों को पूरे स्तंभ को हटा दिया है।
आप यहां एक्सेल वीबीए डिलीट कॉलम डाउनलोड कर सकते हैं - वीबीए डिलीट कॉलम टेम्पलेट
