excel怎么删除不满足条件的数据行？
excel中文档数据需要判断D列数据在249-251，E列数据在19-21，Q列数据在39-41之间，满足3个判断条件如果是则留下，如过不是则删除该行数据。数据量太大，表格太多，求大神支援一个VB程序
1、选中表中的所有记录（注意，此时应将每列的标题行也选择上，否则筛选完的数据表中将不再包含有该标题行），执行“数据”菜单→“筛选→高级筛选”命令。
2、在弹出的“高级筛选”对话框中选择“将筛选结果复制到其他位置”一项，并点击“复制到”选择框后面的范围按钮来选择一块区域以存放筛选后的数据（注意：此处千万不要与原数据所处的单元格相重合，否则数据表将会混乱），最后，勾选“选择不重复的记录”复选框后，点击“确定”按钮即可。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2022-02-25
这很简单，用一道公式即可：
=IF(AND(D1>=249,D1<=251,E1>=19,E1<=21,Q1>=39,Q1<=41),"留","")
回车并向下填充，再筛选“留”。
第2个回答 2021-10-29
按描述，可以用以下代码：
Public Sub DeleteH() Dim H As Long, i As Long H = Range("A65536").End(xlUp).Row For i = H To 1 Step -1 If IsNumeric(Range("A" & i).Value) Then If Range("A" & i).Value > 70 Or Range("A" & i).Value < 60 Then Range("A" & i).EntireRow.Delete End If End If NextEnd Sub
Public Sub DeleteH() Dim H As Long, i As Long H = Range("A65536").End(xlUp).Row For i = H To 1 Step -1 If IsNumeric(Range("A" & i).Value) Then If Range("A" & i).Value > 70 Or Range("A" & i).Value < 60 Then Range("A" & i).EntireRow.Delete End If End If NextEnd Sub
第3个回答 2022-06-29
可以加一列辅助列。当满足在三个条件的时候，辅助列等于1，否则的话就等于0。然后用自然筛选把辅助列是0的都删除就可以了。本回答被提问者和网友采纳
第4个回答 2021-10-29
1.首先来看一下我们用来抽样的样本数据，要求是用基础操作删去：数据大于16，或小于2...
2.我们选中数据区域，然后右键，选择设置单元格格式。
3.在“自定义”分类中我们输入[>16]"";[<2]"";0;@ 代码，代码解释：...
4.这样，我们就将不符合的单元格数据隐藏了。
2.我们选中数据区域，然后右键，选择设置单元格格式。
3.在“自定义”分类中我们输入[>16]"";[<2]"";0;@ 代码，代码解释：...
4.这样，我们就将不符合的单元格数据隐藏了。
相似回答