回答編集履歴
1
コード修正
answer
CHANGED
|
@@ -37,7 +37,7 @@
|
|
|
37
37
|
End Sub
|
|
38
38
|
|
|
39
39
|
Function RemoveDuplicatesBlank(Tbl, r As Long, c1 As Long, c2 As Long) As String
|
|
40
|
-
Dim dic As New
|
|
40
|
+
Dim dic As New Dictionary
|
|
41
41
|
Dim c As Long
|
|
42
42
|
For c = c1 To c2
|
|
43
43
|
If Tbl(r, c) <> "" And Not dic.Exists(Tbl(r, c)) Then dic(Tbl(r, c)) = c
|