1、功能说明:实现表格数据求和。1、原始数据如下:
2、在外狒芙梨VBE中编写如下代码:Sub noFormatSub()Dim i%For i = 2 To 6 Range("d" & i) = Ran爿讥旌护ge("b" & i) + Range("c" & i)Next iEnd Sub
3、在Excel界面中插入宏,选定刚刚的宏noFormatSub;4、执行宏,得到如下结果;即:得到总分数;
1、功能说明:实现表格数据求和。1、原始数据如下:
2、在外狒芙梨VBE中编写如下代码:Sub noFormatSub()Dim i%For i = 2 To 6 Range("d" & i) = Ran爿讥旌护ge("b" & i) + Range("c" & i)Next iEnd Sub
3、在Excel界面中插入宏,选定刚刚的宏noFormatSub;4、执行宏,得到如下结果;即:得到总分数;