'2階層のFor Each〜Next記述文を書ける 4*2の形で出力
For Each myRow In arr2Dt
strDe = ""
For Each myCell In myRow
strDe = strDe & myCell & " "
Next
Debug.Print strDe
Next
'「Range("dstRg32").Value = arr2Dt」と書くとエラー
'"dstRg32"を左上端とする範囲に出力
iR = Range("dstRg32").Row
iC = Range("dstRg32").Column
For Each myRow In arr2Dt
Range(Cells(iR, iC), Cells(iR, iC + 1)).Value = myRow
iR = iR + 1
Next
End Sub
'↓1行ずつ「大村 井出 増根 田中 Phoenix IDE倉庫 大富 Pine」
'の順で出力。For Each〜Next記述文では最初の次元にアクセス
'2階層のFor Each〜Next記述文で書くとエラー
For Each myCell In arr2Dt
Debug.Print myCell
Next
'配列をそのまま"dstRg32"(4*2の名前の付いた範囲)に代入 4*2の形のまま表示
Range("dstRg32").Value = arr2Dt
End Sub