都来看看这个排序怎么实现，再来看看单位前面的量怎么提取

rzqf

满坛皆为吾师 发表于 2015-1-4 15:32
这下全对了，可以跟据最大-的数量来相应扩展公式中的常量数组和取数量
插入行的话要把范围改为=INDIRECT ...

麻烦把数组公式发上来，我的 EXECL 2003 打开后公式没了

qy1219no2

一直拘泥于楼主的源数据不改变的情况，并绕开Range.Sort方法，反倒画蛇添足了。如下代码0.03秒内解决问题：

1. 
   
2. Sub txtNumIdSort()
   
3.     nR = [a65536].End(xlUp).Row
   
4.     arr = [a1].Resize(nR)
   
5.     For i = 1 To nR
   
6.         brr = Split(arr(i, 1), "-")
   
7.         arr = ""
   
8.         For k = 0 To UBound(brr)
   
9.             arr(i, 1) = arr(i, 1) & Format(brr(k), "0000") & "-"
   
10.         Next
    
11.     Next
    
12.     Application.ScreenUpdating = False
    
13.     [b1].Resize(nR) = arr
    
14.     [a1].Resize(nR, 2).Sort [b1]
    
15.     [b1].Resize(nR).Clear
    
16.     Application.ScreenUpdating = True
    
17. End Sub

复制代码

qy1219no2

单位提取中，B2公式（数组公式）：

1. =--TEXT(LEFT(A2,MAX((MID(A2,ROW($1:$9),1)>"9")*ROW($1:$9))-1),"0;;;\1")

复制代码

C2（普通公式）：

1. =SUBSTITUTE(A2,B2,"")

复制代码

bluexuemei

1. Sub splitdata()'数量和单位分离
   
2. '需要安装ACTIVERUBY ，下载地址 http://www.artonx.org/data/asr/Ruby-2.1.1.msi
   
3.     Dim y, ojs As Object
   
4.     Set ojs = CreateObject("scriptcontrol"): ojs.Language = "rubyscript"
   
5.     ojs.eval ("def aa(aa) $aa=aa.flatten end")
   
6.     y = ojs.Run("aa", Sheet1.Range("A2", [a2].End(4)).Value)
   
7.     y = ojs.eval("$aa.map{|x|x.split(/(?=\D)/)}.map{|x|x[1].to_s==''?['1',x[0]]:x}")
   
8.     Sheet1.[b2].Resize(UBound(y) + 1, 2) = y
   
9.     Set ojs = Nothing
   
10.     'Stop
    
11. End Sub

复制代码

rzqf

qy1219no2 发表于 2015-1-4 21:59
单位提取中，B2公式（数组公式）：C2（普通公式）：

你这个数组公式可以实现分离，赞一个

aoe1981

这是我写的，最后一步没有数字时显示1用倒了07版以上的函数：iferror，有点遗憾：

1. =IFERROR(--LEFT(A2,MATCH(9E+307,--MID(A2,1,ROW(INDIRECT("1:"&LEN(A2)))))),1)

复制代码

hlly888

请看附件                     

hlly888

单位提取.zip (52.42 KB, 下载次数: 37)

2015-1-5 00:55 上传

点击文件名下载附件

rzqf

bluexuemei 发表于 2015-1-4 22:02

对于100kg和100m(架空线)不能分离

这个VBA基本上都能实现，个别的单位不行，看图。。。

rzqf

hlly888 发表于 2015-1-5 00:55

感谢hlly888 老师提供的代码，经测试，非常完美，再次感谢，学习了