Excel函数根据单元格值重复一定数量的单元格

Question

我正在寻找一种方法来在移动到下一组单元格之前水平重复一定数量的单元格。例如：

如果我有这3列：

5 4 3 
0 1 2 

，我有3列，其决定多少次，我想要的值迭代：

4 2 3 

这个功能应该给我这个时候拖过一个范围：

5 5 5 5 4 4 3 3 3 
0 0 0 0 1 1 2 2 2 

有没有人知道最好的方式来做到这一点？

我一直在使用一些令人费解的推理来解决这个数组公式（在它周围有{{}括号，并且你必须使用Shift + Enter）。我正在使用SUMIF和COUNTIF函数来做一些事情，但它从未真正解决。

Answer 1

这是一个拙劣的VBA解决方案。这假设“重复计数”位于第一行（4,2,3），“重复值”位于第二行（5,4,3,0,1,2）。

Sub outputRepeatedValues() 
    Dim xStart As Integer, yStart As Integer 
    Dim i As Integer, j As Integer 
    Dim valueToRepeat As Integer, numTimesRepeat As Integer 
    Dim xOffset As Integer, yOffset As Integer 

    xStart = ActiveCell.Column 
    yStart = ActiveCell.Row 

    i = 1 
    j = 1 
    xOffset = 0 
    yOffset = 0 

    While Cells(2, j) <> "" 
     If Cells(1, i) = "" Then 
      i = 1 
      yOffset = yOffset + 1 
      xOffset = 0 
     End If 

     numTimesRepeat = Cells(1, i) 
     valueToRepeat = Cells(2, j) 

     For k = 1 To numTimesRepeat 
      Cells(yStart + yOffset, xStart + xOffset) = valueToRepeat 
      xOffset = xOffset + 1 
     Next k 

     j = j + 1 
     i = i + 1 
    Wend 

End Sub 

把它放在一个新模块中。要使用此代码，请选择代表输出区域左上角的单元格。然后按Alt + F8调出宏框，然后可以运行宏。