S、a的值是什么权当它们分别在A1、A2单元格

将结果输出到B1

Sub Sum()

S = Range("A1") - 1

a = Range("A2")

For j = 0 To S

temp = temp + a ^ j / Excel.Application.WorksheetFunction.Fact(j)

Next

Range("B1") = temp

End Sub