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

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

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