主题：一个按钮实现指定列的单元格清空

楼主：按扭的代码可以设置成

With Tables("表A")
    For Each r As Row In .Rows
        r(.colsel) =Nothing
    Next
End With

这样可以清除列中的数据，但不会影响列中的公式