रिक्त पंक्तियाँ हटाएं - VBA कोड उदाहरण

खाली पंक्तियों को हटाएं

डेटा सेट से रिक्त पंक्तियों को निकालने का स्पष्ट तरीका केवल डेटा को सॉर्ट करना है। यह रिक्त पंक्तियों को डेटा के निचले भाग में ले जाता है और उन्हें "हटा" देता है। लेकिन क्या होगा यदि आप रिक्त पंक्तियों को हटाना चाहते हैं, हालांकि आप डेटा को सॉर्ट नहीं करना चाहते हैं? वीबीए।

निम्न मैक्रो बिना किसी सॉर्टिंग के रिक्त पंक्तियों को हटा देगा (तेजी से जाने के लिए स्क्रीन अपडेट करना बंद करें)।

उप DeleteBlankRows() मंद x जब तक ActiveSheet के साथ x = .Cells.SpecialCells (xlCellTypeLastCell) के लिए। पंक्ति से 1 चरण -1 यदि वर्कशीट फ़ंक्शन। काउंटए (. पंक्तियाँ (x)) = 0 फिर ActiveSheet.Rows (x)। समाप्त करें यदि अगला अंत अंत उप के साथ है