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

请教一下，窗口中怎么设置按钮代码，让它清空指定的列，但是列之间的运算保留，只是单元格的内容清空，可以实现吗？

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

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

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

当然可以 不过从你问的问题来看 还是先看看帮助吧 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

但是，我不要全部列都清空，比如只要清空“年休”和“补休”的列呢？

 二楼的代码是删除你选择的列，你试试。不然代码改成这样

Dim cols() As String = {"年休", "补休"}
With Tables("表A")
    For Each r As Row In .Rows
        For Each c As String In cols
            r(c) = Nothing
        Next
    Next
End With

这个代码就是我想要的，真是太感谢了！很好用！