Sub delete() Dim wrk As String wrk = InputBox("文字列を入力してください") With Range("A1") .AutoFilter .AutoFilter field:=1, Criteria1:=wrk .CurrentRegion.Offset(1, 0).EntireRow.delete .AutoFilter End With End Sub InputBoxに入力された文字…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。