作者：乔山办公网日期：
返回目录：excel表格制作
1、首先在电脑上用2007版excel软件打开目标文件知，如图所示。
2、在B1单元格道中输入公式【=left(A1,find("L",A1)-1)】，如图。
3、然后按下键盘上的回回车键，进行确定。
4、完成以上设置后，即可达到提问者的要求。答
SUBSTITUTE(text,old_text,new_text,instance_num)
Text 为需要百替换其中字符的文本度，或对含有文本的单元格的引用。知
Old_text 为需要替换的旧文本。
New_text 用于替换old_text的文本。
Instance_num 为一数值道，用来指定以new_text替换第几次出现的old_text。如回果指定了instance_num，则只有满足要求的old_text被替换；否则将用new_text替换Text中出现的所答有old_text。
1.
REPLACE(old_text,start_num,num_chars,new_text)
REPLACEB(old_text,start_num,num_bytes,new_text)
Old_text 是要替换其部分字符的文本。
Start_num 是要用 new_text 替换的 old_text 中字符的位置。
Num_chars 是希望 REPLACE 使用 new_text 替换 old_text 中字符的个数。
Num_bytes 是希望 REPLACEB 使用 new_text 替换 old_text 中字节的个数。
New_text 是要用于替e5a48de588b6e799bee5baa6e997aee7ad94336换 old_text 中字符的文本。
2.
SUBSTITUTE(text,old_text,new_text,instance_num)
Text 为需要替换其中字符的文本，或对含有文本的单元格的引用。
Old_text 为需要替换的旧文本。
New_text 用于替换 old_text 的文本。
Instance_num 为一数值，用来指定以 new_text 替换第几次出现的 old_text。如果指定了 instance_num，则只有满足要求的 old_text 被替换；否则将用 new_text 替换 Text 中出现的所有 old_text。
按下ALT+F11,菜单来:插入-模块,然后复制下面自代码
假设你在A1中输入字符串,那就在知B1中输入=ORDER(A1)
这样B1就是你要得到的数道字.
Public Function order(ByVal m As String) As String
Dim a() As String
ReDim a(1 To Len(m)) As String
For x = 1 To Len(m)
If InStr(1, m, Mid(m, x, 1)) < x Then
a(x) = ""
Else
a(x) = Mid(m, x, 1)
End If
Next
For x = 1 To Len(m)
order = order & a(x)
Next
End Function