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

meizu9

3

Book1换算.rar (9.96 KB, 下载次数: 57)

2011-11-13 17:56 上传

点击文件名下载附件


只要判断出它的含量（毫升或是克），然后有后面的数相乘即可。

比如：  金极皇冠（20ml*10瓶*20排）
            将这部分分开【金极皇冠（20ml*】
            然后再将【10瓶*20排】这部分相乘

最佳答案

月排行榜 / 总排行榜

liuguansky

2011-11-15 17:58

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
    

复制代码

这样试试。

跳转到最佳答案楼层

BAIXINGR

你这个没什么规律

liushui_gaoshan

规律还是有的，就是太复杂了。乘号*可以把需要的数据分开，但是怎么判断，有点麻烦！

爱疯

如果是为计算，建议：

G列填每件的数字值
H填数量的数值
I和J就好处理了。

slygg2011

什么东西，我看看啊

5blessyou

H4输入数组公式

1. =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)))

复制代码

或者

1. =PRODUCT(--TEXT(TEXT(LEFT(TEXT(MID(MID(F4,FIND("*",F4)+1,20)&"A",ROW($1:$30),COLUMN($A:$J)),),COLUMN($A:$J)-1),"G/通用格式;-G/通用格式;1;!1")*ISERR(-(MID("C"&MID(F4,FIND("*",F4)+1,20),ROW($1:$30),1)&0)),"G/通用格式;-G/通用格式;1"))

复制代码

meizu9

爱疯 发表于 2011-11-13 19:29
如果是为计算，建议：

G列填每件的数字值

只要能换算出数量就可以，其它的可以不考虑，请求大侠帮助！

单位如果想判断出来，我也觉得很难，因为单位，没有规律。有时在前面有时在后面。

爱疯

6楼朋友回的方法，可以吗？

meizu9

爱疯 发表于 2011-11-14 10:19
6楼朋友回的方法，可以吗？

6楼大哥得出效果是正确的。

但我更希望能以VAB实现，因为涉及到数据频繁的导入导出，所以请大哥您帮忙出手
！！！！

那么的帅

meizu9 发表于 2011-11-14 10:26
6楼大哥得出效果是正确的。

但我更希望能以VAB实现，因为涉及到数据频繁的导入导出，所以请大哥您帮忙 ...

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

2011-11-15 15:05 上传

点击文件名下载附件