回答編集履歴
1
For Eachの変数はValiantでないとだめだったので修正しておきました。
test
CHANGED
|
@@ -36,7 +36,7 @@
|
|
|
36
36
|
|
|
37
37
|
Dim r1 As range
|
|
38
38
|
|
|
39
|
-
Dim strAddress
|
|
39
|
+
Dim strAddress
|
|
40
40
|
|
|
41
41
|
For Each strAddress In array1
|
|
42
42
|
|
|
@@ -118,7 +118,7 @@
|
|
|
118
118
|
|
|
119
119
|
Dim r1 As range
|
|
120
120
|
|
|
121
|
-
Dim strAddress
|
|
121
|
+
Dim strAddress
|
|
122
122
|
|
|
123
123
|
For Each strAddress In array1
|
|
124
124
|
|