提取不规则内容字符中的英文链接

请问阿斯多少 · 发表于 2024-3-12 14:52

请问下大神们，这样的不规则字符要怎样来提取？有没有一个公式可以搞定的？在线求大佬帮忙，感恩

shiruiqiang · 发表于 2024-3-12 14:54

本帖最后由 shiruiqiang 于 2024-3-12 14:57 编辑

正则式就行

[a-zA-z]+://[^\s]*

请问阿斯多少 · 发表于 2024-3-12 15:04

shiruiqiang 发表于 2024-3-12 14:54
正则式就行

大佬，我是小白，正则式没有做过，怎么来在excle单元格中实现呢？不会应用

shiruiqiang · 发表于 2024-3-12 15:19

仅限Excel表格，基本日常网站应该没空格

huarong7984 · 发表于 2024-3-12 18:38

本帖最后由 huarong7984 于 2024-3-12 18:39 编辑

所发示例，提取网址，并建立超链接，仅供参考

gwjkkkkk · 发表于 2024-3-12 18:54

正则吧。。。

65861954 · 发表于 2024-3-12 19:04

Sub test()
Dim reg As New RegExp
srt reg = CreateObject("vbscript.regexp")
With reg
.Global = True
.Pattern = "https://v.douyin.com/[^一-龟]+"
For i = 2 To 6
Set mh = .Execute(Range("a" & i).Value)
Range("e" & i).Value = mh(0)
Next i
End With
End Sub

limonet · 发表于 2024-3-12 22:15

关键字：.*

limonet · 发表于 2024-3-12 22:16

Sub limonet()
Dim i%
With CreateObject("vbscript.regexp")
      .Pattern = "(.*?)(http.*) (.*)?"
      For i = 2 To 6
         Cells(i, "B") = .Replace(Cells(i, "A"), "$2")
      Next i
End With
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 提取不规则内容字符中的英文链接