यह ट्यूटोरियल VBA का उपयोग करके Excel में पंक्तियों और स्तंभों को हटाने के विभिन्न तरीकों को प्रदर्शित करेगा।
संपूर्ण पंक्ति या स्तंभ हटाएं
वीबीए में पूरी पंक्ति को हटाने के लिए कोड की इस पंक्ति का उपयोग करें:
1 | पंक्तियाँ(1).हटाएँ |
ध्यान दें कि हम उपयोग करते हैं हटाएं एक पंक्ति को हटाने की विधि।
संदर्भित करने के बजाय पंक्तियाँ वस्तु, आप उनके आधार पर पंक्तियों का संदर्भ दे सकते हैं रेंज ऑब्जेक्ट साथ पूरी पंक्ति:
1 | रेंज ("ए 1")। EntireRow.Delete |
इसी तरह एक पूरे कॉलम को हटाने के लिए, कोड की इन पंक्तियों का उपयोग करें:
1 | कॉलम (1)। हटाएं |
1 | रेंज ("a1")। EntireColumn.Delete |
एकाधिक पंक्तियों या स्तंभों को हटाएं
एक ही तर्क का उपयोग करके, आप एक साथ कई पंक्तियों को भी हटा सकते हैं:
1 | पंक्तियाँ ("1:3")। हटाएँ |
या कॉलम:
1 | कॉलम ("ए: सी")। हटाएं |
यहां ध्यान दें कि हम उद्धरणों से घिरे विशिष्ट पंक्ति और स्तंभ संख्याओं / अक्षरों का संदर्भ देते हैं।
बेशक, आप किसी श्रेणी के EntireRow को भी संदर्भित कर सकते हैं:
1 | रेंज("a1:a10").EntireRow.Delete |
नोट: नीचे दिए गए उदाहरण केवल पंक्तियों को हटाने का प्रदर्शन करते हैं, हालांकि जैसा कि आप ऊपर देख सकते हैं, सिंटैक्स लगभग समान रूप से कॉलम को हटाने के लिए है।
खाली / खाली पंक्तियों को हटाएं
यदि पूरी पंक्ति खाली है तो यह उदाहरण एक पंक्ति को हटा देगा:
1234567891011 | उप DeleteRows_EntireRowBlank ()रेंज के रूप में मंद सेलरेंज में प्रत्येक सेल के लिए ("बी 2: बी 20")यदि एप्लिकेशन। वर्कशीट फंक्शन। काउंटए (सेल। एंटायररो) = 0 तोसेल। पूरी पंक्ति। हटाएंअगर अंतअगली सेलअंत उप |
यह एक्सेल वर्कशीट फ़ंक्शन का उपयोग करता है: COUNTA।
अगर सेल खाली है तो रो डिलीट करें
यह एक पंक्ति को हटा देगा यदि उस पंक्ति में विशिष्ट कॉलम खाली है (इस मामले में कॉलम बी):
1 | रेंज ("बी 3: बी 20")। विशेष सेल (xlCellTypeBlanks)। EntireRow.Delete |
सेल वैल्यू के आधार पर रो डिलीट करें
यह एक सीमा के माध्यम से लूप करेगा, और पंक्तियों को हटा देगा यदि उस पंक्ति में एक निश्चित सेल मान "हटाएं" कहता है।
1234567891011 | उप DeleteRowswithSpecificValue()रेंज के रूप में मंद सेलरेंज में प्रत्येक सेल के लिए ("बी 2: बी 20")अगर सेल। वैल्यू = "डिलीट" तोसेल। पूरी पंक्ति। हटाएंअगर अंतअगली सेलअंत उप |
अधिक पंक्ति और स्तंभ उदाहरण हटाएं
डुप्लिकेट पंक्तियां हटाएं
यह कोड एक श्रेणी में सभी डुप्लिकेट पंक्तियों को हटा देगा:
1 | रेंज ("बी 2: सी 100")। डुप्लिकेट कॉलम हटाएं: = 2 |
ध्यान दें कि हम कॉलम सेट करते हैं: = २। यह वीबीए को डेटा के पहले दो कॉलम दोनों की जांच करने के लिए कहता है जब यह विचार करता है कि पंक्तियां डुप्लिकेट हैं या नहीं। डुप्लिकेट केवल तभी मिलता है जब दोनों कॉलम में डुप्लिकेट मान हों।
यदि हमने इसे 1 पर सेट किया होता, तो डुप्लिकेट मानों के लिए केवल पहली पंक्ति की जाँच की जाती।
तालिका पंक्तियों को हटाएं
यह कोड ListObjects को संदर्भित करके तालिका में दूसरी पंक्ति को हटा देगा।
1 | ThisWorkbook.Sheets("Sheet1").ListObjects("list1").ListRows(2).Delete |
फ़िल्टर की गई पंक्तियों को हटाएं
केवल उन पंक्तियों को हटाने के लिए जो फ़िल्टर करने के बाद दिखाई देती हैं:
1 | रेंज ("बी 3: बी 20")। विशेष सेल (xlCellTypeVisible)। EntireRow.Delete |
रेंज में पंक्तियां हटाएं
यह कोड श्रेणी की सभी पंक्तियों को हटा देगा:
1 | रेंज("a1:a10").EntireRow.Delete |
चयनित पंक्तियों को हटाएं
यह कोड सभी चयनित पंक्तियों को हटा देगा:
1 | चयन। पूरी पंक्ति। हटाएं |
अंतिम पंक्ति हटाएं
यह कॉलम बी में अंतिम उपयोग की गई पंक्ति को हटा देगा:
1 | सेल (पंक्तियाँ। गणना, 2)। अंत (xlUp)। EntireRow.Delete |
2 से 1 को बदलकर, आप कॉलम A, आदि में पिछली बार उपयोग की गई पंक्ति को हटा सकते हैं:
1 | सेल (पंक्तियाँ। गणना, 1)। समाप्त (xlUp)। EntireRow.Delete |
संख्या के आधार पर कॉलम हटाएं
किसी कॉलम को उसकी संख्या के आधार पर हटाने के लिए, इस तरह के कोड का उपयोग करें:
1 | कॉलम (2)। हटाएं |