回答編集履歴
1
ミス
test
CHANGED
|
@@ -1,21 +1 @@
|
|
|
1
|
-
|
|
1
|
+
ミスです消去します。
|
|
2
|
-
|
|
3
|
-
```VBA
|
|
4
|
-
|
|
5
|
-
Sub Test_Sample_Miniature()
|
|
6
|
-
|
|
7
|
-
Dim MySh As Worksheet
|
|
8
|
-
|
|
9
|
-
For Each MySh In Worksheets
|
|
10
|
-
|
|
11
|
-
If MySh.Index > 4 Then
|
|
12
|
-
|
|
13
|
-
MySh.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo
|
|
14
|
-
|
|
15
|
-
End If
|
|
16
|
-
|
|
17
|
-
Next
|
|
18
|
-
|
|
19
|
-
End Sub
|
|
20
|
-
|
|
21
|
-
```
|