कोशिकाओं के माध्यम से लूपिंग के बिना पूरी रेंज को लोअरकेस में कनवर्ट करें अप्रत्यक्ष

Question

मैं वीबीए कोड देख रहा हूं जो कोशिकाओं की पूरी श्रृंखला लेता है और उन्हें लोअरकेस में परिवर्तित करता है।

[A1:A20] = [index(lower(A1:A20),)] 

यह एक निश्चित सीमा (पूरी तरह से वाक्य रचना समझ में नहीं आता के लिए ठीक काम करता है, लेकिन निम्नलिखित पोस्ट :)

Post detailing code above

मेरे समस्या पाया यह है::

मैं निम्नलिखित पाया

मैं श्रेणी को गतिशील रूप से सेट करने में सक्षम होना चाहता हूं क्योंकि मैं बदलती रेंज आकारों से निपट रहा हूं। हालांकि, निम्नलिखित काम नहीं करते हैं, और मैं वीबीए में अप्रत्यक्ष() का उपयोग करने में सक्षम नहीं प्रतीत होता।

Range("A1:A" & n) = [index(lower(Range("A1:A" & n)),)] 

क्या यह काम करने का कोई तरीका है? मैं वास्तव में पाश के लिए एक का उपयोग कर से बचने के लिए के रूप में मुझे लगता है कि यह एक बहुत तेजी से होना चाहिए चाहते हैं ..

Answer 1

इस प्रयास करें:

Range("A1:A" & n) = Application.Evaluate("index(lower(A1:A" & n & "),)") 

Answer 2

वर्कशीट के सेल के माध्यम से लूपिंग इस धीमी हो जाएगी। सभी सेल डेटा को पकड़ें, इसे स्मृति में संसाधित करें और फिर परिणाम को वर्कशीट पर वापस डंप करें।

Sub makeLower() 
    Dim v As Long, vLWRs As Variant 

    With Worksheets("Sheet1") 
     With .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp)) 
      vLWRs = .Value2 
      For v = LBound(vLWRs, 1) To UBound(vLWRs, 1) 
       vLWRs(v, 1) = LCase(vLWRs(v, 1)) 
      Next v 
      .Cells = vLWRs 
     End With 
    End With 
End Sub 

0.3 सेकंड में 50 के सेल पर परीक्षण किया गया, 6 एम 8 सेकंड में 1 एम कोशिकाएं।