Visual Basic - स्प्रेडशीट में पंक्तियों को हटाना

मुद्दा

मेरे पास शीट 2 में 900, 000 पंक्तियों तक और कॉलम क्यू (मान स्तंभ) तक है। मुझे यकीन नहीं है कि एक वीबी कैसे लिखा जाए जो कॉलम क्यू में दिखेगा और अगर यह इन मूल्यों से मेल नहीं खाता है 1.0E + 17, 1.0E + 30, 1.5E + 30 तो हटाएं पंक्तियाँ?

मेरे पास यह VB है जो सटीक मानों को देखेगा और उन पंक्तियों को हटा देगा। लेकिन मुझे रिवर्स की आवश्यकता है जो उन मानों के साथ पंक्तियों को नहीं हटाते हैं लेकिन अन्य सभी पंक्तियों को हटाते हैं।

 सब टेस्ट () डिम आरंग एज़ रेंज, सेल अस रेंज, डेल अस रेंज leting फॉर डिलीटिंग जीरो’एस एंड १ ई +२२ सेट आरएनजीएन = इंटर्सेक्ट (रेंज ("क्यू: क्यू"), एक्टिवशीट।यूज्डRange) प्रत्येक सेल में आरएनजी इफ़ .Value) = "1E + 17" _ या (सेल ।Value) = "100000000000000000" _ या (सेल.वैल्यू) = "51.8" _ या (सेल.वैल्यू) = "Inf" यदि डेल कुछ भी नहीं है तो डेल सेट करें = सेल एल्स: सेट डेल = यूनियन (डेल, सेल) एंड अगर एंड पर अगर अगली सेल में त्रुटि फिर से शुरू हो जाती है तो अगला ।EireireRow.Delete एंड सब 

उपाय

निम्नलिखित बदलें:

 या (Cell.Value) = "Inf" तब यदि डेल कुछ भी नहीं है तो _ tp या (Cell.Value) = "Inf" तब और यदि डेल कुछ भी नहीं है तो 

इस टिप के लिए rizvisa1 का धन्यवाद।

पिछला लेख अगला लेख

शीर्ष युक्तियाँ