Using Excel to create labels

[Gizmo1972]

Hi
I have a packing list on an excel sheet with 2 columns.

Column A contains a PartNumber, Column B contains a Quantity Number.

So, e.g. column A "Widget", Column B "5"

Meaning we received a quantity 5 of "widget"

I want to print a separate label for each widget, any suggestions on how to do this ?

I'm thinking of mailmerge so i would need to duplicate the entry in column A by the value in column b, less 1, and add it to the bottom of the list

So the original list would be

column A "Widget", Column B "5"

Only column A in the new list would be used and would look like this (each in a new row)

Widget
Widget
Widget
Widget
Widget

A packing list is usually around 100 rows and the quantity of each row could be 1 to 100.

Looking for any suggestion that will reduce the time it takes to do it manually

Thanks

 

[My Aswer Is This]

Assuming you want the results in Column (C)
And we start on Row(2)

Try this:

Sub Packing_List()
'Modified  4/17/2019  7:53:38 PM  EDT
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Dim Lastrowb As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Lastrowc = Cells(Rows.Count, "C").End(xlUp).Row + 1
    For i = 2 To Lastrow
        Cells(i, 1).Copy Cells(Lastrowc, 3).Resize(Cells(i, 2))
        Lastrowc = Cells(Rows.Count, "C").End(xlUp).Row + 1
    Next
Application.ScreenUpdating = True
End Sub

 

[DanteAmor]

The result will be at the end of your list

Sub test()
    For Each c In Range("A2", Range("A" & Rows.Count).End(xlUp))
        Range("A" & Rows.Count).End(xlUp)(2).Resize(c.Offset(, 1)).Value = c.Value
    Next
End Sub

 

[Gizmo1972]

Thank you both for the suggestions. I will try these and post again if i have difficulties.

Thanks again!

 

[DanteAmor]

Of course, let me know any questions.

I'm glad to help you. Thanks for the feedback.