VBA正则提取两行之间的内容

p4607596

   要提取的内容如下 ：
  
  查看
  永杰希
3种 3


任务：提取出中间行可见字符  ‘永杰希’
备注：第一行可见字符前后都有空格
           第二行可见字符前也存在空格
     第三行数字会改变

chxw68

使用split()就可以实现。

p4607596

chxw68 发表于 2020-2-14 11:01
使用split()就可以实现。

您好老师我是要从文本里提取出来，

chxw68

p4607596 发表于 2020-2-14 11:14
您好老师我是要从文本里提取出来，

最好上传完整的附件，这样大家才能帮你，要不都是纸上谈兵。

p4607596

补上表格，                  

罗达

多行模式匹配  \s([一-龢]{3})\s

chxw68

1. Sub test()
   
2.   With Worksheets("sheet2")
   
3.     .Range("b1") = Split(.Range("a1"), vbLf)(3)
   
4.   End With
   
5. End Sub
   

复制代码

chxw68

详见附件。

chxw68

正则表达式

1. Sub test2()
   
2.   Dim reg As New RegExp
   
3.   With reg
   
4.     .Global = True
   
5.     .MultiLine = True
   
6.     .Pattern = "[^\n]+"
   
7.   End With
   
8.   With Worksheets("sheet2")
   
9.     Set mh = reg.Execute(.Range("a1"))
   
10.     If mh.Count >= 2 Then
    
11.       .Range("b1") = mh(2)
    
12.     End If
    
13.   End With
    
14. End Sub
    
15. 
    

复制代码

chxw68

一题两解。