主题：隐藏列名包含特定字符的列

不想显示所有同比环比占比的值，需要隐藏。

用的土办法，如下：如果有这个列，则隐藏，但是很多列，代码冗长。

有没有别的办法，比如遍历列，列名有包含gdr、stp、cle的，就隐藏这些列。

    'If Tables(e.Form.Name & "_table1").Cols.Contains("总吊牌金额gdr") Then  
        'Tables(e.Form.Name & "_table1").Cols("总吊牌金额gdr").Visible = False
    'End If
    'If Tables(e.Form.Name & "_table1").Cols.Contains("总吊牌金额stp") Then  
        'Tables(e.Form.Name & "_table1").Cols("总吊牌金额stp").Visible = False
    'End If
    'If Tables(e.Form.Name & "_table1").Cols.Contains("总吊牌金额cle") Then  
        'Tables(e.Form.Name & "_table1").Cols("总吊牌金额cle").Visible = False
    'End If
'
    'If Tables(e.Form.Name & "_table1").Cols("VIP小piao数gdr") Then  
        'Tables(e.Form.Name & "_table1").Cols("VIP小piao数gdr").Visible = False
    'End If
    'If Tables(e.Form.Name & "_table1").Cols("VIP小piao数stp") Then  
        'Tables(e.Form.Name & "_table1").Cols("VIP小piao数stp").Visible = False
    'End If
    'If Tables(e.Form.Name & "_table1").Cols("VIP小piao数cle") Then  
        'Tables(e.Form.Name & "_table1").Cols("VIP小piao数cle").Visible = False
    'End If
'
'
    'If Tables(e.Form.Name & "_table1").Cols("总小piao数gdr")Then  
        'Tables(e.Form.Name & "_table1").Cols("总小piao数gdr").Visible = False
    'End If
    'If Tables(e.Form.Name & "_table1").Cols("总小piao数stp") Then  
        'Tables(e.Form.Name & "_table1").Cols("总小piao数stp").Visible = False
    'End If
    'If Tables(e.Form.Name & "_table1").Cols("总小piao数cle") Then  
        'Tables(e.Form.Name & "_table1").Cols("总小piao数cle").Visible = False
    'End If

嗯嗯。谢谢！！

For Each c As Col In Tables("零售报表_table1").Cols
If c.name.EndsWith("stp") Or c.name.EndsWith("cle") Or c.name.EndsWith("glp") Then
c.Visible = False
End If
Next