0

1 つのワークシートにリストされた製品のリストがありますが、すべての製品に値があるわけではありません。別のワークシートでは、値を持つ製品のみをプルしたいと考えています。ピザの最初の列を出力できましたが、ピザクラストは続きません

シート 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

ありがとう

4

1 に答える 1

0

セル B2 を選択し、アンピボット アドインを実行します (ここから入手できます)。その後、追加のゼロ列を追加するのは簡単です。

于 2012-10-08T15:50:26.363 に答える