[已解决]单元格内容排序

france723

如图所示, 单元格内容 I1,I10,I2,I3,I4,I9 排序混乱
想实现,单元格内容升序排序 I1,I2,I3,I4,I9,I10
如果单元格内容变化, 程序一样使用

最佳答案

月排行榜 / 总排行榜

grf1973

2017-3-28 14:37

B1=px(A1)

1. Function px(x, n)   'x为要排序的字符，n为数字前字母的个数
   
2.     xrr = Split(x, ",")
   
3.     Dim arr()
   
4.     For i = 0 To UBound(xrr)
   
5.         s = Val(Mid(xrr(i), n + 1))
   
6.         If s > maxs Then
   
7.             maxs = s
   
8.             ReDim Preserve arr(s)
   
9.         End If
   
10.         arr(s) = xrr(i)
    
11.     Next
    
12.     For i = 0 To maxs
    
13.         If arr(i) <> "" Then px = px & "," & arr(i)
    
14.     Next
    
15.     px = Mid(px, 2)
    
16. End Function
    

复制代码

跳转到最佳答案楼层

蓝桥玄霜

B1=px(A1)
请见代码。

grf1973

B1=px(A1)

1. Function px(x, n)   'x为要排序的字符，n为数字前字母的个数
   
2.     xrr = Split(x, ",")
   
3.     Dim arr()
   
4.     For i = 0 To UBound(xrr)
   
5.         s = Val(Mid(xrr(i), n + 1))
   
6.         If s > maxs Then
   
7.             maxs = s
   
8.             ReDim Preserve arr(s)
   
9.         End If
   
10.         arr(s) = xrr(i)
    
11.     Next
    
12.     For i = 0 To maxs
    
13.         If arr(i) <> "" Then px = px & "," & arr(i)
    
14.     Next
    
15.     px = Mid(px, 2)
    
16. End Function
    

复制代码

france723

grf1973 发表于 2017-3-28 14:37
B1=px(A1)

老师, 对于我的这个问题, 您给我的代码无需改动, 还是要相应变换
我没有相应变换您给我的代码, 在A2单元格输入=px A1, 提示错误
我是新手, 希望老师帮忙

france723

蓝桥玄霜 发表于 2017-3-28 12:41
B1=px(A1)
请见代码。

老师, 您给我的代码截图里面没有px函数阿, 没有看懂 , 希望老师解释一下,我是新手

Excel学徒123

france723 发表于 2017-3-28 17:47
老师, 您给我的代码截图里面没有px函数阿, 没有看懂 , 希望老师解释一下,我是新手

自定义函数，需要你把代码Copy进去再写这个函数

france723

Excel学徒123 发表于 2017-3-28 18:00
自定义函数，需要你把代码Copy进去再写这个函数

grf1973

做了个附件

france723

grf1973 发表于 2017-3-28 19:59
做了个附件

谢谢大神, 如果就在A1本身生成, 替换原有的错误顺序,如何实现?

grf1973

在A列单元格中改动，会自动排序。

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Count > 1 Then Exit Sub
   
3.     If Target.Column > 1 Then Exit Sub
   
4.     Application.EnableEvents = False
   
5.     If Target = "" Then Exit Sub
   
6.     For n = 1 To Len(Target)
   
7.         If Mid(Target, n, 1) Like "[0-9]" Then Exit For
   
8.     Next
   
9.     Target = px(Target, n - 1)
   
10.     Application.EnableEvents = True
    
11. End Sub
    

复制代码