vba 处理字符串

yuanexl

工人4人，电焊机1台，吊车1辆，发电机1台，工人2人，电焊机1台，发电机1台



各位老师帮帮忙  用Vba 把上面的字符串 汇总如下  
工人6人，电焊机2台，吊车1辆，发电机2台


试了一上午 也没找到 好办法  ，先谢谢了

1. Sub s()
   
2.     Dim arr1()
   
3.     Dim rng
   
4. 
   
5.     sr = "工人4人，电焊机1台，吊车1辆，发电机1台，工人2人，电焊机1台，发电机1台"
   
6. 
   
7.     arr = Split(sr, "，")
   
8.     ReDim arr1(UBound(arr))
   
9.     ReDim arr3(UBound(arr))
   
10.     For s2 = 0 To UBound(arr)
    
11.         Set regx = CreateObject("VBScript.RegExp")
    
12.          With regx
    
13.             .Global = True
    
14.             .Pattern = "\D" '数字
    
15.             t = .Replace(arr(s2), "")
    
16.         arr1(s2) = t
    
17.         End With
    
18.     Next
    
19. 
    
20.     For t1 = 0 To UBound(arr) - 1
    
21.         For t2 = t1 + 1 To UBound(arr)
    
22.             If Left(arr(t1), 2) Like Left(arr(t2), 2) Then
    
23.                  t = Replace(arr(t1), arr1(t1), Val(arr1(t1)) + Val(arr1(t2)))
    
24.                      rng = rng & "，" & t
    
25.             End If
    
26.         Next
    
27.     Next
    
28. 
    
29. End Sub

复制代码

得到下面的结果
"，工人6人，电焊机2台，发电机2台"
现在的问题是 多了个 逗号  少了 吊车1辆
求指点  谢谢

changhong8

vba自定义函数吧

yuanexl

changhong8 发表于 2019-3-23 14:29
vba自定义函数吧

您能帮忙写 下吗  谢谢了

changhong8

不知道内容和规律，写出来不实用

liulang0808

建议楼主上传完整附件，并提供多点模拟数据及结果

jiminyanyan

手工算算也花不了多少时间吧

yuanexl

changhong8 发表于 2019-3-23 14:32
不知道内容和规律，写出来不实用

工人4人，电焊机1台，吊车1辆，发电机1台，工人2人，电焊机1台，发电机1台
汇总结果：  
工人6人，电焊机2台，吊车1辆，发电机2台

只要用vba  写出来 就行

yuanexl

liulang0808 发表于 2019-3-23 14:34
建议楼主上传完整附件，并提供多点模拟数据及结果

工人4人，电焊机1台，吊车1辆，发电机1台，工人2人，电焊机1台，发电机1台
汇总结果：  
工人6人，电焊机2台，吊车1辆，发电机2台

只要用vba  写出来 就行
您把这个当做全部  写出来 就行   谢谢了

duquancai

1. 
   

复制代码

1. # -*- coding: utf-8 -*-
   
2. # version: Python 3.7.0
   
3. from collections import defaultdict
   
4. import re
   
5. 
   
6. res_str = '工人4人，电焊机1台，吊车1辆，发电机1台，工人2人，电焊机1台，发电机1台'
   
7. r_list = re.compile(r'([^\d，]+)(\d+)([^\d，]+)').findall(res_str)
   
8. my_dic = defaultdict(int)
   
9. for i in r_list: my_dic[(i[0], i[2])] += int(i[1])
   
10. my_list = [k[0]+str(v)+k[1] for k, v in my_dic.items()]
    
11. 
    
12. print('，'.join(my_list))

复制代码

输出结果如下：
工人6人，电焊机2台，吊车1辆，发电机2台

yuanexl

jiminyanyan 发表于 2019-3-23 14:36
手工算算也花不了多少时间吧

好几千的

麻烦您  帮忙写下  谢谢了