Question

求1*2*3*4*5*6...的VBA怎么写

Answer 1

Sub test()
    Dim i as long,k as double
    k=1
    For i=1 To 10
        k=k*i
    Next i
    MsgBox k
End Sub

 1到10的示例，需要更多，把for i=1 to 10 的10 改成你需要的数字