vb 将一维数组的值 按固定位数赋值给二维数组，如何实现？

Question

一维数组a，字节型，元素总数是800的倍数，总元素近百万个，按800个元素一组全部赋值给二维数组b 请问如何做到 相当于b（1，i）=a（i），b（2，i）=a（800+ i）,b（3，i）=a（1600+ i）...如此类推，我写过两个代码，代码一修改800为32可以执行，感觉是不是数组太大了，
代码1
For j = 1 To wjgs 'wjgs，800字节一组，wjgs为总组数
For i = 1 To 800
jilu(j, i) = file_bodyH((j - 1) * 800 + i - 1)
Next i
Next j
代码2

For j = 1 To wjgs 'wjgs，800字节一组，wjgs为总组数
sh = j \ 800
ys = j Mod 800
jilu(sh, ys) = file_bodyH(sh * 800 + ys)
Next j

Answer 1

Dim n As Long
Dim m As Long
Dim i As Long
Dim j As Long
Dim k As Long

n = UBound(a, 1)
m = Int(n / 800) + 1
ReDim b(m, 800)

For i = 1 To n
j = Int(i / 800.00009) + 1
k = i - 800 * (j - 1)
b(j, k) = a(i)
Next追问

好像实现不了，感觉是不是数组太大了，