EXCEL 里怎么把每个数据复制6次？

Question

举例说我有一列数据，为
1
2
3
4
我想把他变成
1
1
1
1
1
1
2
2
2
2
2
2
3
3
3
3
3
3
4
4
4
4
4
4
能有办法在EXCEL里解决吗？

Answer 1

如果原数据在A列,请在后面空白列第一行输入公式:
=INDEX(A:A,CEILING(ROW()/6,1))
将公式向下复制。

Answer 2

编一个宏,运行一遍就行
Sub abc()
a = Range("A1").End(xlDown).Row
For i = 1 To a * 6 Step 6
Rows(i + 1 & ":" & i + 5).Select
Selection.Insert Shift:=xlDown
Rows(i & ":" & i + 5).Select
Selection.FillDown
Next
End Sub

Answer 3

我只能用复制列,然后插入复制列即可

Answer 4

空列的第一行=INDEX($A:$A,ROUNDUP((ROW())/6,0))
下拉填充本回答被提问者采纳