回答編集履歴
1
誤字修正
test
CHANGED
|
@@ -38,13 +38,13 @@
|
|
|
38
38
|
|
|
39
39
|
Dim 検索表 As Range
|
|
40
40
|
|
|
41
|
-
Set 検索表 = sh.Range("A3:
|
|
41
|
+
Set 検索表 = sh.Range("A3:C8") '←タイトルを除いた表の範囲に応じて変更下さい
|
|
42
42
|
|
|
43
43
|
|
|
44
44
|
|
|
45
45
|
Dim 一致表 As Range
|
|
46
46
|
|
|
47
|
-
Set 一致表 = sh.Range("
|
|
47
|
+
Set 一致表 = sh.Range("E3:H7") '←タイトルを除いた表の範囲に応じて変更下さい
|
|
48
48
|
|
|
49
49
|
|
|
50
50
|
|