主题：交叉统计的垂直自动汇总合计行 不是在最后一行

你可以在生成表格以后，自己加入一行，然后合计所有列的数据。

循环不就可以了？

Dim t As Table = Tables("表A")
Dim nr As Row = t.AddNew
nr("第一列") = "合计"
For Each c As Col In t.cols
    If c.IsNumeric Then
        nr(c) = t.Compute("sum(" & c.name & ")")
    End If
Next

插入一列_Sortkey列，如

Dim t As Table = Tables("统计表1")
t.DataTable.datacols.Add("_Sortkey", Gettype(Double))
t.sort = "_sortkey"
t.sort = ""
t.DataTable.ReplaceFor("_sortkey",  3)
Dim nr As Row = t.AddNew
nr.move(0)