输入公式=SUM(J269:J277)在括弧内输入第一个单元格位置、引号、第二个单元格位置。英文输入状态下。必须是同一行或同一列。
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
将上面代码复制到模块中即可,已验证通过,助你成功。