teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

1

追記

2021/02/09 06:13

投稿

退会済みユーザー
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
- If Checker = True Then
10
+ ElseIf Checker = True Then
11
- Exit For
11
+ Exit For
12
- End If
13
12
  End If
14
13
  Next i
15
14
  ```