主题：关于交叉统计新加列的问题

循环每一列

Dim t As Table = Tables("表A")
For Each c As Col In t.Cols
    If c.Caption.StartsWith("销售_") Then
        t.Cols("库存合计").Move(c.Index)
        Exit For
    End If
Next