vba 处理不规范数据，根据单元数据判断后删除行或清空

haoduoyu 发布于 2021-12-12 20:26， 1471 次点击

系统导出的数据有点问题，需要进行处理，示范的数据如下。
要求：
判断第二列姓名第三行的字符长度大于8后，删除整行
判断各行第四列中数字打头的，清空该单元格

代码    姓名         班级    地址
100001    张三         11班    xxx街道1
100002    李四         12班    13807931232
100003    没有查到此人 21班    街道

2 回复

厨师王德榜2021-12-13 11:21

可以给出关键思路,代码很简单,你自己应该可以完成.
判断姓名长度 : len(cells(irow,2)) > 8
判断四列首字母为数字打头: instr("0123456789" ,left(trim(cells(irow,4)),1)) > 0
清空单元格: cells(irow ,4).value = ""
删除行 : rows(irow).delete
最后一个关键点:在Sheet中删除行,要采用倒循环.

haoduoyu2021-12-13 22:33

已经自己摸索解决，不过还是谢谢了