求vba截取数据

mysycf

求vba截取数据

半百

恕不能处理242=66*1.5*55*2+11*3这样用*号分隔的。

Sub TEST()
Set D = CreateObject("Scripting.Dictionary")
D("1.5") = 1
D("2") = 2
D("3") = 3
ARR = Range("G3", Cells(Rows.Count, 7).End(3))
ReDim BRR(1 To UBound(ARR), 1 To 3)
For I = 1 To UBound(ARR)
    S = Mid(ARR(I, 1), InStr(ARR(I, 1), "=") + 1)
    A = Split(S, "+")
    For J = 0 To UBound(A)
        B = Split(A(J), "*")
        BRR(I, D(B(1))) = B(0)
    Next
Next
Range("K3").Resize(UBound(BRR), 3) = BRR
End Sub

mysycf

半百 发表于 2018-6-20 16:09
恕不能处理242=66*1.5*55*2+11*3这样用*号分隔的。

Sub TEST()

是加号，手误。谢谢

mysycf

半百 发表于 2018-6-20 16:09
恕不能处理242=66*1.5*55*2+11*3这样用*号分隔的。

Sub TEST()

运行时错误"9"下标越界

半百

我用附件测试了没出错呢。

duquancai

有空下载附件看看是 啥玩意？

ggmmlol

1. Sub test()
   
2. br = Split("1.5,2,3", ",")
   
3. r = Cells(Rows.Count, "G").End(xlUp).Row
   
4. ar = [g3].Resize(r - 2)
   
5. Set rg = CreateObject("vbscript.regexp")
   
6. ReDim cr&(1 To r - 2, 0 To 2)
   
7. For j = 0 To 2
   
8.     rg.Pattern = "(\d+)(?=[\*\+]" & br(j) & "\b)"
   
9.     For i = 1 To r - 2
   
10.         If rg.test(ar(i, 1)) Then cr(i, j) = rg.Execute(ar(i, 1))(0)
    
11.     Next
    
12. Next
    
13. [h3].Resize(r - 2, 3) = cr
    
14. End Sub

复制代码

duquancai

1. Sub main()
   
2.     Dim ar, r&, i&
   
3.     Set js = CreateObject("MSScriptControl.ScriptControl")
   
4.     js.Language = "JavaScript": js.AddObject "rg", Sheets("表二").Range("g3")
   
5.     js.AddCode "var r1=/''/,r2=/''/;r1.compile(/\d+[*+](?:1\.5|[23])/g);r2.compile(/[*+]/);"
   
6.     r = Sheets("表一").Cells(Sheets("表一").Rows.Count, "G").End(3).Row
   
7.     ar = Sheets("表一").[g3].Resize(r - 2)
   
8.     Sheets("表二").Range("g3:g" & r & ",i3:i" & r & ",k3:k" & r) = 0
   
9.     For i = 1 To r - 2
   
10.         js.eval ("a='" & ar(i, 1) & "'.match(r1);for(i=0;i<a.length;i++){b=a[i].split(r2);if(b[1]==1.5)rg(" & i & ",1)=b[0];else if(b[1]==2)rg(" & i & ",3)=b[0];else if(b[1]==3)rg(" & i & ",5)=b[0];};")
    
11.     Next
    
12.     MsgBox "OK！结果在表二"
    
13. End Sub

复制代码

mysycf

duquancai 发表于 2018-6-20 21:30

不完全正确，
59=6*1.5*5+2+4*3
69.125=6.5*1.5*5.5+2+4.5*3
96=16*1.5+15*2+14*3
99.25=16.5*1.5+15.5*2+14.5*3
21.5=63*1.5+44*2+11*3
10923=66*1.5*55*2+11*3
11005.5=66.5*1.5*55*2+11*3

提取出来的是
6                5                4
5                5                5
16                15                14
5                5                5
63                44                11
66                55                11
5                55                11

mysycf

duquancai 发表于 2018-6-20 21:30

不完全正确，
59=6*1.5*5+2+4*3（提取正确）

50.25=6.5*1.5+7.5*2+8.5*3（只提取到5  5  5不正确，正确的是6.5   7.5   8.5）

6.5*1.5（只提取到6.5中的5，正确应提取6.5）
5.5*2（只提取到7.5中的5，正确应提取7.5）
8.5*3（只提取到8.5中的5，正确应提取8.5）