较长字符串处理，用vba解决

fggf

提取字符串中需要的内容到指定单元格中， 字符串处理.zip (5.94 KB, 下载次数: 13)

2019-10-11 17:56 上传

点击文件名下载附件 详见附见，谢谢各位

周义坤

1. Sub yy()
   
2.   Dim ReGe As Object, Arr As Variant
   
3.   Dim a As Variant, b As Variant, c As Long
   
4.    Set ReGe = CreateObject("VbsCript.RegeXp")
   
5.      With ReGe
   
6.         .Global = True
   
7.         .Pattern = """CORPNAME"":""(.*?)"".*?""SCORE"":(\d*\.?\d+)"
   
8.         Set a = .Execute([a1].Value)
   
9.          ReDim Arr(1 To a.Count, 1 To 2)
   
10.           For Each b In a
    
11.              c = c + 1
    
12.              Arr(c, 1) = b.submatches(0)
    
13.              Arr(c, 2) = b.submatches(1)
    
14.           Next b
    
15.      End With
    
16. Range("B16").Resize(c, 2) = Arr
    
17. End Sub

复制代码

fggf

周义坤 发表于 2019-10-11 20:22

谢谢您