单元格内重复单词的删除

天生懒美人

各位大神好！
请教一下如何通过VBA代码来实现单元格内重复英文单词的删除？每1个单词都用1个空隔隔开了，如图所示：

秋枫

去重.zip (804 Bytes, 下载次数: 251)

2017-6-12 14:54 上传

点击文件名下载附件

选中要去重的单元格们，双击我提供的附件中的程序。

秋枫

1. 
   
2. Set selection = ExcelApp.selection
   
3. 
   
4. For Each Cell In Selection.Cells
   
5.         Cell.Value = removeDup(cell.Value)
   
6. Next
   
7. 
   
8. Function removeDup(s)
   
9.         Dim a
   
10.         a = Split(s, " ")
    
11.         d.removeall
    
12.         For Each i In a
    
13.                 d(i)=""
    
14.         Next
    
15.         removeDup=Join(d.keys," ")
    
16. End Function

复制代码

天生懒美人

秋枫 发表于 2017-6-12 14:55

你好，首先很感谢你的快速回复！

我将你的这段代码复制到VBE代码窗口后就保存，然后在表格的单元格内输入=removeDup(B2),按回车后提示下图所示，我是不是哪里弄错了呢？

秋枫

天生懒美人 发表于 2017-6-12 15:22
你好，首先很感谢你的快速回复！

我将你的这段代码复制到VBE代码窗口后就保存，然后在表格的单元格内 ...

不需要嵌入Excel文件运行。

直接双击二楼提供的vbs程序可以直接在外部运行。
VBScript代码和vba的语法会略有区别的。

三楼的代码就是VBS脚本中的主程序代码。只是方便查看原理，不需要使用。

如果要修改程序，直接在vbs程序上右键，选编辑就可以了。可以看到完整代码。

天生懒美人

秋枫 发表于 2017-6-12 15:31
不需要嵌入Excel文件运行。

直接双击二楼提供的vbs程序可以直接在外部运行。

那请问我我将那一段代码粘贴到哪里去呢？从哪里打开粘贴代码的地方呢？粘贴好后我要怎样去调用它呢？你说的这个我没有接触过，所以是完全陌生的。VBA我还用过两三回。

谢谢！

秋枫

天生懒美人 发表于 2017-6-12 15:37
那请问我我将那一段代码粘贴到哪里去呢？从哪里打开粘贴代码的地方呢？粘贴好后我要怎样去调用它呢？你说 ...

不需要粘贴。

你需要去重的话，
打开你要去重的文件，选中要去重的单元格，下载二楼提供的附件，双击二楼提供的vbs脚本就可以了。（你可以忽略三楼的代码）

天生懒美人

秋枫 发表于 2017-6-12 15:43
不需要粘贴。

你需要去重的话，

嗯嗯，我懂了！
刚试了下，是可以实现去重，但是，它能不能不区分大小写呢？比如说我的文本中有两个单词是for和For，是同一个的，只是有一个是全部小写，有一个是首字母大写其余小写，然后你的这个脚本就将它判定为两个不同的单词了，所以就没有将其中的一个去掉。这个情况可以优化一下的吗？

秋枫

天生懒美人 发表于 2017-6-12 15:58
嗯嗯，我懂了！
刚试了下，是可以实现去重，但是，它能不能不区分大小写呢？比如说我的文本中有两个单词 ...

去重.zip (811 Bytes, 下载次数: 88)

2017-6-12 16:25 上传

点击文件名下载附件

天生懒美人

秋枫 发表于 2017-6-12 16:26

秋老师，刚刚可能是我没说清楚。我的意思是脚本在去重的时候能不能不分大小写，比如说，文本中有For for和 FOR这三个词时，只保留For就可以了，但不要将原来的单词改成全部小写或者是全部大写，保持原样就可以了。您刚刚的那个脚本是会将单词全部变成小写了的