2014-01-25 176 views
-2

我需要删除电子表格单元格列中复制的单词。删除excel单元格列中的重复单词

我可以使用Excel或OpenOffice,因为我都有。

我想摆脱单元格内任何重复的单词...例如...快乐,悲伤,有趣,快乐,愚蠢,悲伤,快乐, - 会变得 - 快乐,伤心,有趣,愚蠢,jokey,(删除了重复的单词。)

我需要一步一步地指导如何创建一个宏并将其应用到有问题的单元格列!谢谢你的帮助!

+0

您是否尝试过研究? – Idris

+0

很快!感谢您提供丰富的答案!是的,我有!我整个下午都在谷歌上,最终决定询问一些专家,他们是否可以提供帮助,因为我试过的东西没有工作!再次感谢! – user3235839

+0

Hmmmn ...我输入了您提供的解决方案,似乎并不奏效?奇怪的。任何人有任何好的建议?谢谢! – user3235839

回答

0

选择要处理和运行下面简单的宏细胞:

Sub CellKleaner() 
    Dim c As Collection, r As Range, v As String 
    Dim v2 As String 
    For Each r In Selection 
     v = r.Text 
     If InStr(1, v, ",") > 0 Then 
      Set c = New Collection 
      ary = Split(v, ",") 
      v2 = ary(0) 
      c.Add ary(0), CStr(ary(0)) 
      For i = LBound(ary) To UBound(ary) 
       On Error Resume Next 
       c.Add ary(i), CStr(ary(i)) 
       If Err.Number > 0 Then 
        Err.Number = 0 
        On Error Resume Next 
       Else 
        v2 = v2 & "," & ary(i) 
       End If 
      Next i 
      r.Value = v2 
      Set c = Nothing 
     End If 
    Next r 
End Sub 
0

透视表可用于细胞之间去除重复:

enter image description here