作者：乔山办公网日期：
返回目录：excel表格制作
按下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
SUBSTITUTE(text,old_text,new_text,instance_num)
Text 为需要替换zhidao其中字符的文本，或对含有文本的单元格的引用。
Old_text 为需要替换的旧专文本。
New_text 用于替换old_text的文本。
Instance_num 为一数值，用来指定以new_text替换第几次出现的old_text。如果指定了instance_num，则只属有满足要求的old_text被替换；否则将用new_text替换Text中出现的所有old_text。
1、比如，下图中表格数据来；现在要把数据前面的“GD”删除掉。
2、在B2单元格输入：=SUBSTITUTE(A2,"GD","")，按回车键，即可得出源结果8295411，
SUBSTITUTE(A2,"GD","")的A2是数据区域；“GD”是要删除的字符；“”是空。
3、光标点下B2单元格，并移到右下角实心小方框上，显示出+字时，鼠标左键双击，下方单元格即可相继得出结果。
4、B列数据保持选中的状态，鼠标放在选区上右击，弹出的菜单中点“复制”。
5、点“复制”后，鼠标再放在选区上右击，弹出的菜单中点粘贴选项的第二个“值”。
6、B列的数据即变成了只是数值格式，公式被删除了。然后，把zhidaoA列删除。B列即变成A列。用SUBSTITUTE函数删除表格字符串里某个字符操作完成。