如何用VBA批量提取单元格中部分字符

1042271867

请教老师：如何用VBA批量提取附表1（此表中有连续多个附表1）单元格所行下面第三行中“某某村某某组”内容放到备注中（当表中B2中户主姓名有名单时）？效果见附件红字部分，谢谢啦

DevilW

1. Sub test()
   
2.     Set reg = CreateObject("vbscript.regexp")
   
3.     reg.Pattern = ".*）(.+)（.*）(.+)"
   
4.     reg.Global = True
   
5.     [b:b].Replace " ", ""
   
6.     For i = 1 To [a65536].End(3).Row
   
7.         t = Cells(i, 1)
   
8.         a = Cells(i, 2)
   
9.         If InStr(t, "盖章") Then s = Replace(reg.Replace(t, "$1$2"), " ", "")
   
10.         If a <> "" And a <> "户主姓名" Then Cells(i, 9) = s
    
11.     Next
    
12. End Sub

复制代码

1042271867

太感谢了，完全达到我想法。

Lonzo丶

1042271867 发表于 2019-6-12 12:17
太感谢了，完全达到我想法。

点这里回复他，要不然你的感谢他可能收不到