teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

1

コード修正

2021/01/29 01:09

投稿

hatena19
hatena19

スコア34367

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
+ ![実行前](2cf8828b865ddfbf54d044c0a4c69426.png)
13
+ **実行後**
14
+ ![実行後](da5b5e85ddaed4ba337cf71b57ae122e.png)