主题：求助 按照条件筛选列代码

msgbox(user.name & "_")

For Each c As Col In Tables("表A").Cols
    If c.name.contains(user.name & "_") Then
        c.visible = True
    Else
        c.visible = False
    End If
Next