提取指定字段到指定列，谢谢！

ztd123

字段.zip (15.36 KB, 下载次数: 22)

2024-2-2 08:59 上传

点击文件名下载附件

提取指定字段到指定列，谢谢！

蓝桥玄霜

字段的例子：

ztd123

蓝桥玄霜 发表于 2024-2-2 09:09
字段的例子：

谢谢老师！

qdtzq

用分列就能解决的事

lhj5286

已写好，供楼主参考

清风竹-

请看附件。

ykcbf1100

这个适合用正则来提取。

附件供参考。。。

ykcbf1100

代码如下：

1. Sub ykcbf()  '//2024.2.2
   
2.     Set reg = CreateObject("VBScript.Regexp")
   
3.     r = Me.Cells(Rows.Count, "g").End(3).Row
   
4.     Me.Range("i4:i1000") = ""
   
5.     arr = Me.Range("g3:i" & r)
   
6.     With reg
   
7.         .Pattern = "\（(.*?)\）"
   
8.         For i = 2 To UBound(arr)
   
9.             s = arr(i, 1)
   
10.             Set mh = .Execute(s)
    
11.             arr(i, 3) = mh(0).submatches(0)
    
12.         Next
    
13.     End With
    
14.     Me.Range("g3:i" & r) = arr
    
15.     MsgBox "OK！"
    
16. End Sub
    

复制代码

cjc209

只能填充 瞬间完成 还要写代码 顺翠多事

gwjkkkkk

写个公式吧

1. =MID(G4,FIND("（",G4)+1,FIND("）",G4)-FIND("（",G4)-1)

复制代码