सभी खाली सेल हटाएं

सभी खाली कोशिकाओं को कैसे हटाएं

सक्रिय तालिका के सभी कक्षों को हटाना चाहते हैं जो खाली हैं? यह मैक्रो के साथ कोई समस्या नहीं है। निम्न मैक्रो सक्रिय तालिका में सभी रिक्त कक्षों को हटा देता है:

उप खाली हटाएं ()

ActiveSheet.UsedRange.SpecialCells (xlCellTypeBlanks) .Select

चयन। शिफ्ट हटाएं: = xlUp

अंत उप

मैक्रो स्वचालित रूप से सक्रिय तालिका के उपयोगकर्ता क्षेत्र में सभी खाली कोशिकाओं की खोज करता है और इन कोशिकाओं को हटा देता है। इसके नीचे की कोशिकाओं को ऊपर की ओर स्थानांतरित कर दिया जाता है। तो आपको एक अत्यधिक संपीड़ित तालिका मिलती है।