| |
▼初心者 さん：
>-------------------
> A | B | C |
> 空白| 数値｜数値 |
>-------------------
>のデータがある時、データ分繰り返し処理を行います。
>
>Do Until IsEmpty〜と値が在るか無いかの判定で実行すると
>データが既にAで存在しない為、以降のデータを無視し処理が終了してしまいます。
Do〜Loopでなく、
For〜Nextで回すとか、
For i = 1 To 3 'カウンタ変数 i は Long型
If Not IsEmpty(Cells(1,i).Value) Then
If IsNumeric(Cells(1,i).Value) Then
'処理
End If
End If
Next
For Each 〜 Next で回せばよいかと思います。
For Each c In Range("A2:C2") 'ループ変数c はRangeオブジェクト型
If Not IsEmpty(c.Value) Then
If IsNumeric(c.Value) Then
'処理
End If
End If
Next
|
|
kanabun
- 09/10/5(月) 14:05 -
