Excel宏，要基于另一个单元格值复制和粘贴单元格值？

Question

嗨，我将尽力清楚地说明我需要做的事情，这是：

我有一个Excel电子表格1，在A列中有邮政编码，在B列中A一个数字。 我需要创建一个宏/公式，以便它将看到数字（即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