Excel Генерация текста на основе смежного значения

Question

мне было интересно, если это было возможно генерировать текст на основе смежного значения, как этот стол:

Column A Column B(Count) 
    Text 1  3 
    Text 2  5 

Конечный результат должен быть, когда скрипт работает:

Column A 
    Text 1 
    Text 1 
    Text 1 
    Text 2 
    Text 2 
    Text 2 
    Text 2 
    Text 2 

Был поиск в Google для этого, и я не могу найти результат, который я искал. Я предполагаю, что VBA Macros сделает трюк? Для петель я бы предпочел. Подумайте об этом, обратив вспять процесс сводной таблицы, чтобы найти уникальные значения.

Answer 1

с данными в столбцах и B, этот маленький макрос:

Sub Repetition() 
    Dim N As Long, i As Long, K As Long 
    N = Cells(Rows.Count, "A").End(xlUp).Row 
    K = 1 

    For i = 1 To N 
     For j = 1 To Cells(i, 2).Value 
     Cells(K, 3).Value = Cells(i, 1).Value 
     K = K + 1 
     Next j 
    Next i 
End Sub 

будет производить:

Answer 2

Для этого вам не нужен VBA. Вы можете просто поместить формулу в соседнюю ячейку:

=(A1 & " " & B1) 

Если вы действительно не хотите использовать VBA. В этом случае этот ответ не применяется.