回答編集履歴
1
＜/＞ボタンを使用
answer
CHANGED
|
@@ -1,5 +1,6 @@
|
|
|
1
1
|
以下のように修正しました。
|
|
2
2
|
|
|
3
|
+
```VBA
|
|
3
4
|
With データシート
|
|
4
5
|
Dim y As Long, 該当行 As Long, 該当列 As Long
|
|
5
6
|
Dim 検索値 As String
|
|
@@ -12,4 +13,5 @@
|
|
|
12
13
|
’該当行（↓）を検索した後に、該当の行から検索語を１列ずつ検索し（→）、値を返す。
|
|
13
14
|
End If
|
|
14
15
|
Next y
|
|
15
|
-
End With
|
|
16
|
+
End With
|
|
17
|
+
```
|