Excelの関数で項目を抽出する

質問

excelの関数で悩んでおります。
例：
■シート１
連番　項目　金額
1　トマト　\100
2　きゅうり　\0
3　レタス　\0
4　たまご　\180

シート１は、A列連番、B列に項目、C列に金額を記載しています。
これにシート２を作成します。
シート２は、シート１を参照して、
「￥０の項目は、その項目の行を表示させない」
「表示しない項目は行を削除する」
「表示していない項目は連番をつけない」ということをしたいです。
オートフィルタを使わず（且つ自動で）、関数若しくはVBAを利用したいと思っています。
■シート２の結果
連番　項目　金額
1　トマト　\100
2　たまご　\180

よろしくお願いします。

回答No.1

yone_sk

こんな感じでいかがでしょうか？
------------------------------
Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
Dim rngKin As Range
Set rngKin = Sheet1.Range("C1")
i = 1
While (rngKin.Value <> "")
If (rngKin.Value <> 0) Then
For j = 1 To rngKin.Column
Sheet2.Cells(i, j) = rngKin.Offset(0, -rngKin.Column + j).Value
Next
i = i + 1
End If

Set rngKin = rngKin.Offset(1, 0)
Wend

End Sub
------------------------------

お礼

ありがとうございます。
コピペーのみで解決しました。