Excel将列转换为行

Question

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

A B C D 
1 
2 
. 
. 
20000 

ABCD数据列，只有具有可贵1至20000 我想平分4个值ABCD（1234），ABCD（5678） 我如何在Excel做？

Answer 1

你可以用下面的公式：

=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 

Answer 2

是否这样？

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 

可生产（前/后）：