दिलचस्प पोस्ट
Google-Play-Service लायब्रेरी को इस संदर्भ एंड्रॉइड के पास एक लाल X दिखा रहा है <Ul> तत्वों में <li> खड़ी संरेखित कैसे करें? -सीपी स्विच का उपयोग किए बिना मैं Groovy में डेटाबेस जार कैसे लोड कर सकता हूँ? अंडरस्कोर या अंडरस्कोर करने के लिए नहीं, यह सवाल है सी ++ मानक जनादेश iostreams के लिए खराब प्रदर्शन करता है, या क्या मैं सिर्फ एक खराब कार्यान्वयन से निपट रहा हूं? JSON के लिए कोई क्वेरी भाषा है? वसंत एमवीसी: सत्यापन कैसे करें? java.io.StreamCorruptedException: अमान्य स्ट्रीम शीर्षलेख: 7371007 ई कई निष्पादनयोग्य के साथ सीएमके शेयर लाइब्रेरी जावा डबल लॉकिंग की जांच कोणीय में पासवर्ड-जांच निर्देश जावा में एक यूआरएल से XML प्रतिक्रिया कैसे पढ़ें? फ्रैगमेंट में क्रिएटिव्यू और ऑनव्यू के बीच अंतर अनचाहे त्रुटि: SECURITY_ERR: DOM अपवाद 18 जब मैं एक कुकी सेट करने का प्रयास करता हूं क्या एक एक्सेल VBA प्रोजेक्ट पर पासवर्ड को ठीक करने का कोई तरीका है?

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

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

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

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

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

Solutions Collecting From Web of "सीमा से 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 

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

परिणाम