不同的单元格格式怎么求和呀，有公式吗？如图

Option Explicit
Sub 合并单元格求和()
　Dim a, i, p, sum
　a = [a1].CurrentRegion.Offset(1).Resize(, 2).Value
　For i = 1 To UBound(a) - 1
　　sum = sum + a(i, 2)
　　If Len(a(i + 1, 1)) > 0 Or i = UBound(a) - 1 Then
　　　a(p + 1, 1) = sum
　　　sum = 0: p = i
　　End If
　Next
　[c2].Resize(UBound(a) - 1) = a
End Sub