提取数值

zw0713

为什么带“g”"ml""kg"都能提取数值到E,F,G,H列，而带“L”的提取不到数值

麻烦帮忙看这个代码哪出问题。谢谢！！！

sj15627581616

因为你的L判断的是大写，别的判断小写

ykcbf1100

这个用正则取值更方便一点

附件供参考。。。

ykcbf1100

正则取值

1. Sub ykcbf()   '//2024.12.23
   
2.     Application.ScreenUpdating = False
   
3.     r = Cells(Rows.Count, 1).End(3).Row
   
4.     arr = [a1].Resize(r, 100)
   
5.     Range("e2:z" & r).ClearContents
   
6.     Set reg = CreateObject("VBScript.RegExp")
   
7.     With reg
   
8.         .Pattern = "([0-9]+)(?:[g|kg|ml|L])+"
   
9.         .Global = True
   
10.         .IgnoreCase = false
    
11.         For i = 2 To UBound(arr)
    
12.             st = arr(i, 4)
    
13.             n = 4
    
14.             If .TEST(st) Then
    
15.                 Set mh = .Execute(st)
    
16.                 For Each ma In mh
    
17.                     n = n + 2
    
18.                     arr(i, n - 1) = ma.submatches(0)
    
19.                     arr(i, n) = Replace(ma.Value, arr(i, n - 1), "")
    
20.                 Next
    
21.             End If
    
22.         Next
    
23.     End With
    
24.     [a1].Resize(r, 100) = arr
    
25.     Set reg = Nothing
    
26.     Application.ScreenUpdating = True
    
27.     MsgBox "OK！"
    
28. End Sub
    
29. 
    

复制代码

gwjkkkkk

ykcbf1100 发表于 2024-12-23 11:04
正则取值

([0-9\.]+)(?:[g|kg|ml|L]+)，这个0-9是不是要加点。。。

ykcbf1100

gwjkkkkk 发表于 2024-12-23 19:41
([0-9\.]+)(?:[g|kg|ml|L]+)，这个0-9是不是要加点。。。

附件中都是整数，故没有放.