將循環值打印到步長小於1的單元格

Question

當步長爲1時，我可以打印出每個循環迭代的值。有什麼辦法可以對較小的步長做同樣的操作？下面的代碼是什麼，我一直在使用時，步長爲1

For i = 1 To Height - 1 
    Moment = ((Load * i)/(3 * (Height^2)) * ((Height^2) - (i^2))) 
    Application.Calculate 
    Sheet2.Range("A" & i).Value = i 
    Sheet2.Range("B" & i).Value = Moment 
Next i 

Answer 1

我想這可能被標記爲「易谷歌能」，但你可以修改for循環與step [increment]：

dim k as int  
k = 1 
For i = 1 To Height - 1 step 0.1 
    Moment = ((Load * i)/(3 * (Height^2)) * ((Height^2) - (i^2))) 
    Application.Calculate 
    Sheet2.Range("A" & k).Value = i 
    Sheet2.Range("B" & k).Value = Moment 
    k = k + 1 
Next i