1.打开excle的编程面板(使用的是VB)
在excle中--->Alt+F11---->右击插入--->模块---->然后就可以写代码了---->写完代码后 运行宏(F5)
Sub 求和()
Dim i, sum As Integer
i = 0
For i = 1 To 9
sum = sum + Sheets(1).Cells(i, 1)
Next i
Sheets(1).Cells(1, 2) = "1到3的和:"
Sheets(1).Cells(2, 3) = sum
End Sub
Dim i, sum As Integer
i = 0
For i = 1 To 9
sum = sum + Sheets(1).Cells(i, 1)
Next i
Sheets(1).Cells(1, 2) = "1到3的和:"
Sheets(1).Cells(2, 3) = sum
End Sub
Sheets(1):表一
Celles(i,1):第i行第一列