主题：交叉数据统计表格

 交叉统计的时候添加占比， 输出的表如下，

系列	安徽	安徽占比	北京	北京占比
1	20	20%	50	50%
2	30	30%	20	20%
3	50	50%	30	30%

我想输出的时候直接变成下面的格式，应该怎么弄：

列	安徽	北京	安徽占比	北京占比
1	20	50	20%	50%
2	30	20	30%	20%
3	50	30	50%	30%

求各位大神指点

生成表后，执行代码

 

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

在哪里执行啊？

已经找到，能使用，谢谢。