दिलचस्प पोस्ट
क्लासिक एएसपी से Excel * .xls फ़ाइल कैसे आउटपुट करें NHibernate में उलटा गुण WPF सी # में पाठ के कुछ भाग के लिए रंग और फ़ॉन्ट बदलें कैसे जावा में कस्टम अपवाद बनाने के लिए? PostgreSQL के साथ एक धुरी सारणी बनाएं जब उपयोगकर्ता स्क्रीन को पिन कर देता है तो एक UIImage ऑब्जेक्ट ज़ूम इन / आउट कैसे करें? कैसे पता लगाने के लिए कि सी # विंडोज फॉर्म कोड दृश्य स्टूडियो के भीतर निष्पादित है? स्पाइडर (पायथन आईडीई) के लिए एक मॉड्यूल (विशेष रूप से पीमॉर्फ) जोड़ना मैं किसी पाठ फ़ाइल में एक उपप्रोसेस कॉल कैसे पाइप कर सकता हूं? जावा में विभिन्न प्रारूपों के साथ स्ट्रिंग को पार्स करना क्या दल्विक की मेमोरी मॉडल जावा की तरह ही है? JQuery: रिसाइज़ इवेंट को कैसे कॉल करें, केवल एक बार इसे पूर्ण होने के बाद रीसाइज किया जाए? पटरियों 3.1 संपत्ति पाइपलाइन और मैन्युअल रूप से आदेश दिया जावास्क्रिप्ट आवश्यक है zlib.error: त्रुटि 3 जबकि विघटित करना: गलत हेडर चेक सीएसएस फ्लोट में निम्न डिवी की चौड़ाई क्यों नहीं बदलती है?

सीमा से 2 आयामी सरणी

मेरे पास कक्षों में एक्सेल वर्कशीट में टेक्स्ट डेटा है B6:H14

कुछ पंक्तियों में सामग्री के साथ 2 कोशिकाएं होंगी जबकि अन्य में 4 और कुछ होंगे I। इन्हें 2 आयामी सरणी में कैसे प्रतिलिपित करूँ? मैं पहले से ही आयामों को जानता हूं, मैं डायनामिक कोड घोषित नहीं होने वाले आयामों के साथ ठीक हूं।

क्या मुझे एक पाश (जो मैं वर्तमान में उपयोग करने की योजना बना रहा हूँ) का उपयोग करने की आवश्यकता है?

या वहाँ एक आसान / अधिक सुरुचिपूर्ण तरीका है?

वेब के समाधान से एकत्रित समाधान "सीमा से 2 आयामी सरणी"

अपनी स्प्रैडशीट को मानते हुए इस तरह दिखता है

स्प्रेडशीट

2 डी सरणी में छड़ी करने का एक आसान तरीका है

 Dim arr as Variant arr = Range("B6:H14").Value 

स्प्रैडशीट पर वापस इस सरणी को प्रिंट करने का सबसे आसान तरीका

 Sub PrintVariantArr() Dim arr As Variant arr = Range("B6:H14") Range("B16").Resize(UBound(arr, 1), UBound(arr, 2)) = arr End Sub 

या फिर आप फिर से दोहराएँ / सरणी सरणी कर सकते हैं

 Sub RangeToArray() Dim arr As Variant arr = Range("B6:H14").Value Dim r As Long, c As Long r = 16 c = 2 Dim i, j For i = LBound(arr, 1) To UBound(arr, 1) For j = LBound(arr, 2) To UBound(arr, 2) Cells(r, c) = arr(i, j) c = c + 1 Next j c = 2 r = r + 1 Next i End Sub 

और आपकी सरणी स्प्रेडशीट में वापस मुद्रित हुई

परिणाम