08/07/19 11:19:34
>>488 ありがとうございます。私も試しに...
Sub test()
With Range(Range("a2"), Range("b:b").Find("★").Offset(-1)).EntireRow
.AutoFilter field:=2, Criteria1:="="
.Offset(1).SpecialCells(xlCellTypeVisible).Delete
.AutoFilter
End With
End Sub
（コードは>>463の別解。★の行も含めて消えますが）