的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宏將會訣竅？對於循環將是我的猜測。把它看作是反轉數據透視表的過程以找到唯一值。

Answer 1

隨着列一個和乙數據，這個小宏：

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。在這種情況下，這個答案不適用。