批量建立图片超链接

VBA代码参考

Sub 建立图片超链接()
    '获取A列有数据的总行数
    maxir = [A65536].End(3).Row
    '对C2:AC&maxir 范围清除数据
    Range("c2:aC" & maxir) = ""  
    '按已有数据所有行数进行循环
    For ir = 2 To maxir
        '对每行的B列进行循环查找数字
      For iNum = 1 To Len(Range("b" & ir))
        '判断是否为数字，将数字存在ac列
        If IsNumeric(Mid(Range("b" & ir), iNum, 1)) = True Then
          Range("ac" & ir) = Range("ac" & ir) & Mid(Range("b" & ir), iNum, 1)
        End If
      Next iNum   
      '建立图片链接，根据ac列的数字，决定建立几个图片链接
      For ic = 1 To Range("ac" & ir)
        '选中单元格
        Cells(ir, 3 + ic - 1).Select
        '加入链接图片函数
        ActiveCell.FormulaR1C1 = "=HYPERLINK(""" & ThisWorkbook.Path & "\" & Cells(ir, 1) & ic & ".jpg"",""" & Cells(ir, 1) & ic & """)"
      Next ic
    Next ir
    '清除ac列数字
    Range("ac:aC") = ""
End Sub