|
Yukiさん
早速の返信ありがとうございます
>Sub 番号振りA()
> Dim K As Long
> Dim i As Long
> i = 2
>' end があるまで Loop
> Do Until Cells(i, 9).Value = "end"
> ' 数値でなかったら
> If Not IsNumeric(Cells(i, 9).Value) Then
> K = K + 1
> ' S 列に連番を入れる
> Cells(i, 9).Offset(0, 10).Value = K
> End If
> i = i + 1
> Loop
> End Sub
>
>Do Loop で処理するとこんな感じですか?
こちらを参考にして
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
というように組んでみたら無事に作動しました
ありがとうございました
|
|