2012-07-16 13 views
13

कहें कि मेरे पास संख्याओं का स्तंभ है (उनमें से कितने भिन्न हो सकते हैं, लेकिन 1000-10000 के बीच कहीं भी हो सकते हैं) और मैं उन सभी को एक में पढ़ना चाहता हूं वीबीए में सरणी, ऐसा करने का सबसे तेज़ तरीका क्या है?सरणी में संख्याओं के कॉलम को पढ़ने का सबसे तेज़ तरीका

स्पष्ट रूप से मैं 10000 आकार का सरणी बना सकता हूं और एक/जबकि-लूप कर सकता हूं लेकिन क्या ऐसा कोई तरीका है जो इससे तेज है?

उत्तर

15

इस तरह?

Dim Ar as Variant 

Ar = Sheets("Sheet").Range("A1:A10000").Value 

आप अंतिम पंक्ति को नहीं जानते हैं तो आप this का उपयोग कर अंतिम पंक्ति पा सकते हैं और उसके बाद के रूप में

Ar = Sheets("Sheet").Range("A1:A" & LRow).Value 
+0

ऊपर कोड का उपयोग इस मामले में अर एक सीमा वस्तु नहीं है, लेकिन में एक सरणी है वीबीए .... – AZhu

+6

यह एक सरणी है। –

+0

शीट्स ("शीट")। रेंज ("ए 1: ए 10000")। मूल्य – AZhu

संबंधित मुद्दे