कॉलम की स्पष्ट सामग्री

Question

मैं सेल ए 3 से सेल __ तक कॉलम की सामग्री को कैसे साफ़ करूं, जहां __ कॉलम में अंतिम प्रविष्टि का प्रतिनिधित्व करता है (माना जाता है कि प्रविष्टियों के बीच कोई रिक्त स्थान नहीं है)।

सहायता के लिए धन्यवाद।

Answer 1

range("A3", columns("A").SpecialCells(xlCellTypeLastCell)).Delete 

कॉलम में किसी भी रिक्त स्थान के बावजूद कॉलम ए में अंतिम सेल के माध्यम से ए 3 को हटा देगा।

range("A3", range("A3").End(xlDown)).Delete 

स्तंभ ए में ए 3 के बाद पहली खाली सेल करने के लिए नीचे ए 3 से नष्ट करेगा कि

Answer 2

Range("A3", Range("A3").End(xlDown)).Clear 

.Delete वास्तव में किसी भी कोशिकाओं है कि इस सूची के बाद प्रकट हो सकता है अप स्थानांतरण, कोशिकाओं को नष्ट करेगा का उपयोग करना (एक खाली सेल से अलग)। यदि आप केवल सामग्री को साफ़ करना चाहते हैं, तो क्लीयर जाने का एक अच्छा तरीका है।

Answer 3

मैं एक vbNullString का उपयोग करता हूं, क्योंकि यह थोड़ा तेज़ है और बड़ी मात्रा में डेटा वर्कशीट पर प्रभावी ढंग से काम करता है।

पेस्ट ए 3 से पहले खाली सेल करने के लिए स्तंभ एक में 'कुछ भी नहीं':

Range(Cells(1,3), Cells(Range("A3").End(xlDown).Row,1)).Value = vbNullString 

पेस्ट स्तंभ एक में अंतिम सेल पर ए 3 से 'कुछ भी नहीं':

Range(Cells(1,3), Cells(Range("A3").SpecialCells(xlTypeLastCell),1)).Value = vbNullString 

Answer 4

मैं पड़ा है इसके साथ अच्छे परिणाम:

Set tbl = ActiveSheet.ListObjects("Table_Name") 
Count = tbl.DataBodyRange.Rows.Count 

Range("AC2:AC" + CStr(Count)).Select 
Selection.ClearContents