|
▼kanabun さん:
>それから、さっきも言いましたが、
>
>Dim c As Range
>For Each c In Range([I2:I30]
>> If IsNumeric(c.Value) Then
>
>IsNumericは数値化可能かどうか調べる関数で、空白セルも(0に数値化可能
>なので)IsNumeric(空白セル.Value) は True になります。
>ここは2重のIf文にして、
>最初に If Not IsEmpty(c.Value) Then で 空白セルでないことを判断し、
>その中で(空白セルでないときのみ)
> If IsNumeric(c.Value) Then
>とすべきです。
こちらを参考に
Sub 番号振り()
Dim K As Integer
K = 1
Range("I2").Select
Do Until ActiveCell.Value = "end"
If Not IsEmpty(ActiveCell.Value) Then
If IsNumeric(ActiveCell.Value) Then
ActiveCell.Offset(0, 10).Value = K
K = K + 1
End If
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
早速こちらを参考にして組んでみたところ、無事に必要な全ての行に番号を振ることが出来ました。
投稿後も試行錯誤をしていたのですが、2重のIF文にしておらずうまくいかなかったので、
とても今後の参考になりました。
ありがとうございました。
|
|