Excel宏，複製並粘貼基於另一個單元格值的單元格值？

Question

您好我試圖解釋清楚我需要能夠做到，這裏有雲：

我有一個Excel試算表1中郵政編碼列A和B列中的數字。我需要創建一個宏/公式，以便它可以看到數字（即3），並將該次數的郵編複製並粘貼到彼此之下的工作表2列a中。我需要爲下一行做這個，直到它變成空白。

表1

A  B 
DE43PP 3 
DE43PQ 8 

表2

A  B 
DE43PP 
DE43PP 
DE43PP 
DE43PQ 
... 

由於

Answer 1

嘗試這種情況：

Sub copyPostcodes() 
    Dim c As Range 
    Dim x As Long 
    Dim y As Long 

    y = 0 

    For Each c In Sheets("Sheet1").Range("A:A").Cells 
     If Len(c) > 0 Then 
      For x = 1 To c.Offset(0, 1) 
       Sheets("Sheet2").Range("A1").Offset(y, 0) = c 
       y = y + 1 
      Next x 
     End If 
    Next c 
End Sub