批量指定文字之后的内容

csz1996

    求助各位大佬，我在处理数据的时候，想要把每行中含“Z370”内容之后的数据全部删除


得到如图所示的结果。
请问大伙有什么方法可以快速解决吗，数据有20000多条

A1233515

VBA解法供参考

梦幻的流星

示例.zip (15.56 KB, 下载次数: 5)

2021-8-12 17:07 上传

点击文件名下载附件

csz1996

A1233515 发表于 2021-8-12 17:05
VBA解法供参考

因为我对VBA不熟悉，您能解释一下下这几串代码的详细意思嘛。我好针对自己的数据进行修改
拜托拜托

A1233515

已注释，供参考

csz1996

A1233515 发表于 2021-8-13 10:01
已注释，供参考

太感谢了，楼主永葆青春

tony@cq

PQ也是处理大数据的好工具。

csz1996

tony@cq 发表于 2021-8-13 12:33
PQ也是处理大数据的好工具。

谢谢谢谢~ 已成功解决

有料大排档

1. function js(){
   
2.         var ucc=ActiveSheet.UsedRange.Columns.Count
   
3.         for (var urc=1; urc<ActiveSheet.UsedRange.Count; urc++){
   
4.                 ActiveSheet.UsedRange.Item(urc).Select()
   
5.                 if (ActiveCell.Text=="Z370"){
   
6.                         var acr=ActiveCell.Row
   
7.                         var acc=ActiveCell.Column
   
8.                         Range(Cells.Item(acr,acc),Cells.Item(acr,ucc)).Select()
   
9.                         Selection.Clear()
   
10.                 }
    
11.         }
    
12. }

复制代码

尝试一下JS脚本