如何去除單元格字串中的重複字元或單詞？

---

如果您需要清理 Excel 電子表格中包含重複字元或單詞的單元格，本循序漸進教程適合您。Microsoft Excel 是一個有效的應用程式，用於處理資料，並提供許多用於文字操作的功能和方法。

在本教程中，我們將向您展示如何使用 Excel 的內建函式來去除單元格中重複的字元或單詞。本課程將使您掌握有效簡化資料以進行更好的分析或簡單地清理電子表格的知識和技能。

去除單元格字串中的重複字元或單詞

在這裡，我們將首先使用 VBA 建立一個使用者定義的函式，然後使用公式，最後使用自動填充柄完成任務。讓我們來看一個簡單的流程，瞭解如何在 Excel 單元格的字串中去除重複字元或單詞。

步驟 1

考慮一個 Excel 表格，其中您有類似於下圖的重複字元。

首先，右鍵單擊工作表名稱，然後選擇“檢視程式碼”以開啟 VBA 應用程式。

右鍵點選 > 檢視程式碼。

步驟 2

然後單擊“插入”，選擇“模組”，然後將下面的程式碼複製到文字框中。

插入 > 模組 > 複製。

程式碼

Function RemoveDupes1(pWorkRng As Range) As String
Dim xValue As String
Dim xChar As String
Dim xOutValue As String
Set xDic = CreateObject("Scripting.Dictionary")
xValue = pWorkRng.Value
For i = 1 To VBA.Len(xValue)
   xChar = VBA.Mid(xValue, i, 1)
   If xDic.Exists(xChar) Then
   Else
      xDic(xChar) = ""
      xOutValue = xOutValue & xChar
   End If
Next
RemoveDupes1 = xOutValue
End Function

步驟 3

現在使用 Alt + Q 關閉 VBA。然後單擊一個空單元格，輸入公式 =removedupes1(A2)，然後單擊 Enter 獲取第一個值。然後使用自動填充柄向下拖動。

Alt + Q > 空單元格 > 公式 > Enter > 拖動。

這就是如何在 Excel 中去除字串中重複字元的方法。

注意

如果您想刪除以逗號分隔的重複值，請使用以下程式碼並使用公式 =RemoveDupes2(A2,",")。

程式碼

Function RemoveDupes2(txt As String, Optional delim As String = " ") As String
   Dim x
   With CreateObject("Scripting.Dictionary")
      .CompareMode = vbTextCompare
      For Each x In Split(txt, delim)
         If Trim(x) <> "" And Not .exists(Trim(x)) Then .Add Trim(x), Nothing
      Next
      If .Count > 0 Then RemoveDupes2 = Join(.keys, delim)
   End With
End Function

結論

在本教程中，我們使用了一個簡單的示例來演示如何從 Excel 單元格的字串中刪除重複字元或單詞，以突出顯示特定資料集。