作者：乔山办公网日期：
返回目录：excel表格制作
代码百如下度：问答
Sub 替换一版次权()
Dim Ra As Range
For Each Ra In Range("K8:K11")
If Ra = "a" Then
Ra = "b"
ElseIf Ra = "b" Then
Ra = "c"
ElseIf Ra = "c" Then
Ra = "aa"
End If
Next
End Sub
转换的百方式来解决此问题。
如下参考：
1、用VALUE函数将字符型数字转换成数字型，
value函数可以将表示数字的文本字符串转换为数字。它的语法结构是：value（text）。value函数只有一个参数文本。
2．用四种算术版本的字符将数度字权重转换为数字字体，您可以使用＋0、－0、＊1、／1来将字符数转换为数字。
3．将数字数字转换为文本数字。
使用文本函数将数字转换为文本类型，
文本函数的基本语法格式：文本（专值、格式、文本），
值:数值，计算数值的公式，或对包含数值的单元格属的引用。
格式文本：用作引用文本字符串的数字格式。
例如：C2＝text（b2，0），它成为文本类型。
4. 用& ""将数字转换为文本数字，如A3=B3& Amp;”“文本类型。
5. 在数字类型号前添加文本标识符“”或“”，如:D2=”，C2=D2& Amp;B2，它将被转换为文本类型号。
只有两个关键字最好不用百正则，IF INSTR两次就可度以了，如果关键字多一点，问可以使用for循环，例如：
str = ".需要处理的字符串，可以从文件、答区域、数组等.."
for each t in array("中国人民","美国纽约回","印度阿三")
if instr(str,t)>0 then
str = t
exit for
end if
next t
比正则表达式简单和答高效。
Sub xxx()
Dim c
For Each c In Range("c4:g9").Cells
c = Replace(c, "ADFGS", "ZXG")
Next c
End Sub