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

rzqf

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

这个公式看起来比较简单，经过测试，不能满足要求，，，请看下图。。。100kg的都不能分离

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|r=x.scan(/(\d+?)(\D+\d?)/).flatten;(r[0].nil?)?['1',x]:r}")
   
8.     Sheet1.[b2].Resize(UBound(y) + 1, 2) = y
   
9.     Set ojs = Nothing
   
10.     'Stop
    
11. End Sub

复制代码

qy1219no2

rzqf 发表于 2015-1-5 08:10
这个公式看起来比较简单，经过测试，不能满足要求，，，请看下图。。。100kg的都不能分离

B2公式修改为：

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

复制代码

C2公式不变

qy1219no2

B2最简公式来袭：

1. =MAX(--TEXT(MID(A2,ROW($1:$19),COLUMN($A:$J)),"0;;0;\1"))

复制代码

小花鹿

这么热闹，我也来一个：
Sub test()
Dim ar, i&, j&, s, s1, t
t = Timer
ar = [a1].CurrentRegion
For i = 1 To UBound(ar)
    s = Split(ar(i, 1), "-")
    s1 = Format(s(0), "0000")
    For j = 1 To UBound(s)
        s1 = s1 & "-" & Format(s(j), "0000")
    Next j
    ar(i, 1) = s1
    s1 = ""
Next i
[b1].Resize(i - 1) = ar
Range("A1:B" & i - 1).Sort Key1:=Range("b1"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        SortMethod:=xlPinYin, DataOption1:=xlSortNormal
[b1].Resize(i - 1) = ""
MsgBox Format(Timer - t, "0.000")
End Sub

rszmyc

aoe1981 发表于 2015-1-4 23:07
这是我写的，最后一步没有数字时显示1用倒了07版以上的函数：iferror，有点遗憾：

告诉我把A列变成B列用VBA怎么写，也就是查找A列的“主材-”删除或替换空，然后将此单元格右对齐

aoe1981

rszmyc 发表于 2015-1-7 19:09
告诉我把A列变成B列用VBA怎么写，也就是查找A列的“主材-”删除或替换空，然后将此单元格右对齐

1. Sub ss()
   
2.     Dim arr, n&
   
3.     n = Cells(Rows.Count, 1).End(xlUp).Row
   
4.     If n > 1 Then arr = Range("a1:a" & n).Value Else ReDim arr(1 To 1, 1 To 1): arr(1, 1) = Range("a1").Value
   
5.     For i = 1 To n
   
6.         If arr(i, 1) <> "" Then arr(i, 1) = Replace(arr(i, 1), "主材-", "")
   
7.     Next i
   
8.     Range("b1").Resize(n) = arr
   
9. End Sub
   

复制代码

qy1219no2

rszmyc 发表于 2015-1-7 19:09
告诉我把A列变成B列用VBA怎么写，也就是查找A列的“主材-”删除或替换空，然后将此单元格右对齐

这还用VBA？简单问题为嘛非要复杂化呢？
选中A列，执行替换功能，查找内容输入：主材-，替换为什么也不输入，点“全部替换”，再点“居右”按钮，搞定，快捷、简单；
如果要保留A列，则先将A列内容复制到B列，再对B列替换，就可以了。

rszmyc

aoe1981 发表于 2015-1-7 19:25

这个程序能替换，替换的是“B”l列，我替换的是“A”列，，，但替换后的“那个单元格”没有靠右对齐，而且把带“-”的单元格替换成日期格式啦。。。。无语

rszmyc

qy1219no2 发表于 2015-1-7 21:40
这还用VBA？简单问题为嘛非要复杂化呢？
选中A列，执行替换功能，查找内容输入：主材-，替换为什么也不输 ...

点“全部替换”，再点“居右”按钮，，，，那不这一列的单元格都靠右对齐啦，，，，我要的就是“替换过的单元格”靠右对齐。。。。