如何把一个单元格里n个百分比提取到后面单元格里？

lzr122

如何把一个单元格里n个百分比提取到后面单元格里？
大神请教！

Chip_Kenny

1. Sub zz()
   
2. Dim s$, a()
   
3. s = "xxnn21%nnxx44.8%xnxn"
   
4. With CreateObject("vbscript.regexp")
   
5.     .Pattern = "([\d\.]+%)"
   
6.     .Global = True
   
7.     Set sm = .Execute(s)
   
8.     ReDim a(sm.Count - 1)
   
9.     For i = 0 To UBound(a)
   
10.         a(i) = sm(i)
    
11.     Next
    
12.     ActiveCell.Resize(1, i).NumberFormatLocal = "0.00%"
    
13.     ActiveCell.Resize(1, i) = Application.Transpose(Application.Transpose(a))
    
14. End With
    
15. End Sub

复制代码

lzr122

Chip_Kenny 发表于 2019-10-11 14:31

21% 和44.8%是举了个列子，不是它本身，可以是任何百分比
而且好多行

Chip_Kenny

上載檔案來。

lzr122

Chip_Kenny 发表于 2019-10-11 14:42
上載檔案來。

啊发生地方29%fasdf44.55%rtwer2%
就是把上面的百分比提取出来放到后面的单元格里

lzr122

lzr122 发表于 2019-10-11 14:45
啊发生地方29%fasdf44.55%rtwer2%
就是把上面的百分比提取出来放到后面的单元格里

把n个百分比提取放到后面n个单元格里
一个单元格放一个
谢谢，请求帮忙!

月关

你的示例太少了，以你例子来说，只需要把中文替换掉就OK了。其余的数据全部都是你示例一样？不太可能吧

Chip_Kenny

1. Sub zz()
   
2. Dim a, b(), n&
   
3. a = Range([a2], [a65536].End(3))
   
4. ReDim b(1 To UBound(a), 1 To 100)
   
5. With CreateObject("vbscript.regexp")
   
6.     .Pattern = "([\d\.]+%)"
   
7.     .Global = True
   
8.     For i = 1 To UBound(a)
   
9.         If .test(a(i, 1)) Then
   
10.             Set sm = .Execute(a(i, 1))
    
11.             n = IIf(n > sm.Count, n, sm.Count)
    
12.             For j = 1 To sm.Count
    
13.                 b(i, j) = sm(j - 1)
    
14.             Next
    
15.         End If
    
16.     Next
    
17.     [b2].Resize(i - 1, n).NumberFormatLocal = "0.00%"
    
18.     [b2].Resize(i - 1, n) = b
    
19. End With
    
20. End Sub

复制代码

lzr122

Chip_Kenny 发表于 2019-10-11 15:07

厉害，！谢谢！
真是天外有天，人外有人