用 excel 做记账凭证，金额自动求和的问题。

添加辅助行，黄色部分用 公式A ：  =SUM(I3:I7)+ROUNDDOWN(J8,-1)/10

蓝色部分用 公式B ：  =SUM(J3:J7)

灰色部分（实际显示的求和行）用 公式C ：  =J8-ROUNDDOWN(J8,-1)

假设“分”的单元格是N2，在下方的求和单元格N8输入公式：=--right(sum(N3:N7),1)
在M8输入公式：=--right(sum(M3:M7)+if(sum(N3:N7)>9,left(sum(N3:N7),1),0),1)
左拉复制公式到第八行其他单元格。
这样就完成了。

用宏吧，用公式太复杂了，需要考虑若干进位问题，宏如下：
以下宏的先决条件是：分在L2位置，和的位置在第14行，请根据实际情况进行调整。
Sub 求和()
Dim num, i, s, l
For i = 3 To 13
num = num + Val(Cells(i, 2) & Cells(i, 3) & Cells(i, 4) & Cells(i, 5) & Cells(i, 6) & Cells(i, 7) & Cells(i, 8) & Cells(i, 9) & Cells(i, 10) & Cells(i, 11) & Cells(i, 12))
Next
s = Trim(str(num))
l = Len(s)
If l < 11 Then
For i = 1 To 11 - l
s = "0" & s
Next
End If
For i = 2 To 12
If num / 10 ^ (12 - i) >= 1 Then
Cells(14, i) = Mid(s, i - 1, 1)
End If
Next
End Sub