以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  交叉数据统计表格  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97246)
--  作者：yangyj
--  发布时间：2017/3/8 16:16:00
--  交叉数据统计表格

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

  系列   安徽  安徽占比   北京     北京占比 
   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%
求各位大神指点
--  作者：有点色
--  发布时间：2017/3/8 16:20:00
--  

生成表后，执行代码

 

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
--  作者：yangyj
--  发布时间：2017/3/8 16:44:00
--  

在哪里执行啊？
--  作者：yangyj
--  发布时间：2017/3/8 16:50:00
--  
已经找到，能使用，谢谢。