提取字符串中的数字

yang_159357

提取A列字符串中的数字到 C 列  用VBA怎么弄？

cnmlgb9998

1. Sub 正则()
   
2. Dim brr()
   
3. Set reg = CreateObject("vbscript.regexp")
   
4. 
   
5. arr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
   
6. 
   
7. With reg
   
8.     .Pattern = "\d+"
   
9.     .Global = True
   
10.    
    
11.     For i = 1 To UBound(arr)
    
12.         x = arr(i, 1)

复制代码

yang_159357

cnmlgb9998 发表于 2019-10-2 15:37

如果A列数据 中间有空白行的话，B列的结果能保留空白行的位置不动吗？

yang_159357

自己搞懂了 ，去掉 IF 那里就行 ， 谢谢

yang_159357

cnmlgb9998 发表于 2019-10-2 15:37

很强大，谢谢