EXCEL中 6万多人的数据，删除年龄<16且>50的女性，年龄<16且>60的男性。怎么操作啊？

答案:3 悬赏:0 手机版

解决时间 2021-02-27 18:27

提问者网友：箛茗
2021-02-27 06:52

已经通过身份证把年龄计算出来在单独一列中

最佳答案

五星知识达人网友：像个废品
2021-02-27 07:13

用高级筛选一步到位
比如B列年龄，C列性别

可以在e1:g3输入筛选条件
年龄年龄性别
>16 <50 女
>16 <60 男

然后选择ABC列，数据-筛选-高级筛选：
“把数据复制到”指向一个空白单元格
“条件区域”指向e1:g3
确定即可

全部回答

1楼网友：几近狂妄
2021-02-27 08:09

假设身份证号在b列，且从第2行开始在c2中输入或复制粘贴此公式 =if(or(and(datedif(text(mid(b2,7,len(b2)/2-1),"#-00-00"),today(),"y")<=60,mod(right(left(b2,17)),2)=1),and(datedif(text(mid(b2,7,len(b2)/2-1),"#-00-00"),today(),"y")<=55,mod(right(left(b2,17)),2)=0)),"","错误") 下拉填充

2楼网友：低音帝王
2021-02-27 07:53

使用VBA宏 Sub delrow() '假设年龄在C列，性别在D列 h = Sheets("Sheet1").[C65536].End(xlUp).Row '取最大数据行 For i = 2 To h '假设第一行为标题行，数据从第2行开始 age = Sheets("Sheet1").Range("C" & i) sex = Sheets("Sheet1").Range("D" & i) If (age > 16 And age < 50 And sex = "女") Or (age > 16 And age < 60 And sex = "男") Then Sheets("Sheet1").Rows(i).Delete i = i - 1 h = h - 1 End If Next i End Sub

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息