主题：交叉数据统计表格

生成表后，执行代码

Dim t As Table = Tables("统计表1")
for each c as col in t.cols
    if c.Caption like "*占比" Then
        c.Move(t.Cols.Count-1)
    End If
Next