IF関数などを使って条件に合った「行」を削除するような機能はありますでしょうか？

質問

例えば、一つのセルに「済」や「完」の（＋条件書式などで網掛けがかかったような）文字が入ったら、自動的にその「行」が削除されるような、そんな関数（例えばIF関数などを組み合わせて）や機能はエクセルにありますでしょうか？
ご存知でしたらどうぞよろしくお願い致します。

バージョンは97です

回答No.3

imogasi

（１）関数による解決
基本的なことを覚えておいてください。
「エクセルの関数では、行、列、シートの挿入や削除
は行えません」
あとセルに色を付ける（変える）とかも出来ません。
その理由は、エクセルは「セルに関数は値を返す」もので
、それにエクセルが限定しているからです。
関数は、ＶＢＡで、オブジェクトとかプロパティとか言われるもののなかで、セルのプロパティの「Ｖａｌｕｅ」だけを扱うものです。
別シートに、「元のセルに「完」の入った行」を除いて、その他の行を持ってくることは可能です。（注）
（２）ＶＢＡでは行削除が可能です。
ActiveCell.EntireRow.Delete
Sub test02()
d = Range("A1").CurrentRegion.Rows.Count
For i = d To 1 Step -1
If Cells(i, "c") = "完" Then
Rows(i).EntireRow.Delete
End If
Next i
End Sub
（３）手操作によって実現することは、ご存知可能です。
（注）
Ｓｈｅｅｔ１のＡ１：Ｃ６に
山田 福岡市 1
大山 熊本市 完 1
山下 島原市 2
上野 宮崎市 3
野上 鹿児島市 4
上原 大分市 完 4
といれて（上記」Ｄ列は初め空白）
Ｄ列Ｄ１に
=COUNTBLANK($C$1:C1)と入れてＤ６まで複写。
上記のようになる。
Ｓｈｅｅｔ２のＡ１に
=OFFSET(Sheet1!$A$1,MATCH(ROW(),Sheet1!$D$1:$D$10,0)-1,0)と入れてＡ４まで複写。
Ｂ１に=OFFSET(Sheet1!$A$1,MATCH(ROW(),Sheet1!$D$1:$D$10,0)-1,1)といれてＢ４まで複写。
結果Ｓｈｅｅｔ２に
山田 福岡市
山下 島原市
上野 宮崎市
野上 鹿児島市
式を複雑にしないための部分があります。なぜＢ４までか、なぜ＄Ｄ＄１０までなのか問わないでください。

補足

ごアドバイスありがとうございますm(_ _)m

>（２）ＶＢＡでは行削除が可能です。
ActiveCell.EntireRow.Delete
Sub test02()
d = Range("A1").CurrentRegion.Rows.Count
For i = d To 1 Step -1
If Cells(i, "c") = "完" Then
Rows(i).EntireRow.Delete
End If
Next i
End Sub

コードに関して質問してはダメでしょうか？
これをこのまま貼り付けた場合、どういった表の配列の場合なのでしょう？
それだけ教えて頂きましたら、あとは「どの個所をどう変えたらどうなるか…」とかは自分で実験してみます。

お願いしますm(_ _)m