1、循环每一列,判断
For Each c As Col in Tables("表A").Cols
If c.name like "数量_*" OrElse c.caption like "*xxxx*" Then
msgbox(c.name)
End If
Next
2、循环每一列,设置
http://www.foxtable.com/webhelp/scr/1659.htm