回答編集履歴
1
IsErrorを追加
test
CHANGED
|
@@ -6,11 +6,16 @@
|
|
|
6
6
|
maxRow = 100 '処理する最大行数
|
|
7
7
|
|
|
8
8
|
For i = 1 To maxRow
|
|
9
|
+
If (IsError(Range("T" & i).Value) = False) Then
|
|
9
|
-
If (Range("T" & i).Value = "終了") Then
|
|
10
|
+
If (Range("T" & i).Value = "終了") Then
|
|
10
|
-
Range("U" & i).Value = "解約"
|
|
11
|
+
Range("U" & i).Value = "解約"
|
|
12
|
+
End If
|
|
11
13
|
End If
|
|
12
14
|
Next
|
|
13
15
|
End Sub
|
|
14
16
|
```
|
|
15
17
|
|
|
16
18
|
最大行数が何かで取得できるなら変数に入れても良いのかなと思います。
|
|
19
|
+
|
|
20
|
+
IsErrorのIF文を追記しました。
|
|
21
|
+
あくまでエラーを無視するだけなので、正しく処理するならエラーをcatchして処理する方がよいです。
|