質問編集履歴
1
不要な変数、空行を消しました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -28,11 +28,9 @@
|
|
|
28
28
|
|
|
29
29
|
```VBA
|
|
30
30
|
Sub マクロ()
|
|
31
|
-
|
|
32
31
|
|
|
33
32
|
Dim rng As Range
|
|
34
33
|
Dim i As Long
|
|
35
|
-
Dim count As Long
|
|
36
34
|
Dim ary As Variant
|
|
37
35
|
Dim listSheet As Worksheet
|
|
38
36
|
Dim Val
|
|
@@ -48,8 +46,6 @@
|
|
|
48
46
|
val = ary(i, 1)
|
|
49
47
|
Call valを使うsub(val)
|
|
50
48
|
End If
|
|
51
|
-
|
|
52
|
-
|
|
53
49
|
Next
|
|
54
50
|
|
|
55
51
|
End Sub
|