[已解决]在数字上添加字符，请帮帮忙。

zld0807

    也许是本人表达的不是很清楚，请大家海涵。
    如附件所示，当B列等于"型号1"的时候，在"*"前的数字加上括号，变成（400）*300=5，当B列等于"型号1"的时候，在"="前的数字加上括号，变成3000*（300）=5。
  具体情况请看D列结果。
  我只是列举了两种情况，其余的还有很多，所以需要VBA来解决。
  跪求VBA代码，谢谢。

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2013-10-24 18:43

正则还不太熟悉，试做了一个

1. Sub aaa()
   
2. Dim arr, i&, reg As Object, s$
   
3. Set reg = CreateObject("vbscript.regexp")
   
4. reg.Global = True
   
5. arr = [a1].CurrentRegion
   
6. For i = 2 To UBound(arr)
   
7.   If arr(i, 2) = 1 Then
   
8.     reg.Pattern = "^\d+"
   
9.     s = "(" & reg.Execute(arr(i, 1))(0) & ")"
   
10.     arr(i, 3) = reg.Replace(arr(i, 1), s)
    
11.   ElseIf arr(i, 2) = 2 Then
    
12.     reg.Pattern = "\d+="
    
13.     s = "(" & Val(reg.Execute(arr(i, 1))(0)) & ")="
    
14.     arr(i, 3) = reg.Replace(arr(i, 1), s)
    
15.   End If
    
16. Next i
    
17. [a1].CurrentRegion = arr
    
18. End Sub

复制代码

跳转到最佳答案楼层

上清宫主

那帖子中回的VBA不对吗？还是没看？

zld0807

没得法呀，刚才没人解决啊。。。。。。。。。。

大灰狼1976

正则还不太熟悉，试做了一个

1. Sub aaa()
   
2. Dim arr, i&, reg As Object, s$
   
3. Set reg = CreateObject("vbscript.regexp")
   
4. reg.Global = True
   
5. arr = [a1].CurrentRegion
   
6. For i = 2 To UBound(arr)
   
7.   If arr(i, 2) = 1 Then
   
8.     reg.Pattern = "^\d+"
   
9.     s = "(" & reg.Execute(arr(i, 1))(0) & ")"
   
10.     arr(i, 3) = reg.Replace(arr(i, 1), s)
    
11.   ElseIf arr(i, 2) = 2 Then
    
12.     reg.Pattern = "\d+="
    
13.     s = "(" & Val(reg.Execute(arr(i, 1))(0)) & ")="
    
14.     arr(i, 3) = reg.Replace(arr(i, 1), s)
    
15.   End If
    
16. Next i
    
17. [a1].CurrentRegion = arr
    
18. End Sub

复制代码