विषय - सूची
निम्नलिखित सबरूटीन प्रत्येक पंक्ति को उस श्रेणी में हटा देगा जहां कॉलम ए में मान निर्धारित पाठ के साथ शुरू होता है:
| 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 में मान "डॉग" शब्द से शुरू होता है। यूकेस के उपयोग का मतलब है कि सूत्र केस इनसेंसिटिव हैं यानी किसी भी डीओजी, डॉग, डीओजी या डॉग से शुरू होने वाले सेल सभी हटा दिए जाएंगे।
इस:
हो जाएगा:
