セル内の数量に基づいて別々のタブに新しい行を作成するマクロ

Question

Excelのタブ（データタブ）を使用して、列 'A'で注文​​する必要のある商品のリストとそれぞれの数量を貼り付けることができます列 'B'の製品。

私は、各行の列 'B'の数量を見て、新しいタブ（アップロードタブ）にその多くのレコードを作成するマクロを作成しようとしています。

ie。

データタブ

望ましい結果

Answer 1

のActiveXボタンを作成し、その上でこのコードを置きます。アップロードシートが存在しない場合は作成され、そうでない場合はコードを実行する前にすべてがクリアされます。

Private Sub CommandButton1_Click() 
    Dim lastrow As Long 
    Dim lastrow2 As Long 
    Dim row As Long 
    Dim product As String 
    Dim count As Long 
    Dim repeat As Long 
    Dim ws As Worksheet 
    If Evaluate("ISREF('" & "Upload" & "'!A1)") = False Then 
    With ThisWorkbook 
     Set ws = .Sheets.Add(After:=.Sheets(.Sheets.count)) 
     ws.Name = "Upload" 
    End With 
    Else 
     Sheets("Upload").UsedRange.ClearContents 
    End If 
    Set ws = Sheets("Upload") 
    ws.Cells(1, 1) = "Product" 
    lastrow = Cells(Rows.count, "A").End(xlUp).row 
    lastrow2 = ws.Cells(Rows.count, "A").End(xlUp).row 
    For row = 2 To lastrow 
     product = Cells(row, 1) 
     count = Cells(row, 2) 
      For repeat = 1 To count 
       lastrow2 = lastrow2 + 1 
       ws.Cells(lastrow2, 1) = product 
      Next repeat 
    Next row 

End Sub