回答編集履歴
1
修正
test
CHANGED
|
@@ -18,6 +18,8 @@
|
|
|
18
18
|
|
|
19
19
|
|
|
20
20
|
|
|
21
|
+
'titleを辞書に格納
|
|
22
|
+
|
|
21
23
|
Set titleDic = CreateObject("Scripting.Dictionary")
|
|
22
24
|
|
|
23
25
|
With Sheets("title")
|
|
@@ -26,13 +28,15 @@
|
|
|
26
28
|
|
|
27
29
|
k = c.Value
|
|
28
30
|
|
|
29
|
-
|
|
31
|
+
titleDic (k) = c.Offset(, 1).Value
|
|
30
32
|
|
|
31
33
|
Next
|
|
32
34
|
|
|
33
35
|
End With
|
|
34
36
|
|
|
35
37
|
|
|
38
|
+
|
|
39
|
+
'answerを辞書に格納
|
|
36
40
|
|
|
37
41
|
Set ansDic = CreateObject("Scripting.Dictionary")
|
|
38
42
|
|
|
@@ -60,6 +64,8 @@
|
|
|
60
64
|
|
|
61
65
|
With Sheets("Sheet1")
|
|
62
66
|
|
|
67
|
+
'各セルの値をanswer辞書で変換
|
|
68
|
+
|
|
63
69
|
For Each c In .UsedRange.Resize(.UsedRange.Rows.Count - 1).Offset(1)
|
|
64
70
|
|
|
65
71
|
k = .UsedRange(1, c.Column)
|
|
@@ -81,6 +87,8 @@
|
|
|
81
87
|
Next
|
|
82
88
|
|
|
83
89
|
|
|
90
|
+
|
|
91
|
+
'titleの行をtitle辞書で変換
|
|
84
92
|
|
|
85
93
|
For Each c In .UsedRange.Resize(1)
|
|
86
94
|
|