|
▼にしもり さん:
>orangeというレコードを完全に取り去る
レコード数が1000位までなら、
> ActiveSheet.Range("B1").AutoFilter Field:=1, Criteria1:="<>orange", _
> Operator:=xlAnd
でなく、削除したい "orange"を抽出して、行削除する手があります。
Sub Delete_orange()
Dim r As Range
Set r = Range("B1", Cells(Rows.Count, 2).End(xlUp))
r.Worksheet.AutoFilterMode = False
r.AutoFilter 1, Criteria1:="orange" '削除したいアイテム
If r.SpecialCells(xlVisible).Count > 1 Then
Intersect(r, r.Offset(1)).EntireRow.Delete
End If
r.AutoFilter
End Sub
レコードが5000とか多いと、「フィルタオプションの設定」で
別シートに抽出したほうが速いですけど。
|
|