[已解决]求助：如何通过VBA快速计算

yashj2007

如何通过VBA快速计算，详见附件。如何通过VBA快速计算，详见附件。

最佳答案

月排行榜 / 总排行榜

dsmch

2015-12-24 08:21

1. Sub Macro1()
   
2. Dim arr, brr, d, i&
   
3. [b:b] = ""
   
4. Set d = CreateObject("scripting.dictionary")
   
5. arr = Range("a1").CurrentRegion
   
6. brr = Sheets("数据源").Range("a10").CurrentRegion
   
7. For i = 2 To UBound(brr)
   
8.     d("'" & brr(i, 1)) = brr(i, 2)
   
9. Next
   
10. With CreateObject("vbscript.regexp")
    
11.     .Global = True
    
12.     .Pattern = "\w{9}"
    
13.     For i = 2 To UBound(arr)
    
14.         For Each m In .Execute(arr(i, 1))
    
15.             arr(i, 1) = Replace(arr(i, 1), m, d("'" & m))
    
16.         Next
    
17.         arr(i, 1) = Application.Evaluate(arr(i, 1))
    
18.     Next
    
19. End With
    
20. Range("b1").Resize(UBound(arr)) = arr
    
21. End Sub

复制代码

跳转到最佳答案楼层

tzjx200521

A7单元格是怎么回事   还要加减乘除？？？

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, d, i&
   
3. [b:b] = ""
   
4. Set d = CreateObject("scripting.dictionary")
   
5. arr = Range("a1").CurrentRegion
   
6. brr = Sheets("数据源").Range("a10").CurrentRegion
   
7. For i = 2 To UBound(brr)
   
8.     d("'" & brr(i, 1)) = brr(i, 2)
   
9. Next
   
10. With CreateObject("vbscript.regexp")
    
11.     .Global = True
    
12.     .Pattern = "\w{9}"
    
13.     For i = 2 To UBound(arr)
    
14.         For Each m In .Execute(arr(i, 1))
    
15.             arr(i, 1) = Replace(arr(i, 1), m, d("'" & m))
    
16.         Next
    
17.         arr(i, 1) = Application.Evaluate(arr(i, 1))
    
18.     Next
    
19. End With
    
20. Range("b1").Resize(UBound(arr)) = arr
    
21. End Sub

复制代码

dsmch

………………