Excel VBA正则表达式函数：提取未格式化图片链接需求

看起来你已经在尝试用正则表达式提取Excel里的图片链接了，我帮你把那个ExtractURL函数补全，再加上批量处理的宏，这样就能一次性搞定整列的链接啦。

完整的ExtractURL函数 #

这个函数会用正则精准匹配以http或https开头，以.png或.jpg结尾的图片链接，还兼容大小写后缀：

Function ExtractURL(ByVal text As String) As String
    Dim result As String
    Dim allMatches As Object
    Dim RE As Object
    
    Set RE = CreateObject("vbscript.regexp")
    With RE
        .Pattern = "(https?://.*?\.(png|jpg|PNG|JPG))" ' 匹配http/https开头，png/jpg结尾的链接，忽略大小写
        .Global = True ' 允许匹配单元格内的多个链接
        .IgnoreCase = True ' 统一忽略大小写匹配
    End With
    
    Set allMatches = RE.Execute(text)
    If allMatches.Count > 0 Then
        result = allMatches(0).Value ' 提取第一个匹配的链接，多链接可循环拼接
    Else
        result = "" ' 无匹配时返回空值
    End If
    
    ExtractURL = result
End Function

批量处理的实用宏 #

根据你的需求，提供两个常用的批量处理版本：

版本1：批量提取链接到相邻列 #

这个宏会遍历目标列（示例为A列）的所有非空单元格，把提取到的图片链接放到右侧相邻列（示例为B列）：

Sub BatchExtractImageURLs()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    Set ws = ActiveSheet ' 可改为指定工作表，比如Sheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 获取A列最后一行数据
    
    For i = 1 To lastRow
        ws.Cells(i, "B").Value = ExtractURL(ws.Cells(i, "A").Value)
    Next i
    
    MsgBox "链接提取完成！", vbInformation
End Sub

版本2：直接将链接转换成显示的图片 #

如果想直接把提取到的链接变成Excel中可查看的图片，用这个宏（图片会插入到目标列的右侧单元格，可自定义大小）：

Sub BatchInsertImagesFromURLs()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim imgURL As String
    Dim img As Object
    
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    Application.ScreenUpdating = False ' 关闭屏幕刷新，提升处理速度
    
    For i = 1 To lastRow
        imgURL = ExtractURL(ws.Cells(i, "A").Value)
        If imgURL <> "" Then
            On Error Resume Next ' 忽略无效链接的报错
            Set img = ws.Shapes.AddPicture( _
                Filename:=imgURL, _
                LinkToFile:=msoFalse, _
                SaveWithDocument:=msoTrue, _
                Left:=ws.Cells(i, "B").Left, _
                Top:=ws.Cells(i, "B").Top, _
                Width:=100, Height:=100) ' 可按需修改图片尺寸
            On Error GoTo 0
        End If
    Next i
    
    Application.ScreenUpdating = True
    MsgBox "图片插入完成！", vbInformation
End Sub

使用步骤 #

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器
2. 插入新模块：右键点击左侧工作簿名称 → 插入 → 模块
3. 将ExtractURL函数和你需要的宏代码粘贴到模块中
4. 返回Excel界面，按下Alt + F8，选择对应的宏（比如BatchExtractImageURLs），点击执行

小提示 #

• 如果单元格内有多个图片链接，可修改ExtractURL函数，循环遍历allMatches把所有链接用逗号拼接返回
• 插入图片的宏需要网络连接，才能从URL下载图片
• 可根据你的实际列位置，修改代码中的"A"、"B"列标识

内容的提问来源于stack exchange，提问作者Vincent Tang