回答編集履歴
1
修正
answer
CHANGED
|
@@ -11,9 +11,8 @@
|
|
|
11
11
|
With Range("a1").CurrentRegion
|
|
12
12
|
.AutoFilter field:=1, Criteria1:="*" & label_code & "*"
|
|
13
13
|
.Copy Sheet2.Range("a1")
|
|
14
|
+
.AutoFilter
|
|
14
15
|
End With
|
|
15
16
|
|
|
16
|
-
Range("a1").CurrentRegion.AutoFilter
|
|
17
|
-
|
|
18
17
|
End Sub
|
|
19
18
|
```
|