セルを検索し行を削除する。 Sub wrk() Dim a As Range Set a = Range("A:A").Find(what:="佐藤") If a Is Nothing Then MsgBox "見つかりません" Else a.EntireRow.Delete End IfEnd Sub 対象セルだけを削除したい場合。 Sub wrk() Dim a As Range Set a = …
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。