特定の名前の行を削除するには？

質問

VBA初心者なので、よろしくお願いします。
品名　　データ１　　データ２　　・・・・
砂糖　　　１２３　　　　４５６
塩　　　　 ７８９　　　　１２３
粉　　　　 ４５６　　　　７８９
・・・・
このような表で、特定の品名（例えば塩）の行を削除するにはどうすれば良いのでしょうか？
塩がどの行にあるのかは定かでありません。また、無いかもしれません。
以上、よろしくお願いします。

回答No.3

myRange · ベストアンサー

品名はＡ列として。

塩が、ひとつしかない、または、全然ない、場合。
'------------------------------------------------
Sub Test()
　Dim R As Long

　For R = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
　　　If Cells(R, "A").Value = "塩" Then
　　　　　Rows(R).Delete xlUp
　　　　　Exit Sub　　'●●
　　　End If
　Next R
End Sub
'---------------------------------------

塩、が複数あるか、全然ない場合は、
上記●●のコードを削除する。

'------------------------------------------------------

■Findメソッドを使った場合。
'------------------------------------------------------
Sub Test()
　Dim myCell As Range

　Set myCell = Range("A:A").Find("塩", , xlValues, xlWhole)
　　　If Not myCell Is Nothing Then
　　　　　myCell.EntireRow.Delete xlUp
　　　End If
End Sub
'-----------------------------------------------------

このFindメソッドの例は、
”塩”が、ひとつ、又は、全然ない、場合の例です。
検査値（塩）が複数ある場合はも少し複雑なコードなります。
以上です。

お礼

検査値は２つありませんので、Findメソッドを使った場合で出来ました。
ありがとうございます。

回答No.2

zongai

MS Officeカテゴリですが、Excel、Word、Accessなどでも表を扱えます。
お使いになられているのは？バージョンは？

回答No.1

zongai

対象とするデータがExcel？

Excelなら、「品名」のセルを選択し、オートフィルタを実行。
「塩」だけを表示させ行削除。
オートフィルタを解除。
これだけでいいと思います。

これをVBAでやりたいということ？

お礼

ご回答、ありがとうございます。
すいません。削除させた後の計算もあるので、マクロでやりたいのです。
よろしくお願いします。