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

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

我怎样才能让它填写其余列的数据，这样它就可以放入披萨外壳，然后是每个数据的数据，然后将披萨稀薄和数据用于<​​/ p> 下面的

是宏

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加载项（可用here）。之后应该很容易添加额外的零列。