VBA配列の追加

Question

For j = 1 To 8 
Sheet5.Cells(j + 1, 2) = 480 
Next 
t = 0 
c = 0 
    For j = LBound(arrayTime) + 1 To UBound(arrayTime) 
     MsgBox "j " & j 
     'MsgBox (t) 
     numMins = Sheet5.Cells((j + 1) - (8 * c), 2) - arrayTime(j) 
     If numMins < 0 Then 
     t = t + 1 
     ReDim Preserve arrayTime(numrows - 1 + t) 
     arrayTime(numrows - 1 + t) = arrayTime(j) 
     MsgBox (arrayTime(numrows - 1 + t)) 
     Else 
     Sheet5.Cells((j + 1) - (8 * c), 2) = numMins 
     End If 
     If j = 8 * (c + 1) Then 
     c = c + 1 
     End If 
     MsgBox ("end " & t) 
    Next 

条件がtrueの場合、arrayTimeに値を追加しようとしています。私は正常に追加しましたが、forループは、追加された要素をループするための次元を再設定しません。配列はもともと12の要素を含んでいますが、13を追加しますが、ループは13番目の要素を認識し、12回のループのみを行います。 forループを13回ループする方法についての提案はありますか？

Answer 1

ループカウンタを追加します（例：i）。LBound(arrayTime) + 1に設定し、Do Until (i = UBound(arrayTime))を使用します。これにより、VBAは各ループの前に上限を再計算します。