回答編集履歴
1
コード修正
test
CHANGED
|
@@ -12,6 +12,16 @@
|
|
|
12
12
|
|
|
13
13
|
.Resize(.Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
|
|
14
14
|
|
|
15
|
+
.AutoFilter 'フィルター解除
|
|
16
|
+
|
|
15
17
|
End With
|
|
16
18
|
|
|
17
19
|
```
|
|
20
|
+
|
|
21
|
+
**実行前**
|
|
22
|
+
|
|
23
|
+
|
|
24
|
+
|
|
25
|
+
**実行後**
|
|
26
|
+
|
|
27
|
+
|