回答編集履歴

1

修正

2020/07/30 08:19

投稿

radames1000
radames1000

スコア1925

test CHANGED
@@ -24,11 +24,9 @@
24
24
 
25
25
  .Copy Sheet2.Range("a1")
26
26
 
27
+ .AutoFilter
28
+
27
29
  End With
28
-
29
-
30
-
31
- Range("a1").CurrentRegion.AutoFilter
32
30
 
33
31
 
34
32