在Excel表中，如何使用vba编码，将一列的值进行清空

1、双击thisbook——打开工作簿的代码编辑框。

百查看大图" class="ikqb_img_alink">

2、复制度进去如下代码。知道

3、画好一个按钮框以后，软件让你给它指定宏版代码，选择产生目录啦。

4、点击一下获取目录，目录就产生了。

5、对目录进权行筛选，排序，也可以手工排序。

6、然后再在代码编辑框输入这些代码。

7、然后再画一个按钮，指定sortsheet。

8、改好按钮名称后就是这样的啦，按一下按钮。

假设A1是设置了数据有效知性的单元格，辅助列在G列，要把A1的值放在G1可用下面代码： Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then [G1] = [A1] '里面加粗的1表示第一列道即A列，指设置了有效性的所在列
End Sub
在当前工作表名称处点右专键，查看代码，然后粘贴上面代码就OK了。只要A1的值改变属G1就会跟着改变，如有问题请追问。
注意下e799bee5baa6e79fa5e98193e59b9ee7ad94332面*括起来的代码
Private Sub TextBox1_Change()
Dim i As Integer
For i = 1 To 100
If TextBox1.Text = Worksheets("数据").Cells(1, i) Then
Worksheets("数据").Select
Worksheets("数据").Cells(4, i - 1).Select

'***************
if Charts.count < 1 then
Charts.Add
end if
'***************

ActiveChart.ChartType = xlLine
ActiveChart.SeriesCollection(1).Name = Worksheets("数据").Cells(3, i)
ActiveChart.SeriesCollection(1).Values = Range(Worksheets("数据").Cells(4, i), Worksheets("数据").Cells(5000, i))
ActiveChart.SeriesCollection(1).XValues = Range(Worksheets("数据").Cells(4, i - 1), Worksheets("数据").Cells(5000, i - 1))

ActiveChart.Activate
ActiveChart.Axes(xlCategory).Select
ActiveChart.Activate
ActiveChart.Axes(xlCategory).Select
Selection.MajorTickMark = xlInside
ActiveChart.Activate
ActiveChart.Axes(xlValue).Select
ActiveChart.Activate
Selection.MajorTickMark = xlInside
ActiveChart.Activate
ActiveChart.Axes(xlCategory).Select
ActiveChart.Activate
End If
Next
End Sub

用delete语句就可以的
Delete from 表 where 字段=条件