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

Posted 2021-05-04

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

答案

To remove repeated characters _{^{(semi-colons in this case)}}

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

现在该文档连续不会有一个分号。

---

Remove repeated characters using a VBA function:

以下函数使用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中删除连续的分号。