[已解决]求助：由于数量太大，特求 ...

水木

求助：由于数量太大，特求助于老师用VBA，对应条件删除。.rar (13.45 KB, 下载次数: 11)

2016-9-18 18:40 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

云影

2016-9-18 19:22

求助：由于数量太大，特求助于老师用VBA，对应条件删除。.rar (21.16 KB, 下载次数: 20)

2016-9-18 19:24 上传

点击文件名下载附件

跳转到最佳答案楼层

云影

求助：由于数量太大，特求助于老师用VBA，对应条件删除。.rar (21.16 KB, 下载次数: 20)

2016-9-18 19:24 上传

点击文件名下载附件

雨吧

1. Sub YuBa()
   
2.     Dim rng As Range, i%
   
3.     For i = 1 To [f65536].End(3).Row
   
4.         Set rng = Cells(i, "f")
   
5.         If InStr(rng(1, 0), "解释：") Then rng = ""
   
6.         If InStr(rng, "笔画数：") Or InStr(rng, "部首：") Then rng = ""
   
7.     Next
   
8. End Sub

复制代码

雨吧

求助：由于数量太大，特求助于老师用VBA，对应条件删除。.rar (19.94 KB, 下载次数: 7)

2016-9-18 19:37 上传

点击文件名下载附件

小小水皮1

不是已经完成了吗