回答編集履歴
1
コード修正
answer
CHANGED
@@ -5,5 +5,10 @@
|
|
5
5
|
'フィルターをかける
|
6
6
|
.AutoFilter Field:=9, Criteria1:=Array("リンゴ","イチゴ"), Operator:=xlFilterValues
|
7
7
|
.Resize(.Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
|
8
|
+
.AutoFilter 'フィルター解除
|
8
9
|
End With
|
9
|
-
```
|
10
|
+
```
|
11
|
+
**実行前**
|
12
|
+

|
13
|
+
**実行後**
|
14
|
+

|