如何摆脱使用vba的所有特殊字符

我的数据包含#,/, '等我如何摆脱所有这些东西，并用""替代它们。我想将此应用于Sheet1所有单元格？如何摆脱使用vba的所有特殊字符

2014-03-27 Aleksei Nikolaevich

a，查找正则表达式可能是'[＃/'] +' – sln

Sub RemoveSpecChars() 
    Dim Token As Variant 
    For Each Token In Array("-", "\", "#") 'etc. 
     Sheet1.UsedRange.Replace Token, "" 
    Next Token 
End Sub

来源

2014-03-27 21:06:41 mwolfe02

如果性能是你可以把屏幕在次年初更新掀起了关注（'Application.ScreenUpdating = FALSE'），并把它背在子结束之前（'Application.ScreenUpdating = True'）。 – mwolfe02

通常情况下，从每个令牌的开始处开始，需要很长时间，更不用说可能的内存重新分配，并且它一次只能处理单个字符替换。 – sln

显然它取决于UsedRange的大小和令牌的数量。我在中等尺寸的工作表上测试了它，其中UsedRange.Count = 135702.它在大约2秒内运行。当表现开始下降时，它可能会大幅下降。 – mwolfe02

如何摆脱使用vba的所有特殊字符

回答

相关问题