excel 中的VBA

这天一个好朋友叫我帮他算一个EXCEL数据。由于数据太大，我早先想把数据导到数据库再计算，后来，觉得这样
太麻烦，顺便也想学学VBA.所以用了VBA，不过这些也太简单了，

Private Sub CommandButton1_Click()

For i = 3 To 6061
    If (i - 3) Mod 201 <> 0 Then
    
            Worksheets("stock30").Range("D" & i) = (Worksheets("stock30").Range("C" & i) -
                Worksheets("stock30").Range("C" & i - 1)) / Worksheets("stock30").Range("C" & i)
    Else
            Worksheets("stock30").Range("D" & i) = "begin"
    End If

 
Next i

End Sub