質問編集履歴
1
文法の修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -66,7 +66,7 @@
|
|
|
66
66
|
|
|
67
67
|
Dim RangeMaxRow As Long
|
|
68
68
|
|
|
69
|
-
Dim SearchSheet As
|
|
69
|
+
Dim SearchSheet As Worksheet
|
|
70
70
|
|
|
71
71
|
Dim i As Long
|
|
72
72
|
|
|
@@ -90,7 +90,7 @@
|
|
|
90
90
|
|
|
91
91
|
SearchWord = Cells(i, 4)
|
|
92
92
|
|
|
93
|
-
Cells(i, 22) = Application.WorksheetFunction.VLookup(SearchWord, Searc
|
|
93
|
+
Cells(i, 22) = Application.WorksheetFunction.VLookup(SearchWord, SearchRange, 8, False)
|
|
94
94
|
|
|
95
95
|
|
|
96
96
|
|