借人气问一下VBA的问题，问到马上删！！！！！！

依稀幸福

完全不会VBA，但是突然有个问题要解决，问题如下：
B1是可以变化的，B21是因B1变化而引起变化的单元格
现在我想让B1从1%到300%不断变化的值分别列在B24到Ko24里
见到一个类似的问题，我把代码试着改了一下，但是有错误，想请大家帮我看看。感激不尽啦

Sub Makro2()
Dim i As Long, result(1 To 300) As Double
Sheets("Tabelle1" ) .Select
For i = 1 To 3
step = 0.01
Range("B1" ) .Select
ActiveCell.Value = i
Range("B21" ) .Select
result(i) = ActiveCell.Value
Next i
For i = 24 To 324
Range("24" & i ) .Value = result(i - 24)
Next i
MsgBox "It is finished! "
End Sub

依稀幸福

顶上去

真疯了

Next i  不对。 没有i

Range("24" i ) .Value 语法不对吧，Cells(24, i) = ...

能想到的就这些，我VBA也不是专家，就是平时用点。还是DEBUG一下吧。