excel - 将列中的值返回到不同的选项卡

Question

我在一张工作表上列出了一份产品清单，但并非每种产品都有价值。在单独的工作表中，我希望它只提取具有价值的产品。我已经能够输出披萨的第一列，但披萨皮不会继续

表 1 称为价格

list       pizza  pizza-crust   pizza-thin 
pepper      1          5             8
beef        2    
bacon       3          6        
pineapple   4                        9
mushroom               7            10

我拥有的宏执行以下操作

    list     pizza  
    pepper      1   
    beef        2    
    bacon       3           
    pineapple   4

我怎样才能让它填充其余列的数据，以便它可以放入比萨饼皮，然后是每个列的数据，然后放入薄薄的比萨饼和数据

下面是宏

Sub Button2_Click()
Dim column As Integer
column = 1
newrow = 1
Do Until Worksheets("sheet1").Cells(column, 1).Value = ""

If Worksheets("sheet1").Cells(column, 2).Value <> "" Then

Worksheets("sheet2").Cells(newrow, 1).Value = Worksheets("sheet1").Cells(column, 1).Value
Worksheets("sheet2").Cells(newrow, 2).Value = Worksheets("sheet1").Cells(column, 2).Value

newrow = newrow + 1
End If
column = column + 1
Loop
End Sub

谢谢

Answer 1

选择单元格 B2 并运行我的 unpivot 加载项（可在此处获得）。之后添加额外的零列应该很容易。