按要求提取字母和顺序，并根据规则排序

卡拉不ok

从原表字段列，先提取第五个字段，如果是字母，就根据结果的顺序，重新组合，并按字母顺序排序，如果是数字，重新组合即可，需要用vba，因为数字量过大

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024..4.14
   
2.     With Sheets("2024 3月")
   
3.         r = .Cells(Rows.Count, 1).End(3).Row
   
4.         Set Rng = .[a2].Resize(r - 1, 3)
   
5.         arr = Rng.Value
   
6.         For i = 1 To UBound(arr)
   
7.             st = arr(i, 1)
   
8.             arr(i, 2) = Mid(st, 5, 1)
   
9.         Next
   
10.         Rng.Value = arr
    
11.         Rng.Sort .[b2], 1
    
12.         For i = 1 To UBound(arr)
    
13.             st = arr(i, 1)
    
14.             .Cells(i + 1, 3) = Mid(st, 1, 2) & Mid(st, 5, 1) & Right(st, 1) & Mid(st, 3, 2) & Mid(st, 6, 4)
    
15.         Next
    
16.     End With
    
17. End Sub
    

复制代码

gjbfight

好了 看看是不是这个效果

LIUZHU

打个样再说明清楚点吧

卡拉不ok

gjbfight 发表于 2024-4-14 22:17
好了 看看是不是这个效果

提取的第五个字母，跟重新排序的两个列名称咋命名啊，需要命名第五个字母，跟重新排序

grf1973

要有模拟结果。至少附件的结果看不出提取数字和字母有啥差别。

gjbfight

卡拉不ok 发表于 2024-4-15 08:39
提取的第五个字母，跟重新排序的两个列名称咋命名啊，需要命名第五个字母，跟重新排序

能描述的清楚些或者提供下想呈现的效果吗？你说的命名我不懂 重新排序我也没懂 根据什么逻辑排序？

grf1973

猜了一下，如果是字母，则重新组合后所有字母排序，并加上数字；如果是数字，则只需要重新组合结果。