如何刪除Excel單元格字串中的重複字符或單詞？

Author Xiaoyang Last modified 2025-08-23

在Excel中處理數據時，經常會遇到單元格中包含重複字符或重複單詞的情況。例如，您可能會有用戶生成的輸入、導出的日誌或產品代碼，其中字符或單詞可能多次出現。刪除這些重複項可以幫助清理數據以便進一步分析、提高可讀性，或者準備將字符串用於其他系統。

本指南介紹了幾種刪除單個單元格內重複字符或重複單詞的方法。您可以根據您的Excel版本、技術熟悉程度以及數據中使用的分隔符類型選擇最合適的解決方案。無論您的數據涉及單個字符還是用空格或標點分隔的整個單詞，下面都有您可以使用的一種實用方法。

使用Excel公式（動態數組）刪除重複字符或單詞
使用自定義函數刪除文本字符串中的重複字符
使用自定義函數刪除由標點分隔的重複單詞

使用Excel公式（動態數組）刪除重複字符或單詞

如果您使用的是Microsoft 365或Excel 2021及更高版本，則可以利用動態數組公式從單元格中刪除重複字符或單詞——完全無需VBA。這些函數，如TEXTSPLIT、UNIQUE、TEXTJOIN和MID，使拆分、去重並重新構建字符串變得非常容易，直接在工作表中完成。

如果您不想使用宏、想要高效的解決方案並且熟悉Excel的最新公式功能，此方法特別推薦。

優點： 當源數據更改時即時重新計算，不需要啟用宏或特殊權限，公式可以輕鬆應用於大範圍的數據。
缺點： 僅適用於Microsoft 365的Excel、Excel 2021或更新版本（不適用於Excel 2019或更早版本）。

要刪除單元格內的重複字符（例如“banana” → “ban”）：

1. 選擇您希望顯示結果的單元格（例如，與源單元格A2相鄰的單元格B2），然後輸入以下公式：

=TEXTJOIN("",,UNIQUE(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1)))

此公式使用MID將A2的內容拆分為單個字符，使用ROW(INDIRECT(...))生成順序位置，使用UNIQUE提取唯一字符，然後使用TEXTJOIN將它們重新組合成一個文本字符串。

2. 按Enter鍵。公式的結果將顯示已刪除重複字符的A2字符串，保留原有順序。要對其他行應用相同的操作，請使用填充柄向下複製公式。

注意：如果看到#NAME?錯誤，您的Excel版本可能不支持這些功能。請確認您使用的是Microsoft 365的Excel或Excel 2021或更高版本。

故障排除：有時候，額外的空格或標點可能會干擾結果。如果您的數據格式不一致，請考慮使用TRIM或TEXTSPLIT附帶其他參數。

使用動態數組公式有助於保持工作流程的高效性和最新性，並簡化簡單和複雜字符串模式的數據清理任務。

使用自定義函數刪除文本字符串中的重複字符

如果您有一系列包含文本字符串的單元格，並且需要從每個單元格中刪除重複字符——例如，將“aabbcc”轉換為“abc”，如下所示——自定義VBA函數可以幫助您快速完成此操作，特別是當您使用的Excel版本不支持高級數組公式時。

Duplicate characters removed from each cell

1. 按住ALT + F11鍵打開Microsoft Visual Basic for Applications窗口。

2. 點擊插入 > 模塊，並將以下代碼粘貼到 模塊窗口中。確保將代碼添加到模塊的開頭以避免與其他宏衝突。

VBA代碼：刪除單元格中文本字符串的重複字符

Function RemoveDupes1(pWorkRng As Range) As String
'Updateby Extendoffice
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. 然後保存並關閉VBA代碼窗口，返回到您的工作表。在空白單元格中輸入此公式 =removedupes1(A2) （這裡A2是包含要處理字符串的單元格）。請參見下圖：

Formula entered in the first cell

4. 按Enter鍵進行計算。拖動填充柄向下應用函數到列中的所有其他相關單元格，您將看到每個相應單元格中的所有重複字符都被立即刪除。

Formula populated to the below cells

提示：保留首次出現的順序——該函數保留每個字符的第一次出現並刪除單元格內的後續重複項。

注意：通過VBA添加的自定義函數（UDF）僅在存儲代碼的工作簿中可用。如果移動或共享您的工作簿，請確保在目標文件中包含或重新插入宏。此外，運行代碼需要啟用宏。

使用 Kutools AI 解鎖 Excel 的魔法

智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
自訂公式：生成量身定制的公式，簡化您的工作流程。
VBA 編碼：輕鬆編寫和實現 VBA 代碼。
公式解釋：輕鬆理解複雜的公式。
文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！

使用自定義函數刪除由標點分隔的重複單詞

在數據由標點分隔的情況下——例如逗號、分號或其他符號——您可能希望在保留每個單詞首次出現的情況下刪除單元格內的重複單詞。這對於標籤列表、類別或地址尤其有用。您可以使用定制的VBA函數有效地實現這一點。

1. 按住ALT + F11鍵打開Microsoft Visual Basic for Applications窗口。

2. 點擊插入 > 模塊，並將以下代碼粘貼到模塊窗口中。如果可能，將代碼放在新模塊的開頭以保持清晰。

VBA代碼：刪除單元格中由標點分隔的重複單詞

Function RemoveDupes2(txt As String, Optional delim As String = " ") As String
    Dim x
    'Updateby Extendoffice
    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

3. 保存並關閉VBA窗口後，返回到您的工作表。在數據旁邊的空白列中，輸入此公式：=RemoveDupes2(A2,",")。這裡，A2指的是您的目標單元格，“,"表示用作分隔符的標點符號。如果您的單詞由不同的標點分隔，可以將此逗號替換為其他字符（如“;”或空格）。

Formula entered in the first cell

4. 按Enter鍵確認，然後向下拖動公式以根據需要填充其他單元格。在此步驟之後，所有重複單詞都將從其各自的單元格中刪除，留下原始順序的唯一單詞。請參見下方的結果：

Formula populated to the below cells

注意：在公式中，您可以根據數據情況更改單元格引用和標點分隔符。如果使用多個字符或不同類型的分隔符（如空格和逗號的組合），可能需要進一步調整代碼。

提示：與所有VBA宏一樣，請記住備份您的工作簿並啟用宏以使用此功能。

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多