根据树种比列树种名称拆分数据

3190496160

1、根据A列的树种名称和树种比例拆分数据，每一个单元格有几种树种就拆分为几行，
2、把树种名称，树种比列分别提取出来，放到不同的列中，
3、对该单元格中的所有比列合计，放到另外一列中
4、结果工作表中有模拟结果
请路过的朋友帮忙看看，不会正则，搞不定了，
正则求助.rar (9.04 KB, 下载次数: 29)

2023-4-13 16:28 上传

点击文件名下载附件

yylucke

yylucke

请参见附件
正则求助 (version 2).rar (20.01 KB, 下载次数: 20)

2023-4-13 17:15 上传

点击文件名下载附件

洋务德雷

凑个热闹。有花吗？

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     Dim reg As New RegExp
   
5.     With reg
   
6.         .Global = True
   
7.         .Pattern = "(\d+)([\u4e00-\u9fbc]+)"
   
8.     End With
   
9.     With Worksheets("数据源")
   
10.         r = .Cells(.Rows.Count, 2).End(xlUp).Row
    
11.         arr = .Range("a2:b" & r)
    
12.     End With
    
13.     ReDim brr(1 To 10000, 1 To 5)
    
14.     m = 0
    
15.     For i = 1 To UBound(arr)
    
16.         Set mh = reg.Execute(arr(i, 2))
    
17.         s = 0
    
18.         For k = 0 To mh.Count - 1
    
19.             s = s + Val(mh(k).SubMatches(0))
    
20.         Next
    
21.         For k = 0 To mh.Count - 1
    
22.             m = m + 1
    
23.             brr(m, 1) = arr(i, 1)
    
24.             brr(m, 2) = arr(i, 2)
    
25.             brr(m, 3) = mh(k).SubMatches(1)
    
26.             brr(m, 4) = mh(k).SubMatches(0)
    
27.             brr(m, 5) = s
    
28.         Next
    
29.             
    
30.     Next
    
31.     With Worksheets("结果")
    
32.         .UsedRange.Offset(1, 0).Clear
    
33.         With .Range("a2").Resize(m, UBound(brr, 2))
    
34.             .Value = brr
    
35.             .Borders.LineStyle = xlContinuous
    
36.         End With
    
37.     End With
    
38. End Sub
    

复制代码

chxw68

楼主最近怎么从帮助者变成求助者了?

yylucke

chxw68 发表于 2023-4-13 19:11

学习了！圆括号原来这样用。

grf1973

确实只是括号的使用而已。

半百

学习一下

准提部林

寫個..非正則//
Xl0000030.rar (13.62 KB, 下载次数: 5)

2023-4-14 11:52 上传

点击文件名下载附件