Question

在excel中怎样把一维数组转换成二维数组(原有竖向数字转换成每行5个数的横向)，

Answer 1

数据少，直接用“复制”--“选择性粘贴”（转置）
数据多，建议使用vba

追问

就是数据太多，有8300多行，请问下VB具体语句是什么

追答

Sub 转位置()
Dim i, j, k As Integer
For i = 2 To [a65536].End(xlUp).Row
For k = 1 To [a65536].End(xlUp).Row
For j = 4 To 8
Cells(k, j) = Cells(i, 1)
i = i + 1
Next
Next
Next

End Sub

Sub 转位置()
Dim i, j, k As Integer
For i = 2 To [a65536].End(xlUp).Row
For k = 1 To [a65536].End(xlUp).Row/5
For j = 4 To 8
Cells(k, j) = Cells(i, 1)
i = i + 1
Next
Next
Next
End Sub