用EXCEL 把1行100个数据转换成10行10列的方法？

假设百数据在度A列,
B1单元格输入知公式道,向右填充,再向下版填充
=index($a:$a,(row()-1)*10+column(a1))

或权
=offset($a$1,(row()-1)*10+column(a1)-1,)

如上图所示：百原始数据在第一度行：A1~CV1在转换后知的第一个单元格输入公式：道=INDEX($A$1:$CV$1,1,COLUMN(A1)+10*(ROW(A1)-1))向左拖版至10列，权然后向下拖10行，即可
在A1中输入1，在A2中输入2，同时选中A1：A2，当右下角出现十字形拖曳手柄时，向下复制到100行。

Sub kk()
Dim i, j As Integer
For i = 1 To 10
For j = 1 To 10
Cells(i, j) = 101 - 10 * (i - 1) - j
Next
Next
End Sub