;;
(两个分号);
(一个分号)现在该文档连续不会有一个分号。
以下函数使用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
中删除连续的分号。