主题：如何进行纵向统计

 汗...

Dim t As Table = Tables("表A")
For Each r As Row In t.Rows
    If r.Index = 4 Then
        r("合计") = t.Rows(1)("合计") - t.Rows(2)("合计") - t.Rows(3)("合计")
        r("三十岁以下") = t.Rows(1)("三十岁以下") - t.Rows(2)("三十岁以下") - t.Rows(3)("三十岁以下")
        r("三十岁") = t.Rows(1)("三十岁") - t.Rows(2)("三十岁") - t.Rows(3)("三十岁")
        r("三十岁以上") = t.Rows(1)("三十岁以上") - t.Rows(2)("三十岁以上") - t.Rows(3)("三十岁以上")
        r("年龄统计误差") = r("合计") - r("三十岁以下") - r("三十岁") - r("三十岁以上")
    Else If r.Index = 8 Then
        r("合计") = t.Rows(5)("合计") - t.Rows(6)("合计") - t.Rows(7)("合计")
        r("三十岁以下") = t.Rows(5)("三十岁以下") - t.Rows(6)("三十岁以下") - t.Rows(7)("三十岁以下")
        r("三十岁") = t.Rows(5)("三十岁") - t.Rows(6)("三十岁") - t.Rows(7)("三十岁")
        r("三十岁以上") = t.Rows(5)("三十岁以上") - t.Rows(6)("三十岁以上") - t.Rows(7)("三十岁以上")
        r("年龄统计误差") = r("合计") - r("三十岁以下") - r("三十岁") - r("三十岁以上")
    Else If r.Index = 9 Then
        r("合计") = t.Rows(0)("合计") - t.Rows(1)("合计") - t.Rows(5)("合计")
        r("三十岁以下") = t.Rows(0)("三十岁以下") - t.Rows(1)("三十岁以下") - t.Rows(5)("三十岁以下")
        r("三十岁") = t.Rows(0)("三十岁") - t.Rows(1)("三十岁") - t.Rows(7)("三十岁")
        r("三十岁以上") = t.Rows(0)("三十岁以上") - t.Rows(1)("三十岁以上") - t.Rows(5)("三十岁以上")
        r("年龄统计误差") = r("合计") - r("三十岁以下") - r("三十岁") - r("三十岁以上")
    Else
        r("年龄统计误差") = r("合计") - r("三十岁以下") - r("三十岁") - r("三十岁以上")
    End If
Next