回答編集履歴
1
誤字修正
answer
CHANGED
|
@@ -18,10 +18,10 @@
|
|
|
18
18
|
|
|
19
19
|
'★ここだけ変更してね===============================================================================
|
|
20
20
|
Dim 検索表 As Range
|
|
21
|
-
Set 検索表 = sh.Range("A3:
|
|
21
|
+
Set 検索表 = sh.Range("A3:C8") '←タイトルを除いた表の範囲に応じて変更下さい
|
|
22
22
|
|
|
23
23
|
Dim 一致表 As Range
|
|
24
|
-
Set 一致表 = sh.Range("
|
|
24
|
+
Set 一致表 = sh.Range("E3:H7") '←タイトルを除いた表の範囲に応じて変更下さい
|
|
25
25
|
|
|
26
26
|
Dim 結果入力開始セル As Range
|
|
27
27
|
Set 結果入力開始セル = sh.Range("A12")
|