title: Can we put dictionary items(array) into a Range with a single statement?
body: <p>Suppose i do have an array A1(6)=(45,25,,36,88),A2(6)=(14,25,11),A3(6)=(11,21,20,25,48).Now can we put those array values with the help of a single statement like single array assignment to a row,as here all the rows to a range of an Excel, Say here "C1:R3" range.</p>
  
  <pre><code>Dim R
  R = Split(Join(A1, ",") &amp; "," &amp; Join(A2, ",") &amp; "," &amp; Join(A3, ","), ",")
  Range("C5:T5").Value = R
  </code></pre>
  
  <p>Now can we do dictionary Items(which is an array) combine into a 1D array and assign back to a Range?</p>
  
  <pre><code>For Each ChilID In ChildIDs
  
      Redim ChildDetailArray(ArrIndex)
      ChildMatchNum=objExcel1.Application.WorksheetFunction.Match(ChilID, ob3.Columns(1), 0)
      ChildDetailArray=ob1.Range(ob1.Cells(ChildMatchNum,1),ob1.Cells(ChildMatchNum,ArrIndex+1)).Value
      ChildDic.Add ChilID,ChildDetailArray '(ChildDetailArray is an array)
  
  Next
  </code></pre>
  
  <p><strong>EDIT1</strong></p>
  
  <pre><code>      suppose a process#20 has 2 child processes say #12,#13. now i used a dictionary object Dic
  
          Dic(12)=Arr(10,11,,,18) 'child details
          Dic(13)=Arr(5,8,9,,,) ' child details
  
      ***Output:***  `1D array say ArrMerger()=(10,11,,,18,5,8,9,,,)`
  </code></pre>
  
  <p>The above <code>For Loop</code> is doing the same.now when the <code>Loop</code> will be finished,i want those child details which are the item of Dic(12) and Dic(13) needs to be collected in an 1D array</p>
  
  <p><strong><em>UPDATE</em></strong></p>
  
  <pre><code>      strJoin = ","
  For ChildKey In ChildDic.Keys
  
      strJoin=Join(ChildDic(ChildKey),",") &amp; strJoin
  
  Next
  </code></pre>
  
  <p>Thanks</p>