Excel макрос, чтобы скопировать и вставить значение ячейки на основе другого значения ячейки?

Question

Привета я попытаюсь четко объяснить, что мне нужно, чтобы быть в состоянии сделать, здесь идет:

У меня есть электронная таблица Excel с 1 почтовыми индексами в колонке A и число в колонке B. Мне нужно создать макрос/формулу, чтобы она увидела номер (т. Е. 3), и скопируйте и вставьте почтовый индекс, количество раз в столбец 2 листа под ним. Мне нужно сделать это для следующей строки вниз и т. Д., Пока не дойдет до пустого.

Лист 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