1、点击开发工具选项卡。
2、点击VB打开VB编辑器。
3、在蓝色框的区域内,点右键---插入模块。
4、点击模块。
5、在右侧输入或粘贴代码。
6、点击红色圆圈按钮,运行代码,即可得出结果。
Sub 计算()
Dim i, j, k
For i = 2 To 9
For j = 2 To 4
For k = 2 To 4
ir = Range("E" & Rows.Count).End(3).Row + 1
Range("E" & ir) = Range("B" & i) & "+" & Range("C" & j) & "+" & Range("D" & k) & "=" & Range("B" & i) + Range("C" & j) + Range("D" & k)
Next
Next
Next
End Sub
说一个求和的公司不叫开朗。
举例说明需要的结果
你表都上了,谁也不清楚你要干啥,想要什么样的效果?再上张效果表
第1列是字母也能相加?
不明就里。