找个Excel高手 很简单的问题

按下ALT+F11,菜单:插入-模块
复制下列代码至下方的编辑框,退出
假设你13579输入在A1,那在B1输入,=ORDER(A1)

Public Function ORDER(ByVal N As String) As String
ORDER = "1234567890"
For X = 1 To Len(N)
ORDER = Replace(ORDER, Mid(N, X, 1), "")
Next
End Function

你是要13579（同一个单元格A1）变成24680（同一个单元格）：
如果数字简单的直接输入，也可以设置简单公式：在B1单元格输入＝A1+11111-10 回车。（因不成规律，难设函数，简单+11111会＝24690）
你是要
1（A1）
3（A2）
5（A3）
7（A4）
9（A5）
变成
2（B1）
4（B2）
6（B3）
8（B4）
0（B5）
在B1单元格输入=RIGHT(A1+1,1) 回车。再往下拉。

在右边第一格输入一个公司：
＝左边*2回车
注意：左边是A1(A表述数字所在的列，1表示数字所在的行）
然后右边第一格就会出现数字2，以鼠标点一下该格，移动鼠标到该格右下角，直至便成为黑色十字形，一直下拉就可以了

鼠标直接点上要换数字的地方，那个单元格会出现一个比较黑的方框，直接输入数字就可以了。