如何删除字符串中的重复项

Question

我有一个文件，包含38,000条记录，每行包含2个或更多';'在末尾。是否有任何公式可以消除结尾重复的';'在Excel或其他任何工具中

Answer 1

要删除重复的字符 ^{_{（在这种情况下为分号）}}

1. 打 CTRL + H
2. 查找内容： ;;（两个分号）
3. 替换为： ;（一个分号）
4. 点击全部替换。 完成后，重复步骤4直到找不到更多匹配项。

现在，文档中连续的分号不得超过一个。

---

使用VBA功能删除重复的字符：

以下功能使用VBA可以执行相同的操作，并且对于您选择的任何字符：

Function removeDoubleChars(txt As String, doubleChar As String) As String
'removes all multiple-consecutive [doubleChar] within [txt]
    Do
        txt = Replace(txt, doubleChar & doubleChar, doubleChar)
    Loop While InStr(txt, doubleChar & doubleChar) > 0
    removeDoubleChars = txt
End Function

您可以像Range("A1") = removeDoubleChars ( Range("A1"), ";")这样使用，以从单元格A1中删除连续的分号。