Excelmacros，复制和粘贴基于另一个单元格值的单元格值？

嗨，我会尽力解释清楚我需要做什么，这里是：

我有一个Excel电子表格1，邮编在列A和数字在列B 。 我需要创build一个macros/公式，以便它会看到数字（即3），并复制并粘贴邮政编码的次数到彼此之下的工作表2列a。 我需要为下一行做这个，直到它变成空白。

表1

 AB DE43PP 3 DE43PQ 8 

工作表2

 AB 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