excel怎么选取有效数据

excel怎么选取有效数据

ALT+F11 打开VB编辑器---选中左边的sheet1右键-- 插入--模块--复制粘贴下列代码--关闭VB编辑窗口。

然后在EXCEL中 插入图形（任意图形）--右键图形--指定宏...--选择“清除”--左键点击图形，运行宏！
这样将不满足条件的全部清空。选择部位空的单元格。
代码如下：

Sub 清除()
Dim r As Range
For Each r In ActiveSheet.UsedRange
If r.Value < 5 Or r.Value > 6.5 Then
r = ""
End If
Next
Selection.SpecialCells(xlCellTypeConstants, 1).Select
End Sub

这个最好是用VBA处理，方便
当然也可以用函数处理

(1)选择单元格区域
　　选择需要输入数据的单元格区域。
　　(2)单击“数据有效性”按钮
　　切换至“数据”选项卡.在“数据工具.组中单击“数据有效性”按钮。
　　(3)设置数据有效性条件
　　弹出“数据有效性”对话框，单击“允许”右侧的下三角按钮，在弹出的下拉列表中选择“序列”选项。
　　(4)设置序列来源
　　在“来源”文本框中输入要在有效性列表中显示的数据.
　　(5)选择数据
　　返回工作表中，此时可看到C3单元格右侧有一个下三角按钮，单击该下三角按钮.在弹出的下拉列表中选择填充的数据.然后使用相同的方法在下方依次输入检验员。

ALT+F11 打开VB编辑器---选中左边的sheet1右键-- 插入--模块--复制粘贴下列代码--关闭VB编辑窗口。

然后在EXCEL中 插入图形（任意图形）--右键图形--指定宏...--选择“清除”--左键点击图形，运行宏！
这样将不满足条件的全部清空。选择部位空的单元格。
代码如下：

Sub 清除()
Dim r As Range
For Each r In ActiveSheet.UsedRange
If r.Value < 5 Or r.Value > 6.5 Then
r = ""
End If
Next
Selection.SpecialCells(xlCellTypeConstants, 1).Select
End Sub