excel - Jagged Arrays in Data | Text To Columns -

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

इस कोड का उदाहरण लेते हैं जो काम करता है ।

  उप नमूना () डिज़ाइन वर्कशीट सेट के रूप में ws = ThisWorkbook.Sheets ("Sheet1") ws.Column (1) .extToColumns _ गंतव्य: = रेंज ("ए 1"), _ डेटाटाइप: = xlFixedWidth, _FileInfo: = सरणी (_ अर्रे (0, 1), अर्रे (60, 1), अर्रे (120, 1), अर्रे (180, 1), _ अर्रे (240, 1), अर्रे ( 300, 1), अर्रे (360, 1), अर्रे (420, 1) _), _ ट्रेलिंग मिनस नंबर्स: = ट्रू एण्ड उप  

मुझे क्या चाहिए < / P>

डेटा के एक छोटे से सेट में, उपरोक्त कोड काम करता है। लेकिन अगर मैं कहने के लिए ऊपर जाना चाहता हूँ Array (2700,1) ? इसका मतलब है कि मुझे इसे 46 बार अररे (0, 1), अर्रे (60, 1) ... अर्रे (1080, 1) .... अर्रे (2700, 1)

मैंने जो कोशिश की है

मैंने इस दृष्टिकोण का उपयोग करने की कोशिश की

  उप नमूना () मंद रूप में वर्कशीट मंद MyArray मंद MyStr के रूप में स्ट्रिंग मंद मैं के लिए लंबे समय के लिए = 0 2700 के लिए कदम 60 MyStr = MyStr & amp; "#" & Amp; "ऐरे (" & amp; i & amp; ", 1)" अगला मैं माइस्ट्र = मिड (माइस्ट्र, 2) मायअरे = स्प्लिट (माइस्ट्र, "#") सेट ws = thisWorkbook.Sheets ("Sheet1") ws.Column (1 ) .extToColumns _ गंतव्य: = रेंज ("ए 1"), _ डेटाटाइप: = xlFixedWidth, _ फील्डइनफ़ो: = माइआरे, _ ट्रेलिंग मिनस संख्या: = सच अंत उप   
 जाहिर है कि यह काम नहीं करेगा  सरणी (i, 1)  को  MyArray  में एक स्ट्रिंग के रूप में संग्रहीत किया जाता है। 
 
  मेरा प्रश्न  
 < P> क्या किसी भी तरह से हम इस तरह के दांतेदार सरणियों को एक पाश में बना सकते हैं, जिससे कि मुझे क्या करना होगा  FieldInfo: = MyArray  
 

आप एक सरणी को ऐसे आइटम को असाइन कर सकते हैं जैसे:

  मंद एन के रूप में लंबे एन = 0 रीडिम मायअरे (2700 \ 60) i = 0 से 2700 के लिए चरण 60 माइएरे (एन) = सरणी (i, 1) n = n + 1 अगला मैं