回答編集履歴
3
DistinctArray プロシージャ内の変数 lngMatchCount の名前も lngItemCount に変更しました。
test
CHANGED
|
@@ -34,14 +34,14 @@
|
|
|
34
34
|
|
|
35
35
|
Dim varNewArray() As Variant
|
|
36
36
|
Dim varItem As Variant
|
|
37
|
-
Dim lng
|
|
37
|
+
Dim lngItemCount As Long
|
|
38
38
|
|
|
39
39
|
For Each varItem In SourceArray
|
|
40
40
|
If Not objDictionary.Exists(varItem) Then
|
|
41
41
|
objDictionary.Add varItem, varItem
|
|
42
|
-
ReDim Preserve varNewArray(0 To lng
|
|
42
|
+
ReDim Preserve varNewArray(0 To lngItemCount)
|
|
43
|
-
varNewArray(lng
|
|
43
|
+
varNewArray(lngItemCount) = varItem
|
|
44
|
-
lng
|
|
44
|
+
lngItemCount = lngItemCount + 1
|
|
45
45
|
End If
|
|
46
46
|
Next
|
|
47
47
|
|
2
UnionArray プロシージャ内の変数周りも修正しました。
test
CHANGED
|
@@ -106,19 +106,18 @@
|
|
|
106
106
|
|
|
107
107
|
Dim varNewArray() As Variant
|
|
108
108
|
Dim varItem As Variant
|
|
109
|
-
Dim blMatched As Boolean
|
|
110
|
-
Dim lng
|
|
109
|
+
Dim lngItemCount As Long
|
|
111
110
|
|
|
112
111
|
For Each varItem In Array1
|
|
113
|
-
ReDim Preserve varNewArray(0 To lng
|
|
112
|
+
ReDim Preserve varNewArray(0 To lngItemCount)
|
|
114
|
-
varNewArray(lng
|
|
113
|
+
varNewArray(lngItemCount) = varItem
|
|
115
|
-
lng
|
|
114
|
+
lngItemCount = lngItemCount + 1
|
|
116
115
|
Next
|
|
117
116
|
|
|
118
117
|
For Each varItem In Array2
|
|
119
|
-
ReDim Preserve varNewArray(0 To lng
|
|
118
|
+
ReDim Preserve varNewArray(0 To lngItemCount)
|
|
120
|
-
varNewArray(lng
|
|
119
|
+
varNewArray(lngItemCount) = varItem
|
|
121
|
-
lng
|
|
120
|
+
lngItemCount = lngItemCount + 1
|
|
122
121
|
Next
|
|
123
122
|
|
|
124
123
|
UnionArray = varNewArray
|
1
DifferenceArray プロシージャ内の変数 lngMatchCount の名前を lngUnmatchCount に変更しました。
test
CHANGED
|
@@ -80,7 +80,7 @@
|
|
|
80
80
|
Dim varItem1 As Variant
|
|
81
81
|
Dim varItem2 As Variant
|
|
82
82
|
Dim blMatched As Boolean
|
|
83
|
-
Dim lng
|
|
83
|
+
Dim lngUnmatchCount As Long
|
|
84
84
|
|
|
85
85
|
For Each varItem1 In Array1
|
|
86
86
|
blMatched = False
|
|
@@ -91,9 +91,9 @@
|
|
|
91
91
|
End If
|
|
92
92
|
Next
|
|
93
93
|
If blMatched = False Then
|
|
94
|
-
ReDim Preserve varNewArray(0 To lng
|
|
94
|
+
ReDim Preserve varNewArray(0 To lngUnmatchCount)
|
|
95
|
-
varNewArray(lng
|
|
95
|
+
varNewArray(lngUnmatchCount) = varItem1
|
|
96
|
-
lng
|
|
96
|
+
lngUnmatchCount = lngUnmatchCount + 1
|
|
97
97
|
End If
|
|
98
98
|
Next
|
|
99
99
|
|