回答編集履歴
1
追記
answer
CHANGED
@@ -1,15 +1,14 @@
|
|
1
1
|
なんらかの形でフラグ持たせて条件判定でいいんじゃないですかね。
|
2
2
|
```VBA
|
3
|
+
'Boolean型の初期値はFalse
|
3
4
|
Dim Checker As Boolean
|
4
5
|
|
5
6
|
For i = 1 To MaxRow
|
6
7
|
If Cells(i, 1) = A Then
|
7
8
|
'~~~~
|
8
9
|
Checker = True
|
9
|
-
Else
|
10
|
-
|
10
|
+
ElseIf Checker = True Then
|
11
|
-
|
11
|
+
Exit For
|
12
|
-
End If
|
13
12
|
End If
|
14
13
|
Next i
|
15
14
|
```
|