エクセルVBA

質問

A列を基準にBC列が空白ならAの数値を入れて、A>BならB列を更新、A<CならC列を更新
A列が数値以外ならその行をスキップ、という処理をしたいのですが

Option Explicit

Dim A As Range, B As Range, C As Range
Dim i As Long

Sub test()

For i = 1 To 10

Set A = Cells(i, 1)
Set B = A.Offset(0, 1)
Set C = A.Offset(0, 2)

If IsNumeric(A) Then
Else
Exit Sub
End If

If B.Value = "" Then B.Value = A.Value
If C.Value = "" Then C.Value = A.Value

If A.Value > B.Value Then B.Value = A.Value
If A.Value < C.Value Then C.Value = A.Value

Next i

End Sub

とすると数値以外の行の時点で停止してしまいます。
その行を飛ばして次の行に進むにはどうしたらいいのでしょうか？

回答No.2

shut0325 · ベストアンサー

以下の部分でそのような処理にしているからです。

If IsNumeric(A.Value) Then→数値だった場合

→なにもしない。

Else→それ以外の場合（数値以外）は

Exit Sub→サブルーチンを抜ける。

End If

こんな感じです。

正しくは、
For i = 1 To 10

Set A = Cells(i, 1)
Set B = A.Offset(0, 1)
Set C = A.Offset(0, 2)

If IsNumeric(A.Value) Then

　If B.Value = "" Then B.Value = A.Value
　If C.Value = "" Then C.Value = A.Value

　If A.Value > B.Value Then B.Value = A.Value
　If A.Value < C.Value Then C.Value = A.Value

End If

Next i

でよいと思います。

回答No.1

osamuy

試してませんが、こうとか：

Sub test()

Dim A As Range, B As Range, C As Range
Dim i As Long

For i = 1 To 10

Set A = Cells(i, 1)
Set B = A.Offset(0, 1)
Set C = A.Offset(0, 2)
Debug.Print i; ": IsNumeric("; A.Address; ")="; IsNumeric(A)
If IsNumeric(A) Then
If B.Value = "" Then B.Value = A.Value
If C.Value = "" Then C.Value = A.Value
If A.Value > B.Value Then B.Value = A.Value
If A.Value < C.Value Then C.Value = A.Value
End If
Next i

End Sub

お礼

できました、すぐに回答してくださってありがとうございます。