请教各位大神，如果在提取单元格中的英文字符？

华丽的小草

请教各位大神，如果在提取单元格中的英文字符？

microyip

正则就可以获取

1. .Pattern = "企业账号:([a-zA-Z]+)"

复制代码

华丽的小草

microyip 发表于 2019-10-7 11:46
正则就可以获取

能否提供下完整的代码?

microyip

华丽的小草 发表于 2019-10-7 13:37
能否提供下完整的代码?

可参考http://club.excelhome.net/thread-1432307-1-1.html进行变通应用

华丽的小草

microyip 发表于 2019-10-7 13:48
可参考http://club.excelhome.net/thread-1432307-1-1.html进行变通应用

没明白那个附件的意思。

microyip

华丽的小草 发表于 2019-10-8 08:35
没明白那个附件的意思。

就是教你怎样使用正则啊，里面还举了些例子

xuemei0216

Sub a()
Dim s$, i&, j&
Dim match As Object, matchs As Object
Dim reg As Object
Set reg = CreateObject("vbscript.regexp")
reg.Pattern = "企业账号:([a-zA-Z]+)"              '正则表达式
reg.Global = True             'true是查找所有，false是只查找第一个
Dim arr
arr = [a1].CurrentRegion
For i = 2 To UBound(arr)          '不含标题
    s = arr(i, 8)          '指定列
    Set matchs = reg.Execute(s)            '所有结果集合
    For j = 1 To matchs.Count
        For Each match In matchs
                Cells(i, j).Offset(0, 8) = match
                j = j + 1
        Next
    Next
Next
End Sub

华丽的小草

microyip 发表于 2019-10-8 09:01
就是教你怎样使用正则啊，里面还举了些例子

好的，谢谢，我研究下。

华丽的小草

xuemei0216 发表于 2019-10-8 13:17
Sub a()
Dim s$, i&, j&
Dim match As Object, matchs As Object

好的，谢谢，我研究一下。

大灰狼1976

如果都像你举例中的数据一样规范的话：

1. Sub test()
   
2. Dim r&, rng As Range
   
3. r = Cells(Rows.Count, "h").End(3).Row
   
4. Set rng = Cells(2, "i").Resize(r - 1)
   
5. rng = rng.Offset(, -1).Value
   
6. rng.Replace "*企业账号:", ""
   
7. rng.Replace ",账号数*", ""
   
8. End Sub

复制代码