質問編集履歴
1
文法の修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -32,7 +32,7 @@
|
|
|
32
32
|
Dim SearchWord As String
|
|
33
33
|
Dim SearchRange As Range
|
|
34
34
|
Dim RangeMaxRow As Long
|
|
35
|
-
Dim SearchSheet As
|
|
35
|
+
Dim SearchSheet As Worksheet
|
|
36
36
|
Dim i As Long
|
|
37
37
|
|
|
38
38
|
Set SearchSheet = Worksheets(Worksheets.Count)
|
|
@@ -44,7 +44,7 @@
|
|
|
44
44
|
For i = 5 To 900
|
|
45
45
|
|
|
46
46
|
SearchWord = Cells(i, 4)
|
|
47
|
-
Cells(i, 22) = Application.WorksheetFunction.VLookup(SearchWord,
|
|
47
|
+
Cells(i, 22) = Application.WorksheetFunction.VLookup(SearchWord, SearchRange, 8, False)
|
|
48
48
|
|
|
49
49
|
Next i
|
|
50
50
|
|