回答編集履歴
1
変数誤字修正
test
CHANGED
|
@@ -70,7 +70,7 @@
|
|
|
70
70
|
|
|
71
71
|
For 行 = 2 To .Cells(Rows.count, "Q").End(xlUp).Row
|
|
72
72
|
|
|
73
|
-
' If Not ディクショナリ.exists(.Cells(
|
|
73
|
+
' If Not ディクショナリ.exists(.Cells(行, "Q")) Then
|
|
74
74
|
On Error GoTo Error1
|
|
75
75
|
|
|
76
76
|
キー = .Cells(行, "Q").Value
|