如B5:P10有许多特殊字符"["每个单元都有多个这样[特殊字符如何用VBA删除(B5:P10)范围的特殊字符代码最好有(B5:P10)方便修改http://pan.baidu.com/s/10D4fG文件以短横为特殊字符...
如B5:P10有许多特殊字符"["
每个单元都有多个这样[特殊字符
如何用VBA删除(B5:P10)范围的特殊字符
代码最好有(B5:P10)方便修改
http://pan.baidu.com/s/10D4fG
文件
以短横为特殊字符
你最好吧特殊字符放在一个字符串里，我可以试试为你写一个
Const sList = "[]{}【】（）()", sRange = "B5:P10"
Sub Arrange()
Dim aRr
Dim i As Integer, j As String
Dim rT, rC As Range
Set rT = Sheets(1).Range(sRange)
ReDim aRr(1 To Len(sList))
For i = 1 To UBound(aRr)
aRr(i) = Mid(sList, i, 1)
Next
For Each rC In rT
j = rC
For i = 1 To UBound(aRr)
j = Replace(j, aRr(i), "")
Next
rC = j
Next
End Sub
你可以自己修改第一句中的区域和需要剔除的特殊字符
