[已解决]有人能帮我，实现这种换算吗？ ^……^

liuguansky

借用上楼附件：正则处理（单位的规则不清，以第一个为准）

1. 
   
2. Sub JuSTTEST()
   
3.     Dim Arr, i&, ArrR()
   
4.     Arr = Range([f4], Cells(Rows.Count, "f").End(3)).Value
   
5.     ReDim ArrR(1 To UBound(Arr), 1 To 3)
   
6.     With CreateObject("vbscript.regexp")
   
7.         .Global = True
   
8.         .ignorecase = True
   
9.         For i = 1 To UBound(Arr)
   
10.             .Pattern = "(.+(ml|l|kg|g)[）)]*\*)(.+)）"
    
11.             If .test(Arr(i, 1)) Then
    
12.                 Arr(i, 1) = .Replace(Arr(i, 1), "$3")
    
13.                 .Pattern = "[^0-9*]+"
    
14.                 If .test(Arr(i, 1)) Then
    
15.                     ArrR(i, 2) = .Replace(Arr(i, 1), "")
    
16.                     If InStr(1, ArrR(i, 2), "*") Then
    
17.                         ArrR(i, 1) = Application.Evaluate("=" & ArrR(i, 2))
    
18.                     Else
    
19.                         ArrR(i, 1) = ArrR(i, 2)
    
20.                         ArrR(i, 2) = ""
    
21.                     End If
    
22.                 End If
    
23.                 .Pattern = "[0-9*]+"
    
24.                 If .test(Arr(i, 1)) Then
    
25.                     ArrR(i, 3) = Mid(.Replace(Arr(i, 1), ""), 1, 1)
    
26.                 End If
    
27.             End If
    
28.         Next i
    
29.     End With
    
30.     Range("h4:j" & Rows.Count).ClearContents
    
31.     Range("h4").Resize(i - 1, 3) = ArrR
    
32. End Sub
    

复制代码

根据条件拆分数据(VBA).rar (16.7 KB, 下载次数: 6)

2011-11-15 17:29 上传

点击文件名下载附件

meizu9

那么的帅 发表于 2011-11-15 15:06

谢谢帅老师、！！！

怎样将换算 I 列数据的代码去除掉？

meizu9

liuguansky 发表于 2011-11-15 17:30
借用上楼附件：正则处理（单位的规则不清，以第一个为准）

谢谢liuguansky 老师、！！！{:24:}

怎样将换算 I 列数据的代码去除掉呢？{:31:}

liuguansky

meizu9 发表于 2011-11-15 17:33
谢谢liuguansky 老师、！！！

怎样将换算 I 列数据的代码去除掉呢？

1. Sub JuSTTEST()
   
2.     Dim Arr, i&, ArrR()
   
3.     Arr = Range([f4], Cells(Rows.Count, "f").End(3)).Value
   
4.     ReDim ArrR(1 To UBound(Arr), 1 To 2)
   
5.     With CreateObject("vbscript.regexp")
   
6.         .Global = True
   
7.         .ignorecase = True
   
8.         For i = 1 To UBound(Arr)
   
9.             .Pattern = "(.+(ml|l|kg|g)[）)]*\*)(.+)）"
   
10.             If .test(Arr(i, 1)) Then
    
11.                 Arr(i, 1) = .Replace(Arr(i, 1), "$3")
    
12.                 .Pattern = "[^0-9*]+"
    
13.                 If .test(Arr(i, 1)) Then
    
14.                     ArrR(i, 1) = Application.Evaluate("=" & .Replace(Arr(i, 1), ""))
    
15.                 End If
    
16.                 .Pattern = "[0-9*]+"
    
17.                 If .test(Arr(i, 1)) Then
    
18.                     ArrR(i, 2) = Mid(.Replace(Arr(i, 1), ""), 1, 1)
    
19.                 End If
    
20.             End If
    
21.         Next i
    
22.     End With
    
23.     Range("h4:j" & Rows.Count).ClearContents
    
24.     Range("h4").Resize(i - 1, 2) = ArrR
    
25. End Sub
    

复制代码

这样试试。

meizu9

liuguansky 发表于 2011-11-15 17:58
这样试试。

谢谢老师~！！！

hhzjxss

工程量计算时，经常的要用计算式求值的！

xwd5189

代码？？？复杂幺，大大超出我的能力范围！

Select

不利于计算维护

jshcm

正在学习，代码=LOOKUP(9E+307,--LEFT(MID(F4,FIND("*",F4)+1,20),ROW($1:$10)))*LOOKUP(9E+307,--MID(MID(F4,FIND("*",F4)+1,20)&"*1",FIND("*",MID(F4,FIND("*",F4)+1,20)&"*1")+1,ROW($1:$10)))中9E+307还没有看懂它代表什么