EXCEL按条件提取公式求大神指点

nie414006

这些什么逻辑呢？

橒♂蝣

lz79206966 发表于 2023-5-27 13:39
你好，虽然式缺的补上了，但右边又多出数字了

还是用第一个公式，把辅助列中的"式"改在“离式"吧，不然越弄越容易出错

lz79206966

橒♂蝣 发表于 2023-5-27 14:21
还是用第一个公式，把辅助列中的"式"改在“离式"吧，不然越弄越容易出错

好的，感谢，好用啦

ericxzhou

1. Sub test()
   
2.     Dim i%, arr
   
3.     With CreateObject("vbscript.regexp")
   
4.         arr = [a1].CurrentRegion
   
5.         For i = 2 To UBound(arr)
   
6.             .Pattern = arr(i, 2) & "(.*?)[\d\.]+cm"
   
7.             arr(i, 3) = .Execute(arr(i, 1))(0).submatches(0)
   
8.         Next
   
9.     End With
   
10.     [a1].CurrentRegion = arr
    
11. End Sub

复制代码

ericxzhou

1. Sub test()
   
2.     Dim i%, arr
   
3.     With CreateObject("vbscript.regexp")
   
4.         arr = [a1].CurrentRegion
   
5.         For i = 2 To UBound(arr)
   
6.             .Pattern = arr(i, 2) & "(.*?)[\d\.]+cm"
   
7.             arr(i, 3) = .Execute(arr(i, 1))(0).submatches(0)
   
8.         Next
   
9.     End With
   
10.     [a1].CurrentRegion = arr
    
11. End Sub

复制代码