excel vba替换字符？ vba替换字符串中的字符
Excel VBA 怎么替换单元格里头的特殊字符
Excel VBA 如何替换单元格里头的特殊字符
Excel VBA 中要实现 单元格的内容变化后更新到SQL Server中，但是如果出现英文状态下的单引号(')就会出错，如何判断单元格的内容是否包含单引号并用其他字符替换掉
------解决方案--------------------------------------------------------
http://topic.csdn/u/20100429/20/7c565a94-901f-4cb7-be62-4afd95b65fe3.html?52479
------解决方案--------------------------------------------------------
你的问题，我遇到过，这是我的解决办法：
'**********************************************************************************
'功能:去掉字符串内部的单引号字符
'**********************************************************************************
Public Function DeleteDyhInStr(ByVal ChStr As String) As String
Dim i As Integer, s As String
s = ChStr
i = InStr(s, "'")
Do While Not i = 0
If i = 1 Then
s = Mid(s, 2)
ElseIf i = Len(s) Then
s = Left(s, Len(s) - 1)
Else
s = Mid(s, 1, i - 1) & Mid(s, i + 1)
End If
i = InStr(s, "'")
Loop
DeleteDyhInStr = s
End Function
'**********************************************************************************
'结束
'**********************************************************************************
Excel VBA 字符替换
这个最简单了
用Replace语句：
例如：
Dim s as String
s = "axyzx"
s = Replace(s,"x","abc")
Msgbox s
那么这个时候就得到了：aabcyzabc
vba 如何进行字符替换
参考代码如下：
Replace("absdf*adf", "*", "")
注意：
如果要使用replace方法（而不是函数）替换的话 ：
Replace what:="~*",Replacement:=""
Excel VBA 字符替换
Sub LKJL()
SS = "x+1=3-x+2y"
Set reg = CreateObject("VBSCRIPT.REGEXP")
reg.Global = True
reg.Pattern = "[/+-/*///^=]"
Set mc = reg.Execute(SS)
bb = Split(reg.Replace(SS, "|"), "|")
For i = 0 To UBound(bb)
If Len(bb(i)) = 1 And Not IsNumeric(bb(i)) Then
aa = "1*" & bb(i)
Else
aa = bb(i)
End If
If i = UBound(bb) Then
cc = ""
Else
cc = mc.Item(i)
End If
kk = kk & aa & cc
Next
MsgBox kk
End Sub