vba字符串排序，按数值大小来排（固定字符+数值）：

如有：A1，A2，B2，B1，A11，B12。。。
排序后：A1，A2，A11，B1，B12
这里的A，B可能就是字符串AAA或者汉字。

推荐答案 2012-09-27

åè®¾è¿ä¸åæ°æ®å¨Aåã
æä»¬å¯ä»¥å¨Båæ·»å ä¸ä¸ªè¾å©åï¼æåºååå é¤è¿ä¸ªè¾å©åãã
è¿æ ·å¨B1è¾å¥ï¼
=LEFT(A1,MATCH(0,0/MID($A1,ROW(INDIRECT("1:" &LEN(A1))),1),0)-1)&TEXT(RIGHT(A1,LEN(A1)-MATCH(0,0/MID($A1,ROW(INDIRECT("1:" &LEN(A1))),1),0)+1),"00000#")

åæ¶æä¸CTRL+SHIFT+åè½¦ã
ä¸æå¤å¶å¡«ååï¼
éæ©Båï¼å¤å¶ï¼å³é®éæ©æ§ç²è´´--æ°å¼ã
éæ©ABä¸¤åæåºï¼éæ©Båååºã

ç¡®å®åå é¤Båå³å¯è¿½é®

温馨提示：答案为网友推荐，仅供参考

当前网址：http://00.wendadaohang.com/zd/ZTDD0nrj0.html

其他回答

第1个回答 2012-09-27

A01
A02
B02
B01
A11
B12
既然是文本排序，那么数字的编号位数要相同。

第2个回答 2012-09-27

这要区分对待了，先按汉字排序后再按数字排序，可采用先把他们分列再排序的方法（采用数组中循环由一列的数组变成两列的数组，再按这两列直接排序

相似回答

vba 中字符串按照顺序排列答：i, 1) '拆分字符串到数组arr Next i '排序 For i = 1 To b - 1 '外循环次数 For j = 1 To b - i '内循环次数 If Asc(arr(j)) > Asc(arr(j + 1)) Then '比下一个大则交换位置 tmp = arr(j) arr(j) = arr(j + 1) arr(j + 1) = tmp ...

...在线等啊! 1、将随意输入的十个字符串按长度从大到小排答：Sheet1.Range("A1").Resize(10, 1) = WorksheetFunction.Transpose(arr)MsgBox "字符串排序;" & Join(arr, " ") & vbCrLf & "字符串排序结果保存在,工作表sheet1的A列"End Sub Sub T2()Dim arr(1 To 10), jg()For i = 1 To 10 arr(i) = Application.InputBox("输入一个任意数:...

VBA根据数字排序答：代码如下：Sub 按照前2位数字排序()Dim i As IntegerDim x As Stringxr = Cells(65535, 1).End(xlUp).RowFor i = 1 To xrx = Left(Range("a" & i), 2)Range("z" & i) = xColumns("a:z").Select Selection.Sort Key1:=Range("z1"), Order1:=xlAscending, Header:=xlGu...

Excel,VBA有函数对字符进行快速排序吗?答：EXCEL的VBA没有PYTHON、PERL、PHP这么高级，没有对数组进行排序、字符串排序的系统函数，需要自己编程排序，一般可以使用选择法。例子程序执行如下图：代码：Option ExplicitSub x() Dim s As String s = "aAx1字符串" Debug.Print s Debug.Print strSort(s)End SubFunction strSort(ByVa...

大家正在搜

vba取字符串特定字符 vba数字转字符串 vba截取某个字符前的字符串 vba 字符串定义 vba包含字符串函数 vba字符串替换函数 vba 字符串 vba字符串对比 vba 包含某字符串