वीबीए में कुछ मानदंडों को पूरा करने वाली पंक्तियां हटाएं

निम्नलिखित सबरूटीन प्रत्येक पंक्ति को उस श्रेणी में हटा देगा जहां कॉलम ए में मान निर्धारित पाठ के साथ शुरू होता है:

12345678910111213

उप Delete_Rows(Data_range रेंज के रूप में, टेक्स्ट स्ट्रिंग के रूप में)मंद Row_Counter पूर्णांक के रूप मेंRow_Counter के लिए = Data_range.Rows.Count to 1 Step -1अगर Data_range कुछ भी नहीं है तोउप से बाहर निकलेंअगर अंतयदि UCase(Left(Data_range.Cells(Row_Counter, 1).Value, Len(Text))) = UCase(Text) तबData_range.Cells(Row_Counter, 1).EntireRow.Deleteअगर अंतअगली पंक्ति_काउंटरअंत उप

उदाहरण के लिए Delete_Rows(Sheets("Sheet1").Range("A1:E23",,"Dog") श्रेणी A1:E23 में सभी पंक्तियों को हटा देगा जहां कॉलम A में मान "डॉग" शब्द से शुरू होता है। यूकेस के उपयोग का मतलब है कि सूत्र केस इनसेंसिटिव हैं यानी किसी भी डीओजी, डॉग, डीओजी या डॉग से शुरू होने वाले सेल सभी हटा दिए जाएंगे।

इस:
हो जाएगा: