是否有任何公式可以用来复制一个特定的单元格指定的次数？

我正在处理一个数据，目前我有一个下面的公司名称列表。 例如。

1. A 2. B 3. C 

还有很多…
所需的结果是

  1. A 2. A 3. A 4. A 5. A 6. B 7. B 8. B 9. B 10. B 11. C 12. C 13. C 14. C 15. C 

等等…
数据太大，无法手动完成此任务。因此，如果有人可以提出一个可以简化工作的公式，

Answer 1

在列A中的数据中，在B1中input：

 =INDEX(A:A,ROUNDUP(ROWS($1:1)/5,0)) 

并抄下来：

要得到六个重复，只需要使用6代替5

Answer 2

将数据复制到一个变体数组，并从它所需的大小build立一个新的数据

 Sub Demo() Dim r As Range, v1 As Variant, v2 As Variant Dim i As Long, j As Long, n As Long n = 5 ' number of entries With ActiveSheet ' Get existing data into array Set r = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)) v1 = r.Value ' Create new array of required size ReDim v2(1 To UBound(v1, 1) * n, 1 To 1) ' copy and replicate original data into new array For i = 1 To UBound(v1, 1) For j = 1 To n v2((i - 1) * n + j, 1) = v1(i, 1) Next j, i ' Place new data onto sheet Set r = r.Resize(r.Rows.Count * n, 1) r.Value = v2 End With End Sub