趣味プログラミングblog

---

アルゴリズムは、ubound関数の引数を１次元ずつ増やしていって
エラーになる前がその変数の次元。

だっさいやり方だけど、ネットで調べる限りこれしかなさそう。。。

前の記事で配列のサイズが大きすぎてメモリ不足になったので
配列を１次元ずつ貼り付けるために判定で必要になった次第。

以下、ソース。

---

Function getDimention(Arr)
On Error GoTo ANS
Dim i As Long, tmpSize As Long
For i = 1 To 5
tmpSize = UBound(Arr, i)
Next i
ANS:
getDimention = i - 1
End Function

Function Array2dTo1d(Arr, col As Long)
If getDimention(Arr) <> 2 Then Stop '２次元じゃないし
Dim rowMax As Long: rowMax = UBound(Arr)

If rowMax < col Then Stop 'そこにはないし

Dim oArr(): ReDim oArr(rowMax, 0)
Dim i As Long
For i = 0 To rowMax
oArr(i, 0) = Arr(i, col)
Next i
Array2dTo1d = oArr
End Function