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
