第一个问题,加入这段代码
For Each c As Col In Tables("统计").Cols If c.IsNumeric Then c. GrandTotal = True End IfNextTables("统计").GrandTotal = True