求助各位大虾！！

可以用vba。

Sub 读取批注()
 For Each c In ActiveSheet.Comments
 c.Parent.Offset(0, 1) = c.Text
 Next
End Sub

该代码将批注中的内容放在其后相邻的单元格中。
使用方法：按住alt依次按F11,I,M；粘贴代码后按F5
批注内容放置在单元格后，就可以使用合并计算或者数据透视表得到你要的合计了。