Excel将列转换为行

Question

我想将列数据转换为excel中的4行。 我有这样的数据

A  B  C  D
1
2
.
.
20000

ABCD是列，只有A的值为1到20000。 我想平均划分4个值ABCD（1234），ABCD（5678） 我怎么能在excel做什么？

Answer 1

喜欢这个吗？

Sub divideby4()
Dim i As Integer

For i = 1 To 5
    Range("D" & i).Value = Range("A" & i).Value / 4
    Range("C" & i).Value = Range("A" & i).Value / 4
    Range("B" & i).Value = Range("A" & i).Value / 4
    Range("A" & i).Value = Range("A" & i).Value / 4
Next i
End Sub

之前和之后：

可替换地：

Sub equallydivideby4()
Dim i As Integer, j As Integer

j = 1
For i = 1 To 10
    Range("D" & i).Value = Range("A" & j + 3).Value
    Range("C" & i).Value = Range("A" & j + 2).Value
    Range("B" & i).Value = Range("A" & j + 1).Value
    Range("A" & i).Value = Range("A" & j).Value
    j = j + 4
Next i
End Sub

生产（之前/之后）：

Answer 2

您可以使用以下公式：

=IFERROR(INDEX($A:$A,ROW(A1)*4-4+COLUMN(A1)),"")

将它拖到同一行3次，然后按

1   2   3   4 Drag in the same row 3 columns
5   6   7   8   and down in each column 
9   10  11  12
13  14  15  16
17  18  19  20
21  22  23  24
25  26  27  28
29  30  31  32
33  34  35  36