请教对选定RANGE B2:G7 如何用EXCEL VBA实现每列,每行以及所有单元格求和?

2025-02-23 00:02:57
推荐回答(2个)
回答1:

输入公式=SUM(J269:J277)在括弧内输入第一个单元格位置、引号、第二个单元格位置。英文输入状态下。必须是同一行或同一列。

回答2:

Sub a()
For i = 2 To 7
hang = 0: lie = 0
For j = 2 To 7
hang = hang + Cells(i, j): lie = lie + Cells(j, i)
zong = zong + Cells(i, j)
Next
Cells(i, j) = hang: Cells(j, i) = lie
Next
Cells(i, j) = zong
End Sub
将上面代码复制到模块中即可,已验证通过,助你成功。