vba编程截取指定字符串后面的内容

楠楠1111

求大神帮忙！！！！！vba编程怎么实现截取指定字符串后面的内容
也就是截取【适应症】到下一个左中括号“【”之间内容，放到下一列中。


【适应症】１.溶血性链球菌感染：咽炎、扁桃体炎、猩红热、蜂窝织炎、皮肤软组织感染、败血症可作为首选。2.草绿色链球菌或肠球菌感染：亚急性细菌性心内膜炎可首选，但需加大剂量，并与氨基甙类抗生素合用，以增强疗效。３.肺炎球菌感染：大叶性肺炎、中耳炎、鼻旁窦炎、败血症等，可首选。4.金黄色葡萄球菌感染：如疖、痈、脓肿、骨髓炎等，对本品敏感的菌株可首选。5.白喉、破伤风、气性坏疽、炭疽等，可首选，但前两者需分别合用抗毒素。6.钩端螺旋体病、梅毒、回归热及放线菌病，均可首选。【用法与用量】成人  肌注：一般感染40-80万u，Bid,严重感染 Qid。静滴：严重感染200-1000万u/日

楠楠1111

有没有大神帮帮忙

cjc209

用公式也简单

1. =MID(A1,FIND("【适应症】",A1),FIND("【",A1,FIND("【适应症】",A1)+5)-FIND("【适应症】",A1)) 下拉

复制代码

头发强

同问！想了解

zjzyj

供参考。。

wyx615

用word将强制换行符替换为“@”，再用Excel分列功能实现就可以

wang-way

Wb.Worksheets(2).Cells(n, 1).Value = Mh(0).submatches(0)  这句注意修改一下 单元格下标

wang-way

我来试试手

1. Public Sub wangway()
   
2. 
   
3.     Dim Wb As Workbook
   
4.     Dim Sht As Worksheet
   
5.     Set Wb = Application.ThisWorkbook
   
6.     Set Sht = Wb.Worksheets(1)
   
7.     Set Regex = CreateObject("VBScript.RegExp")
   
8.     OrgText = "Halo World"
   
9.     With Regex
   
10.         .Global = True
    
11.         .Pattern = "(?:【适应症】)([^【]+?)(?:【)"
    
12.     End With
    
13.     n = 0
    
14.     With Sht
    
15.         '.Usedrange.Offset(1).clear
    
16.         EndRow = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row
    
17. 
    
18.         For i = 1 To EndRow Step 1
    
19.             s = .Cells(i, 1).Value
    
20.             Set Mh = Regex.Execute(s)
    
21.             If Mh.Count > 0 Then
    
22.                 Debug.Print i, Mh(0).submatches(0)
    
23.                 n = n + 1
    
24.                 Wb.Worksheets(2).Cells(n, 1).Value = Mh(0).submatches(0)
    
25.             End If
    
26.         Next
    
27.     End With
    
28.                                     
    
29.     Set Wb = Nothing
    
30.     Set Sht = Nothing
    
31.     Set Regex = Nothing
    
32.     Set Mh = Nothing
    
33.                                     
    
34. End Sub

复制代码

喂你吃粑粑

1. Sub dd()
   
2. Dim reg, match, matches
   
3. Dim i, j, k, irow1 As Integer
   
4. Dim str As String
   
5. Set reg = CreateObject("VBScript.RegExp")
   
6. With reg
   
7.   .Pattern = "【适应症】.+"
   
8.   .ignorecase = True
   
9.   .Global = True
   
10.   irow1 = Sheet1.Range("a10000").End(xlUp).Row
    
11.   For i = 1 To irow1
    
12.     str = Sheet1.Range("a" & i)
    
13.     If .test(str) Then
    
14.         Set matches = .Execute(str)
    
15.         Sheet1.Range("b" & i) = matches(0)
    
16.     End If
    
17.   Next
    
18. End With
    
19. End Sub
    

复制代码