回答編集履歴
2
コード修正
test
CHANGED
@@ -26,9 +26,9 @@
|
|
26
26
|
|
27
27
|
End If
|
28
28
|
|
29
|
-
.AutoFilter Field:=
|
29
|
+
.AutoFilter Field:=8, Criteria1:="<=1999/12/31"
|
30
30
|
|
31
|
-
.Resize(, 1).Offset(1,
|
31
|
+
.Resize(, 1).Offset(1, 7).ClearContents
|
32
32
|
|
33
33
|
.AutoFilter 'オートフィルター解除
|
34
34
|
|
1
参考リンク追記
test
CHANGED
@@ -30,10 +30,30 @@
|
|
30
30
|
|
31
31
|
.Resize(, 1).Offset(1, 2).ClearContents
|
32
32
|
|
33
|
-
.AutoFilter
|
33
|
+
.AutoFilter 'オートフィルター解除
|
34
34
|
|
35
35
|
End With
|
36
36
|
|
37
37
|
End Sub
|
38
38
|
|
39
39
|
```
|
40
|
+
|
41
|
+
|
42
|
+
|
43
|
+
上記のコードを理解するのに参考になると思われるリンク
|
44
|
+
|
45
|
+
|
46
|
+
|
47
|
+
[Office TANAKA - VBA高速化テクニック[Selectしない]](http://officetanaka.net/excel/vba/speed/s2.htm)
|
48
|
+
|
49
|
+
|
50
|
+
|
51
|
+
[Office TANAKA - 今さら聞けないVBA[Withって何ですか?]](http://officetanaka.net/excel/vba/beginner/16.htm)
|
52
|
+
|
53
|
+
|
54
|
+
|
55
|
+
[Office TANAKA - セルの操作[セル範囲の取得]](http://officetanaka.net/excel/vba/cell/cell10.htm)
|
56
|
+
|
57
|
+
|
58
|
+
|
59
|
+
[Excel VBA Offset とResizeを使いこなそう](https://kosapi.com/post-1281/)
|