回答編集履歴
1
コード修正
test
CHANGED
|
@@ -8,17 +8,13 @@
|
|
|
8
8
|
|
|
9
9
|
|
|
10
10
|
|
|
11
|
-
Dim dcdname As Object
|
|
11
|
+
Dim dcdname As Object
|
|
12
12
|
|
|
13
|
-
Dim i
|
|
13
|
+
Dim i
|
|
14
|
-
|
|
15
|
-
Dim Cnt As Long
|
|
16
14
|
|
|
17
15
|
Dim mRow As Long
|
|
18
16
|
|
|
19
17
|
Dim dname As String
|
|
20
|
-
|
|
21
|
-
Dim myKey As Variant
|
|
22
18
|
|
|
23
19
|
Dim list As Variant
|
|
24
20
|
|
|
@@ -54,7 +50,7 @@
|
|
|
54
50
|
|
|
55
51
|
'A列を配列格納
|
|
56
52
|
|
|
57
|
-
list = .Range("
|
|
53
|
+
list = .Range("O1:O" & mRow).Value
|
|
58
54
|
|
|
59
55
|
|
|
60
56
|
|
|
@@ -96,15 +92,13 @@
|
|
|
96
92
|
|
|
97
93
|
'配列をO列に反映
|
|
98
94
|
|
|
99
|
-
.Range("
|
|
95
|
+
.Range("O1:O" & mRow) = list
|
|
100
96
|
|
|
101
97
|
|
|
102
98
|
|
|
103
99
|
'配列解放
|
|
104
100
|
|
|
105
101
|
Set dcdname = Nothing
|
|
106
|
-
|
|
107
|
-
Set dccount = Nothing
|
|
108
102
|
|
|
109
103
|
|
|
110
104
|
|