Как указать значения из столбца количество раз, записанных в следующем столбце?

Question

У меня в столбце B есть несколько имен, а в колонке C - некоторые цифры.

Я хочу, чтобы в колонке D, чтобы B напечатанный C раз:

B : John | Bob | Steeve 
C : 4 | 0 | 2 
D : John | John | John | John | Steeve | Steeve 

настоящее время я использую в колонке B следующей формуле для отображения элементов списка А, который имеет пробелы.

=IFERROR(INDEX($A$2:$A$200,SMALL(IF(LEN($A$2:$A$200)>0,ROW($A$2:$A$200)-ROW($A$200)),ROW(2:2)),1),"") 

Answer 1

Попробуйте эту макрокоманду, чтобы заполнить колонку D:

Sub FillD() 
    Dim colB As Range, b As Range, d As Range, c As Integer 
    With Worksheets("Sheet1") ' <-- your sheet's name here 
     Set colB = .Range("B2:B" & .Cells(.Rows.Count, "B").End(xlUp).Row) 
     Set d = .Range("D2") 
    End With 

    For Each b In colB 
     c = b.Offset(, 1).Value 
     If c > 0 Then 
      d.Resize(c, 1).Value = b.Value 
      Set d = d.Offset(c) 
     End If 
    Next 
End Sub