このプログラムは数値の表を作成し、それを行ごとに合計しようとします。IsBlank()
一番上のセルが空白かどうかをテストするために使用しています。空白の場合はループを終了する必要がありますが、そうでない場合はループを続行する必要があります。ただし、ループを初めて通過した後も終了し続けます。何故ですか?
私はそれが本当に明白だと感じています。
編集:「カウンター」全体がそこにあることに注意する必要があります。これが機能した場合、それをいじり始めるつもりだったからです。そしてそれはうまくいかなかったので、私はここにいます!
Option Explicit
Dim Counter As Long
Dim i As Long
Dim col As Long
Dim row As Long
Sub SumRange()
For col = 1 To 8
For row = 1 To 6
Cells(row, col) = Rnd
Next row
Next col
Counter = 6
For i = 1 To 9
If IsEmpty(Cells(1, i)) = False Then
Cells(Counter + 1, i) = Application.WorksheetFunction.Sum(Range(Cells(1, i), Cells(Counter, i)))
Else
End If
End
Next
MsgBox Cells(4, 5)
End Sub