[已解决]请高手帮忙看下如何删除这个字旁边的多字

qiongmei

我附件上有一个表格，我想在d列，当出现“多”字的时候，执行代码后他会删掉多字，例如d1是大1多，执行代码后他会变成大1，如果d2是大2多，执行代码后变成大2，谢谢高手们的帮忙。

最佳答案

月排行榜 / 总排行榜

zjdh

2012-7-17 10:06

Book2.rar (6.67 KB, 下载次数: 11)

2012-7-17 10:06 上传

点击文件名下载附件

跳转到最佳答案楼层

oobird

[D:D].Replace "多", ""

dongqing1998

1. 
   
2. Sub test()
   
3.     Dim r As Range, rng As Range, s$
   
4.     Set rng = Range("d1:d" & Range("d65536").End(3).Row)
   
5.     s = InputBox("请输入你想删掉的字符串", "输入字符")
   
6.     For Each r In rng
   
7.         r = Replace(r, s, "")
   
8.     Next
   
9. End Sub
   
10. 
    

复制代码

zjdh

Book2.rar (6.67 KB, 下载次数: 11)

2012-7-17 10:06 上传

点击文件名下载附件